前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VB的if和elseif

VB的if和elseif

作者头像
机器学习和大数据挖掘
发布2019-07-02 10:41:28
1.3K0
发布2019-07-02 10:41:28
举报
文章被收录于专栏:数据挖掘

VB中if和elseif的用法是:

if...then...elseif...then...else...endif

切记在then的后面不要加冒号,加了冒号出现else没有if的错误,因为加了冒号表示这个if只是执行then的语句就算执行完了,因此如下

代码语言:javascript
复制
 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:

代码语言:javascript
复制
 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

如果是以下这样子就会报错:

代码语言:javascript
复制
 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
本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2016-08-11 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档