VB问题 1Dim var2='ABC'为什么不对 2执行语句s=Len(Mid("VisualBa
1- 9 C B C D C A A D B
10- 18 B B D B C D B D B
若有不明白的可以问我,当然希望我没有错误啊
''1、将输入字符串“abcdef”输出为”fedcba”
Private Sub Invert(ByVal xStr As String, yStr As String)
Dim tempStr As String
Dim I As Integer
I = Len(xStr)
Do While I >= 1
tempStr = tempStr + Mid(xStr, I, 1)
I = I - 1
Loop
yStr = tempStr
End Sub
Private Sub Form_Click()
Dim s1 As String, s2 As String
s1 = "abcdef"
Call Invert(s1, s2)
Print s2
End Sub
''2、如果两个质数的差为2，就称这两个质数为质数对,输出100以内的质数对
Public Function IsP(m As Integer) As Boolean
Dim I As Integer
IsP = True
For I = 2 To Int(Sqr(m))
If m Mod I = 0 Then
IsP = False
Exit For
End If
Next I
End Function
Private Sub Form_Click()
Dim I As Integer
p1 = IsP(3)
For I = 5 To 100 Step 2
p2 = IsP(I)
If p1 And p2 Then Print I - 2, I
p1 = p2
Next I
End Sub
'3、求解一元二次方程，要求a，b，c及解x1，x2都以参数传递的方式与主程序交换数据，输入a，b，c和输出x1,x2的操作都放在主程序中
Sub Equa(A!, B!, C!, x1$, x2$)
If Abs(A) <= 0.000001 Then
MsgBox ("不能构成方程"): Exit Sub
Else
Disc = B * B - 4 * A * C
End If
If Abs(Disc) <= 0.000001 Then
Flag = 1
MsgBox ("方程有等实根")
x1 = -B / (2 * A)
x2 = -B / (2 * A)
ElseIf Disc > 0.000001 Then
Flag = 2: MsgBox ("方程有两不等实根")
x1 = (-B + Sqr(Disc)) / (2 * A)
x2 = (-B - Sqr(Disc)) / (2 * A)
Else
Flag = 3: MsgBox ("方程有两虚实根")
Realp = (-B) / (2 * A)
imagep = Abs(Disc) / (2 * A)
x1 = Realp & "+" & imagep & "I"
x2 = Realp & "-" & imagep & "I"
End If
End Sub
Private Sub Form_Click()
Dim x1$, x2$
A! = InputBox("输入A值")
B! = InputBox("输入B值")
C! = InputBox("输入C值")
Call Equa(A, B, C, x1, x2)
Print x1, x2
End Sub
2 Mid("VisualBasic",1,6)意思是从第一个字符开始，取6个字符，所以长度是6
3 ？？？
Dim var2='ABC'
dim是变量声明不是赋值
针若膦甲： Private Sub Text1_change() Dim var1 Dim var2 Dim var3var1 = Left(Text1.Text, 1) var2 = Right(Text1.Text, 1) var3 = Mid(Text1.Text, 2, 1)If var1 = a Then var1 = 1 ElseIf var1 = b Then var1 = 2 ElseIf var1 = c Then var1 = 3 Else var1 = 4 End IfIf var2...
昭通市17075643872： vb 的取余运算符是怎么算的 - ？
针若膦甲： Dim a As Integera = 5 Mod 2 答案是1,因为5被2除后,余数是1.
昭通市17075643872： VB中的 &是啥意思? - ？
针若膦甲： 连接字符串的操作符,有时候等价于＂+＂下面这个例子说明 & 和 + 的不同Dim s as Strings = 1 & 2 's = ＂12＂s = 1 + 2 's = ＂3＂
昭通市17075643872： VB编程问题？
针若膦甲： i=1 , j=1 时j Mod 2 <> 0成立,a=a-1=-1(因为上面a=0);;a = a + 1=0(因为前面a=-1)这时输出a值是0 i=1 , j=2 时j Mod 2 <> 0不成立,a=a-1不执行;a = a + 1=1(因为上面a=0);这时输出a值是1 i=1 , j=3 时j Mod 2 <> 0成立,a=a-1=0(因...
昭通市17075643872： vb运行出错解决方法 - ？
针若膦甲： vb 有 on error语句,该语句会捕捉产生的错误. on error resume next '产生错误是继续执行下一行代码 on error goto ERR '产生错误时跳转到标号为ERR的地方,ERR可以为其它定义好的标号 这样就可以处理你那个“运行的错误53” 你的程序可...
昭通市17075643872： 一元二次方程VB程序 帮我看下那错了 Dim a As Double, b As Double, c As Double Dim x1 As Double, x2 As - ？
针若膦甲： Delt = Sqr(b ^ 2 - 4 * a * c) 上边加上一行 if b ^ 2 - 4 * a * c>=0 then 就是加个判断条件
昭通市17075643872： VB中的冒号还有&有什么用啊?大虾帮下我…… - ？
针若膦甲： VB中的冒号(:)起分隔语句的作用,使得一行有几个语句,例如:dim a as string:a=12:a=a*a VB中的&表示字符或数字进行文字上的连接合并,而不是加法.例如:【文字与文字】 Dim a,b,c As String a=＂Welcome to use VB!＂ b=＂ You have made a wise choice!＂ c=a & b 即c=＂Welcome to use VB! You have made a wise choice!＂ 【文字与数字】 a=13 b=＂我有＂ c=＂个兄弟姐妹＂ 于是d=b & a & c 即:d=＂我有13个兄弟姐妹＂
昭通市17075643872： 求解一个VB控件问题 - ？
针若膦甲： Private Sub Command1_Click()'where date>=#＂ & DTPicker1.Value # and date<=#＂ & DTPicker2.Value #＂ Dim hqrs As New ADODB.Recordset Dim i As...
昭通市17075643872： vb题目,有关数组中的元素个数的 - ？
针若膦甲： vb默认的数组下界是0, Dim a(3,-2 To 2,5) 相当于 Dim a(0 To 3, -2 To 2, 0 To 5)数组a第一维长度为4,第二维长度为5,第三维长度为6,元素的个数为4*5*6=120如果通用声明区有 Option B...
昭通市17075643872： 一个VB问题 - ？
针若膦甲： a已经定义为数组,不能再用来作循环变量,可以这样改下: Private Sub Form_Load()Dim a(2) As IntegerFor i = 1 To 2 a(i) = InputBox(＂＂)Next iEnd Sub
