我用VB做一个能算除法的小程序,我拖了两个TEXT和一个按钮

那是因为除数不能为空也不能为0等问题
改正成下面的:
Private Sub Command1_Click()
if text1.text="" then
msgbox "被除数不能为空!"
exit sub
endif
if text2.text="" then
msgbox "除数不能为空!"
exit sub
endif
if val(text2.text)=0 then
msgbox "除数不能为0!"
exit sub
endif
Text3.Text = Val(Text1.Text) /Val(Text2.Text)
End Sub

俺是不太懂vb6啦, 不过对你的程序有一点不成熟的看法, 呵呵
你想运算的两个值应该为数值型的吧, 但是文本框出来的应该是String吧, 所以肯定不能计算, 还有赋值回去的时候是不是也得把数值型转换成String赋给Text3呢
除数如果是0, 那怎么计算啊? 只能避免这种情况的发生, 在运算之前做个判断啊, 如果是0就弹出一个MsgBox或者就怎样怎样, 如果不是0就进行下面的计算.