Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Private Sub Command1_Click()
text3=val(text1)*(text2)'使用val()函数把text1和text2文本框里面的文本变成数值型的,
End Sub
真的很简单啊,初学者就会啊
如下,一句代码就解决了:
text3.text = text1.text * text2.text
就这样了
最好前面增加一句代码 定义下数据类型
Commandbutton中放入如下代码:
textbox3.text=CDbl(textbox1.text)*CDbl(textbox2.text)