查人人中国名人网硫粉燃烧文字表达式:求VB编程:一个程序求分段函数根据不同自变量的值
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 22:13:23
编程一个程序求分段函数根据不同自变量的值。
当程序运行后，单击“输入x”按钮，在对话框中输入数值，程序自动输出
主要是这里我不知道怎么弄：当对话框出现后，如果用户不输入数据（即单击取消按钮，包括输入空字符串单击确定按钮）时该如何处理，当用户输入“非法”数值后，如何处理
Private Sub Command1_Click()
Dim a!
a = Val(InputBox("输入x", "计算分段函数的只"))
If Not IsNumeric(a) Then
MsgBox ("请输入数据")
End If
If a <= 5 Then
y = 1 - a ^ 2
Else
y = (a - 5) ^ 1 / 4
End If
Print "f("; a; ") ="; y
当程序运行后，单击“输入x”按钮，在对话框中输入数值，程序自动输出
主要是这里我不知道怎么弄：当对话框出现后，如果用户不输入数据（即单击取消按钮，包括输入空字符串单击确定按钮）时该如何处理，当用户输入“非法”数值后，如何处理
Private Sub Command1_Click()
Dim a!
a = Val(InputBox("输入x", "计算分段函数的只"))
If Not IsNumeric(a) Then
MsgBox ("请输入数据")
End If
If a <= 5 Then
y = 1 - a ^ 2
Else
y = (a - 5) ^ 1 / 4
End If
Print "f("; a; ") ="; y
If Not IsNumeric(a) Then
MsgBox ("请输入数据")
End If
改为：
If Not IsNumeric(a) Then
MsgBox ("请输入数据")
Exit Sub '不执行下面的处理语句，直接跳出让程序等待下一次按钮事件的触发
End If