VB的if和elseif
VB中if和elseif的用法是:
if...then...elseif...then...else...endif
切记在then的后面不要加冒号,加了冒号出现else没有if的错误,因为加了冒号表示这个if只是执行then的语句就算执行完了,因此如下
1 Sub test() 2 Dim i As Integer 3 Dim j As Integer 4 Dim a 5 For i = 1 To 2: 6 Debug.Print ("这是第" & Str(i) & "次循环") 7 a = InputBox("请输入") 8 9 If a = "1" Then 10 MsgBox ("执行1") 11 Debug.Print ("执行1") 12 ElseIf a = "20" Then 13 MsgBox ("执行2") 14 Debug.Print ("执行2") 15 ElseIf a = "40" Then 16 MsgBox ("执行3") 17 Debug.Print ("执行3") 18 ElseIf a = "100" Then 19 MsgBox ("执行4") 20 Debug.Print ("执行4") 21 ElseIf a = "300" Then 22 MsgBox ("执行5") 23 Debug.Print ("执行5") 24 Else: 25 MsgBox ("什么都没有执行") 26 Debug.Print ("什么都没有执行") 27 End If 28 Next i 29 End Sub
如果是加了冒号那么只能是一个if:
1 Sub test() 2 Dim i As Integer 3 Dim j As Integer 4 Dim a 5 For i = 1 To 2: 6 Debug.Print ("这是第" & Str(i) & "次循环") 7 a = InputBox("请输入") 8 9 If a = "1" Then: 10 MsgBox ("执行1") 11 Debug.Print ("执行1") 12 13 Next i 14 End Sub
如果是以下这样子就会报错:
1 Sub test() 2 Dim i As Integer 3 Dim j As Integer 4 Dim a 5 For i = 1 To 2: 6 Debug.Print ("这是第" & Str(i) & "次循环") 7 a = InputBox("请输入") 8 9 If a = "1" Then: 10 MsgBox ("执行1") 11 Debug.Print ("执行1") 12 ElseIf a = "2" Then: 13 MsgBox ("执行2") 14 Next i 15 End Sub
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 新年开篇:在本地部署DeepSeek大模型实现联网增强的AI应用
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· Janus Pro:DeepSeek 开源革新,多模态 AI 的未来
· 上周热点回顾(1.20-1.26)
· 【译】.NET 升级助手现在支持升级到集中式包管理