Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(InputBox("请输入一个不为0数"))
Text1 = Abs(1 / (a - 5))
If a