vb中的if语句有两种形式，一种是换行的，一种是不换行的：
1、换行的格式：
if xxxx then(到这儿必须换行）
XXXXX
[ XXXX then(到这儿又必须换行）
xxxxx]
[else(到这儿又必须再换行）
xxxxx]
endif
这种格式中 ...和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、第二行 Val(Text1) < 60 Or Val(Text2) < 60 Or Val(Text3) < 60 Then Text4 = "达标" 中的,显然来的没有原由，它就没有对应的if了，出现出错提示。
3、第三行Else 与没有if与之对应，亦出错。
4、第五行End If ，更是错误。哈哈
明白了没有，我想，等明白了原因，就不难修改你的程序了，希望你能自己完成。若还有问题，再联系昂。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。