刚学VB.有什么不对的地方 可以改进的地方请多多指教

加法************************************
private sub command1_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val（text1.tsxt）+val（text2.text）"
End if
End sub

减法************************************
private sub command2_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val(text1.tsxt)-val(text2.text)"
End if
End sub

乘法************************************
private sub command3_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val(text1.tsxt)*val(text2.text)"
End if
End sub

除法************************************
private sub command4_click
If text1.text="" or test2. text="" then
msgtest3="请从新输入输入“
Else text3.text="val(text1.tsxt)/val(text2.text)"
End if
End sub

[此贴子已经被作者于2006-3-12 12:37:24编辑过]

哦开头是不是private sub command1_click(test as integer)

这个好象太麻烦了.代码都多出去N多了.我看我的简化了

[此贴子已经被作者于2006-3-14 13:20:48编辑过]