UC知道求做一个最简单的vb计算公式程序的代码
来源：百度知道 编辑：UC知道 时间：2024/05/13 06:16:52
各位高人请看，要求有两个文本框用来输入已知变量，两个已知变量要做除法，而且两个文本框之间现实除号，后边有等号，等号后有一个输出计算结果的文本框，这样类似的公式做两个，让后要有一个统一的按钮取名计算，还有一个取名清空，两个按钮最好放在下面，谢谢，急的
一、设置控件属性
text1（被除数）:text=（空）
label1:caption=“/”
text2（除数）:text=（空）
label2:caption=“=”
text3（商）:text=（空）
command1:caption=“计算”
command2:caption=“清空”
二、编写代码
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a/b
Text3.Text=c
End Sub
Private Sub Command2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
给个邮箱