else没有if如何解决vb
答：Else之前必须有一个If。这个错误的起因与解决方法如下所示：一个Else语句被使用时没有一个配对的If语句。请检查在If...End If结构中的其它控制结构，并确认它们被正确地配对。也请检查If块的格式是否正确。你换成这样试试 Dim nk As String Dim n As Integer Dim k As Integer If Command1.Capti...
答：你要在then后回车，才可以使用else。否则的话它会将if……then……当成一句话，下面的else就没有匹配的if了。
答：所以后面的else 和End if 就没有匹配的If语句了。改为如下代码，变成了完整的If Then Else End If块，就正确了。Private Sub Command2_Click()Dim a As Integer Text1.Text = a If a = 1 Then Text2.Text = 2 ElseIf a = 2 Then Text2.Text = 4 End If End Sub OK！
答：因为你的If语句被注释起来了，你需要去掉If语句和Else前面的单引号" ' "。才能保证程序正常运行！
答：更改方法一：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(...
答：问题出现在这里：If STR = "1856_" Then CELLID = Right(ColNumber, 5)Else CELLID = ColNumber End If then 后面的 CELLID = Right(ColNumber, 5) 换行就好了：If STR = "1856_" Then CELLID = Right(ColNumber, 5)Else CELLID = ColNumber End If ...
答：.Filter = "*.mp3*.mp3;*.wma*.wma".ShowOpen song = .FileName If song = "" Then Exit Sub a = ""For i = Len(song) To 1 Step -1 b = Mid(song, i, 1)List1.AddItem a a = ""If b = "\" Then List1.AddItem a ab = Left(song, i)Exit Sub Else a = b & ...
答：If InStr("INSERT,DELETE,UPDATE,EXECUTE", UCase$(sTokens(0))) Then cnn.Execute (SQL)改为 If InStr("INSERT,DELETE,UPDATE,EXECUTE", UCase$(sTokens(0))) Then cnn.Execute (SQL)也就是要分两行写，写在一行的话，下面的else...end if就无效了 ...
答：If Index = 0 Then Text1.Text = "" --- 这是完整的单行IF结构 ElseIf signfleg = True Then --- 此处的ElseIf当然缺少IF了 修改成 If Index = 0 Then Text1.Text = ""ElseIf signfleg = True Then
答：Print #1, Text1.Text '写入文件 Close #1 '关闭文件 If Combo1.Text = "0319"Then MsgBox "XXX"，48 , "XXX"Else MsgBox "找不到文件GroupConnection.dll,重新安装会解决此问题", vbOKOnly + vbExclamation , "缺少文件"End If End Sub 修改vbExclamation后的应该是一个逗号，而不是两个逗号...
网友评论：
鄢呼13053813250：
求解决vb代码错误 else没有 if -
1130酆启
： If a = ＂ryh1998＂ Or b = ＂123456＂ Then MsgBox ＂欢迎你!＂ ElseIf a = ＂＂ Or b = ＂＂ Then MsgBox ＂请输入用户名或密码!＂ Else: MsgBox ＂错误＂ End If End If 上面一段修改为 If a = ＂ryh1998＂ Or b = ＂123456＂ ThenMsgBox ＂欢迎你!＂ ElseIf a = ＂＂ Or b = ＂＂ ThenMsgBox ＂请输入用户名或密码!＂ Else MsgBox ＂错误＂ end if
鄢呼13053813250：
VB编程(IF语句) -- Else 没有If -
1130酆启
： Private Sub Command3_Click() Open ＂C:\保存.txt＂ For Output As #1 Print #1, Combo1.Text Print #1, Text1.Text '写入文件Close #1 '关闭文件 If Combo1.Text = ＂0319＂Then MsgBox ＂XXX＂,48 , ＂XXX＂ Else MsgBox ＂找不到文件GroupConnection.dll,重新安装会解决此问题＂, vbOKOnly + vbExclamation , ＂缺少文件＂ End If End Sub修改vbExclamation后的应该是一个逗号,而不是两个逗号!谢谢!
鄢呼13053813250：
VB:编译错误:else没有if,求解决~ -
1130酆启
： Then rs.Open 把这两句话改为 Then rs.Open 第一个后面还要加End if
鄢呼13053813250：
vb出错 else没有if -
1130酆启
： 注意有2处错误.要有个val函数Private Sub Command1_Click() If Val(Text1.Text) = 1 Then Command1.Caption = ＂1＂ Else Command1.Caption = ＂NOT 1＂ End IfEnd Sub
鄢呼13053813250：
VB中else缺少if -
1130酆启
： 修改为: If a = 1 ThenText2.Text = 2 ElseIf a = 2 Then Text2.Text = 4 End If 带Else的If语句不能放在同一行!
鄢呼13053813250：
vb为什么else没有if -
1130酆启
： Private Sub Command1_Click() If b > 100 Then Text1.BackColor = vbRed Else Text1.BackColor = vbBlue End If End Sub 有else 出现 then 同行后面为空 语句需换行
鄢呼13053813250：
会vb的帮帮忙 else没有if -
1130酆启
： Private Sub Command1_Click() iftxtpassword.Text1 = ”wasd1170009693wa〃 这里错了,该是 改: if txtpassword.Text = ”wasd1170009693wa〃MsgBox (＂你好·欢迎登陆 ＂) Else msgbox〔”对不起·你破密码 输错了〃〕 End IfEnd Sub
鄢呼13053813250：
vb提示else中没有if -
1130酆启
： Private Sub Command1_Click()Dim m, n, x As Integerx = Text1.TextDim a(1 To 100, 1 To 100), b(1 To 100, 1 To 100) As IntegerFor m = 1 To xFor n = 1 To xIf n < (x - m) ThenPicture1.Print Spc(x - m)ElseIf n = (x - m + 1) Thena(m, n) = 1 &...
鄢呼13053813250：
为什么用VB语言写判断语句老显示Else没有if 问题补充里是我写的 错在哪 为什么它老显示 else 没有 if -
1130酆启
： 你Else上面都End If 了.把End If 放在End Sub 上面就行了
鄢呼13053813250：
VB中ELSE 没有IF 求解
1130酆启
：在Print ＂@＂ 后分别加一句 Next J,并且删除原来的Next J.原因:For循环语句和If判断语句交叉了.
