个人博客转至:tybai.com

无聊就想打码,打码使我快乐


Fork me on GitHub

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
复制代码

 

posted on   TTyb  阅读(4740)  评论(0编辑  收藏  举报

编辑推荐:
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
阅读排行:
· 新年开篇:在本地部署DeepSeek大模型实现联网增强的AI应用
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· Janus Pro:DeepSeek 开源革新,多模态 AI 的未来
· 上周热点回顾(1.20-1.26)
· 【译】.NET 升级助手现在支持升级到集中式包管理

导航


不用多久

我就会升职加薪

当上总经理

出任CEO

迎娶白富美

走上人生巅峰

Pulpit rock

喜欢请打赏

扫描二维码打赏

了解更多

点击右上角即可分享
微信分享提示