请高手指教一下这道VB题应该怎样做?

在文本框中分别输入除数和被除数,当单击【执行除法运算】按钮时,在下面三个文本框中分别显示计算结果。

设计界面如下:

第1个回答  2009-04-21
'text1为被除数 text2为除数
Private Sub Command1_Click() '执行除法运算
text3 = Val(Text1.Text) / Val(Text2.Text) '商
text4 = Val(Text1.Text) \ Val(Text2.Text) '整数商
text5 = Val(Text1.Text) Mod Val(Text2.Text) '求余
End Sub本回答被提问者采纳
第2个回答  2009-04-21
Private Sub Command1_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
If Val(Text1.Text) Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Text4.Text = Fix(Val(Text1.Text) / Val(Text2.Text)) 'int()和fix()都会删除小数部份而返回剩下的整数 ,对负数处理不同
Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)
Else
MsgBox "除数为零!"
End If
Else
MsgBox "被除数或除数输入错误!"
End If
End Sub

不知道你“执行除法运算”是 命令按钮还是标签?是标签 改为Private Sub label1_Click()
第3个回答  2009-04-21
双击“执行除法运算”
Private Sub Command1_Click()
Text3.Text = Text1.Text / Text2.Text
Text4.Text = Text1.Text \ Text2.Text
Text5.Text = Text1.Text Mod Text2.Text
End Sub
相似回答