vb程序设计 计算器

vb程序设计 计算器
我从来没接触过VB这个东西 完全不懂 老师叫我们做一个VB计算器 我搞来搞去没听懂 基本是:有两个Text(分别是a b 也就是两个用来运算的数) 4个command 分别代表+ - / * 还有一个Label是显示答案的 然后该怎么做我就不清楚了 只要考虑四则运算就好了 除法要求b=0时显示出错 请懂的人教一下具体的做法 请不要只告诉我代码 输入好代码后怎么办也告诉我 谢谢 完整的话我会再加分
楼上枯消写的核源不对,正确代码

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函数是将字符型数字变成数值型。
← 上一篇: 下一篇: →