UC知道关于VB循环增加1的语句!!!!!!!!!!!!!!!!
来源：百度知道 编辑：UC知道 时间：2024/06/06 17:51:53
b = Val(Label1.Caption)
c = Val(Label2.Caption)
a = b + c
f = Val(Text1.Text)
If f = a Then
Label5.Caption = "答对" & d + 1
Else
Label6.Caption = "答错" & e + 1
End If
为什么运行后label5和label6的数字不会增加了?第一次使用增加一次再6计算的话,答对与答错都不会再增加数字了????
Private Sub Command1_Click()
Label1.Caption = Int((100 - 1 + 1) * Rnd + 1) '随机产生一个大于1小于100的整数赋值给label1的caption属性
Label2.Caption = Int((100 - 1 + 1) * Rnd + 1) '随机产生一个大于1小于100的整数赋值给label2的caption属性
Label4.Caption = "+" '当单击加按钮时将+号赋值给label4的caption属性
End Sub
Private Sub Command2_Click()
Label4.Caption = "-"
End Sub
Private Sub Command3_Click()
Label4.Caption = "*"
End Sub
Private Sub Command4_Click()
Label4.Caption = "/"
End Sub
Private Sub Command5_Click()
Dim a, b, c, d, e, f, g, h As Long
b = Val(Label1.Caption
c = Val(Label2.Caption)
a = b + c
f = Val(Text1.Text)
If f = a Then
Label5.Caption = "答对" & d + 1
Else
Label6.Caption = "答错" & e + 1
End If
为什么运行后label5和label6的数字不会增加了?第一次使用增加一次再6计算的话,答对与答错都不会再增加数字了????
Private Sub Command1_Click()
Label1.Caption = Int((100 - 1 + 1) * Rnd + 1) '随机产生一个大于1小于100的整数赋值给label1的caption属性
Label2.Caption = Int((100 - 1 + 1) * Rnd + 1) '随机产生一个大于1小于100的整数赋值给label2的caption属性
Label4.Caption = "+" '当单击加按钮时将+号赋值给label4的caption属性
End Sub
Private Sub Command2_Click()
Label4.Caption = "-"
End Sub
Private Sub Command3_Click()
Label4.Caption = "*"
End Sub
Private Sub Command4_Click()
Label4.Caption = "/"
End Sub
Private Sub Command5_Click()
Dim a, b, c, d, e, f, g, h As Long
b = Val(Label1.Caption
Dim a, b, c, d, e, f, g, h As Long
'变量全在过程声明,每次调用D,E的值重新变为零
'把这句改成 Dim a, b, c,f, g, h As Long
'在代码最顶层写 DIM D,E as long
'D,E的值只赋值给了LABEL,但自己本身并未累加
if b ＝ a ...
是＝＝吧？难道vb连这个都变了？
然后你后面说的那个我没理解
??谁出的啊??