UC知道VB求方程程序题目~高手帮忙下
来源：百度知道 编辑：UC知道 时间：2024/05/25 06:09:24
遍出这个分段函数（我不知道怎么打数学符号，各位包涵）
x (x<1)
y=4x-4((x>=1)and(x<40))
8x-8((x>=40)and(x<80))
100x(x>=80)
下面是我遍的程序~为什么我执行的时候显示错误对话框（else没有if)
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Val(InputBox("请输入x的值"))
If x < 1 Then y = x
ElseIf x < 40 And x >= 1 Then y = 4 * x - 4
ElseIf x < 80 And x >= 40 Then y = 8 * x - 8
Else: y = 100 * x
End If
MsgBox "y的值为:" & Str(y)
End Sub
我错在哪里~要怎么搞才对？
x (x<1)
y=4x-4((x>=1)and(x<40))
8x-8((x>=40)and(x<80))
100x(x>=80)
下面是我遍的程序~为什么我执行的时候显示错误对话框（else没有if)
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Val(InputBox("请输入x的值"))
If x < 1 Then y = x
ElseIf x < 40 And x >= 1 Then y = 4 * x - 4
ElseIf x < 80 And x >= 40 Then y = 8 * x - 8
Else: y = 100 * x
End If
MsgBox "y的值为:" & Str(y)
End Sub
我错在哪里~要怎么搞才对？
程序很好, 仅仅少打了一个回车符:
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Val(InputBox("请输入x的值"))
If x < 1 Then '****注意, 就是这儿, 多打一个回车符
y = x '这句话本来跟上面的If是同一行的, 现在将它换行移下来才正确
ElseIf x < 40 And x >= 1 Then y = 4 * x - 4
ElseIf x < 80 And x >= 40 Then y = 8 * x - 8
Else: y = 100 * x
End If
MsgBox "y的值为:" & Str(y)
End Sub
思想 没错啊
具体在哪里错了 我就不知道了
思想没错,试试下面程序:
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Val(InputBox("请输入x的值")
If x < 1 Then y = x
If x < 40 And x >= 1 Then y = 4 * x - 4
If x < 80 And x >= 40 Then y = 8 * x - 8
If x >= 80 Then y = 100 * x
MsgBox "y的值为:" & Str(y)
End Sub