Question

求计算器除法VB代码

谁能给我个 除法VB代码
只要除法

Answer 1

Private Sub Command1_Click()
Dim a, b, c As Single '定义变量a,b,c
a = Val(Text1.Text) '取的第一个除数并放到存储单元a中
b = Val(Text2.Text) '取的第二个除数并放到存储单元b中
'----
IF b = 0 Then
Msgbox "除数不能为0或空"
exit sub
End If
'----
c = a / b '把两个除数转换数字后相除，并把计算的结果存放到存储单元c中
Label2.Caption = c '把存储单元c中的值，显示在标签中
End Sub

Answer 2

把加减乘里代码的符号换成“/”不就OK了？只是加一句判断被除数是不是为0.
IF text2.text = 0 Then
Msgbox "除数不能为0或空"
End If

Answer 3

应该可以这样的。

Text1.text / Text2.text