vb 缺少语句结束 急！！

代码如下：
Private Sub Command2_Click()
Dim x!, y!
x = Val(InputBox("输入x的值"))
If x < 1000 Then
y = x
Elself x<2000 And x>=1000 Then（这行老是显示红色 说缺少语句结束）
y = 0.9 * x
……
求帮忙~~~~~~
那个end if有的 我刚才懒 没贴出来 先把完整的贴出来求高手 呜呜 晚上要考了
rivate Sub Command2_Click()
Dim x!, y!
x = Val(InputBox("输入x的值"))
If x < 1000 Then
y = x
Elself x < 2000 And x>=1000 Then
y = 0.9 * x
Elself x < 3000 And x> =2000 Then
y = 0.8 * x
Elself x>=3000 then
y = 0.7 * x
End If
Print y
End Sub

你的IF 不是Lf 你打成Lf了没发现？应该是if。。。
还有 else必须独占一行
还有 有一个if就有一个end if
你有3个if 为什么只有一个end if？

Private Sub Command2_Click()
Dim x!, y!
x = Val(InputBox("渴흙x돨令"))
If x < 1000 Then
y = x
Else
If x < 2000 And x >= 1000 Then
y = 0.9 * x
Else
If x < 3000 And x >= 2000 Then
y = 0.8 * x
Else
If x >= 3000 Then
y = 0.7 * x
End If
End If
End If

Print y
End Sub

elseif做完了 应该要有end if 这些应该都是成对出现的 有开头 就要有end

你elseif打成elself了，“I”打成“L”了

private sub command1_click() if option1 then     form2.show      form1.hide '两个语句不要连成一句了 else     end '//退出程序 end if end sub ' 缺少过程结束语句 '在form2窗口加入下面代码，不然有隐藏窗口在，程序退不出了。 private sub form_unload(cancel as integer)     form1.show end sub

Private Sub Command1_Click() Dim x!, y! x = Val(InputBox("输入x的值")) If x < 1000 Then y = x ElseIf x < 2000 And x >= 1000 Then 'ElseIf 写错了 y = 0.9 * x ElseIf x < 3000 And x >= 2000 Then y = 0.8 * x ElseIf x >= 3000 Then y = 0.7 * x End If Print y End Sub

Private Sub Command2_Click() Dim x!, y! x = Val(InputBox("输入x的值")) If x < 1000 Then y = x Elself x<2000 And x>=1000 Then（这行老是显示红色 说缺少语句结束） y = 0.9 * x …… endif .......

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息