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

分类: 作业答案 • 2022-02-12 12:46:29

问题描述：

写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

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