Private Sub Command1_Click()
'文本框Text3的内容等于Text1的数值减去Text2的数值
'其中Val 函数用来返回字串表达式的数值
Me.Text3.Text = Val(Me.Text1.Text) - Val(Me.Text2.Text)
End Sub
在窗口放三个textbox控件,一个Commandbutton控件,双击Commandbutton控件,切换到Private Sub Command1_Click()事件代码中,输入以下代码:
Dim a as double, b as double
text3.text = str(val(text1.text) - val(text2.text))
先画3个text 分别为 text1 text2 text3 private sub form1_load( )text1.text=inputbox("请输入第一个数 ")text2.text=inputbox("请输入第二个数 ")text3.text=text1.text-text2.textend sub
dim a as inter...text1=(你控件的名称)text2=(第二个空间的名称)text3=text1-text2end end大概就是这么个,3年没用vb了,肯定有错的,将就一下吧= =
Option ExplicitPrivate Sub Command1_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub