QQ网名大全

求做一个最简单的vb计算公式程序的代码

一、设置控件属性
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
佚名
2024-11-15 15:25:51
最佳回答
类似问题(10)