UC知道VB编程(IF语句)--Else 没有If
来源：百度知道 编辑：UC知道 时间：2024/05/15 12:35:14
我想写一个VB程序,用到了IF,以下是代码
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", , "XXX"
Else
MsgBox "找不到文件GroupConnection.dll,重新安装会解决此问题", vbOKOnly + vbExclamation, , "缺少文件"
End If
End Sub
为什么是 Else 没有 IF呢?我错在哪里巨侠们帮帮忙我是小白
liou_bing63
好象是这样，但问题更新了：
If Combo1.Text = "0319" Then
MsgBox "XXX", , "XXX"
Else
MsgBox "找不到文件GroupConnection.dll,重新安装会解决此问题", vbOKOnly + vbExclamation, , "缺少文件"
实时错误 5 ：
无效的过程调用或参数
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", , "XXX"
Else
MsgBox "找不到文件GroupConnection.dll,重新安装会解决此问题", vbOKOnly + vbExclamation, , "缺少文件"
End If
End Sub
为什么是 Else 没有 IF呢?我错在哪里巨侠们帮帮忙我是小白
liou_bing63
好象是这样，但问题更新了：
If Combo1.Text = "0319" Then
MsgBox "XXX", , "XXX"
Else
MsgBox "找不到文件GroupConnection.dll,重新安装会解决此问题", vbOKOnly + vbExclamation, , "缺少文件"
实时错误 5 ：
无效的过程调用或参数
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后的应该是一个逗号，而不是两个逗号！谢谢！
Else是否则,就是如果上面一句的条件不满足,就执行Else下面的一句语句,相当于If... NOT ... then ...
估计这下是你的参数有问题了!
比如,0319,或者是msgbox的参数缺失了.