Private Sub 除_Click()
a = CInt(Text1.Text)
b = CInt(Text2.Text)
If b = 0 Then Text3.Text = "N"
    Text2.SetFocus
    Exit Sub
End If
result = a / b
Label2.Caption = "/"
Text3.Text = result
End Sub
 
为什么显示end if 没有块 if  搞不懂