VB编程实例-简单除法计算

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