
楼上枯消写的核源不对,正确代码
Private Sub Command1_Click()
Label1 = Val(Text1) + Val(Text2)
End Sub
Private Sub Command2_Click()
Label1 = Val(Text1) - Val(Text2)
End Sub
Private Sub Command3_Click()
Label1 = Val(Text1) * Val(Text2)
End Sub
Private Sub Command4_Click()
If Val(Text2) <> 0 Then
Label1 = Val(Text1) / Val(Text2)
Else
MsgBox "除数不改败态能为0"
Text2 = ""
Text2.SetFocus
End If
End Sub
这是一个简单的程序,在初学基本控件时基本都要用到这个程序。
窗体上有两个文本框,text1和text2,执行肆梁桥时用来输入数据。
窗体上有4个命令按钮command1,command2,command3,command4,它们的标题属性(Caption)分别为"+","-","*","/",注意在输入标题是不用双引号,双渣陪引号代表字符常量。
窗体上有一个标签 控件Label1.
各个命令按裂猛钮的单击事件如下:
Private command1_click()
label1.caption=val(text1.text)+val(text2.text)
end sub
Private command2_click()
label1.caption=val(text1.text)-val(text2.text)
end sub
Private command3_click()
label1.caption=val(text1.text)*val(text2.text)
end sub
Private command4_click()
label1.caption=val(text1.text)/val(text2.text)
end sub
其中,val函数是将字符型数字变成数值型。