vb.11.9

vb.11.9

Private Sub Command1_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
result = 0
If b <> 0 Then
result = a / b
Text3 = result
Else
MsgBox "除数不能为0!"
End If

End Sub