Question

VB编译错误 else 没有if 但是明明写了if

Private Sub SSTab1_dblClick()
If Val(Text1) < 40 Or Val(Text2) < 40 Or Val(Text3) < 40 Then Text4 = "不合格"

ElseIf Val(Text1) < 60 Or Val(Text2) < 60 Or Val(Text3) < 60 Then Text4 = "达标"

Else
Text4 = "合格"
End If

Text5 = Format(((Val(Text6) + Val(Text7) + Val(Text8)) / 3), "00.0")

End Sub

Answer 1

更改方法一：
Private Sub command1_Click()
If Val(Text1) < 40 Or Val(Text2) < 40 Or Val(Text3) < 40 Then
Text4 = "不合格"
ElseIf Val(Text1) < 60 Or Val(Text2) < 60 Or Val(Text3) < 60 Then Text4 = "达标"
Else
Text4 = "合格"
End If
Text5 = Format(((Val(Text6) + Val(Text7) + Val(Text8)) / 3), "00.0")

End Sub
更改方法二：要是我的话就会是这样写的。
Private Sub command1_Click()
If Val(Text1) < 40 Or Val(Text2) < 40 Or Val(Text3) < 40 Then
Text4 = "不合格"
ElseIf Val(Text1) < 60 Or Val(Text2) < 60 Or Val(Text3) < 60 Then
Text4 = "达标"
Else
Text4 = "合格"
End If
Text5 = Format(((Val(Text6) + Val(Text7) + Val(Text8)) / 3), "00.0")

End Sub

Answer 2

if 格式不对
if
elseif
elseif
end if
看懂了吗，编程不是造句，有些地方要注意

Answer 3

vb中的if语句有两种形式，一种是换行的，一种是不换行的：
1、换行的格式：
if xxxx then(到这儿必须换行）
XXXXX
[elseif XXXX then(到这儿又必须换行）
xxxxx]
[else(到这儿又必须再换行）
xxxxx]
endif
这种格式中elseif ...和else...部分都可以省略，还可以再镶嵌若干层的if语句，但必须以单独占一行的endif语句结束。它常用在比较复杂的选择中。
2、不换行的格式：
if XXXX then XXXX [else XXXX]
这种格式是IF语句最原始的格式了，它可以省略else...部分，也可以镶嵌，但所有内容必须写在一行中:(，句末也不需要endif语句（也绝不能有，否则就是画蛇添足）。由于全写在一句中，不能写的太长，很乱很难懂，所以，现在这种格式只用在很简单的判断语句中了。

明白了以上道理，就不难发现你程序中的错误了：
1、第一行的If Val(Text1) < 40 Or Val(Text2) < 40 Or Val(Text3) < 40 Then Text4 = "不合格" 用的是第不换行的格式，自成一句完整的IF语句结构，也不再（&不能）需要有其它语句了；
2、第二行ElseIf Val(Text1) < 60 Or Val(Text2) < 60 Or Val(Text3) < 60 Then Text4 = "达标" 中的elseif,显然来的没有原由，它就没有对应的if了，出现出错提示。
3、第三行Else 与没有if与之对应，亦出错。
4、第五行End If ，更是错误。哈哈

明白了没有，我想，等明白了原因，就不难修改你的程序了，希望你能自己完成。若还有问题，再联系昂。