写VB,画流程图.输入任意实数x,求1/(x-5)的绝对值 若分母为零则输出有误急求啊 ,今天就要

网友回答

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