Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Single
Text1.Text = a
Text2.Text = b
mysum = Val(Text1.Text) * Val(Text2.Text)
lable1.Caption = "金额为: " & mysum
End Sub
不知道错哪了,Command,Label都建了
Lemon
学分:0 LV1
您好!
您要实现的是将text1和text2中的内容相乘。
需要将这两句代码删除
Text1.Text = a
Text2.Text = b
否则,得不到正确的结果。
这是因为 执行了上面两句代码以后,text1中的内容为a,text2中的内容为b。而变量a,b并没有赋值,所以默认值为0
因此得到的结果为0。