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
时间: 2024-11-02 14:09:46

VB的if和elseif的相关文章

VB.NET 自动打包程序

因为每次将编译好的程序提交时都要花费很多时间用来打包,因此我需要有一个让程序自动完成这些琐碎的工作. 首先说一下我的目标.我的C#程序(在本文中暂时称作Example.exe)编译后暂时存放在Debug目录中,该程序有两种形态:平台端和客户端,它们分别给不同的用户使用,这两个客户端的不同之处仅在与App.config(可以被看做一个XML文件)中的配置不同.打包时需要先使用NSIS脚本对Debug目录下的内容制作成安装包,再使用WinRAR将安装包进行压缩.除了两个安装包外,还需要提供一些文件放

VB.NET-QQ新闻弹窗样式图片制作工具

〇.下载地址 本程序的下载地址(百度网盘):http://pan.baidu.com/s/1qWBGGGG 一.关于本程序 Gnaea是一个QQ新闻弹窗的填字工具,可以在输入新闻标题和新闻内容后生成一张类似QQ新闻弹窗的图片.生成的图片可以被保存为BMP和PNG两种格式,或是直接复制到剪贴板. 效果如下图(注:内容纯属虚构) 二.程序控件 三.程序资源 被用作素材的资源:My.Resources.PopUp,取材于一张PNG格式的图片 四.程序代码 Imports System.Text Pub

vb.net之SqlHelper的编写与应用

上次文章中说到.对于一个项目来说,SqlHelper是一个很重要的类. 在正在构造的机房收费系统中.有大量的操作数据库的操作.如今,把重复的代码全部拿出来,就形成了SqlHelper类.这个SqlHelper执行参数化查询.至于使用,只需要提供相应的sql语句和参数.就可以执行数据库的操作了. 实现声明一下啊.这个例子 我也不知道能不能用在机房收费系统上.刚学完设计模式,突发奇想在数据库的链接上,加上了一个单例模式.如果出现什么不显示的情况,请联系我. 接下来看一下,sqlHelper是如何写的

使用swoole进行消息推送通知,配合vb.net进行客户端开发一样爽

在以前的项目中,就曾听说过swoole的大名,想用来进行消息推送,但是当时只是有了初步的了解,并不敢大胆的运用到线上产品.所谓 识不足则多虑,威不足则多怒.所以就是怕,只能跟领导说了运用极光的推送功能,而且还说出了一定的理由,领导自然也只有相信了,那就用极光推送吧! 最近闲来无事,又重新温习了一下swoole的消息通知功能,虽然在项目开发当时,也曾实现过简单的操作的,但是这次温习更加深了学习,配合vb.net进行开发,感觉还是棒棒哒,下面是一套实现过程,如有需要参考,请拿去,不谢! 首先,我的开

VB.NET vs. C#

VB.NET Program Structure C# Imports System Namespace Hello    Class HelloWorld        Overloads Shared Sub Main(ByVal args() As String)           Dim name As String = "VB.NET" 'See if an argument was passed from the command line           If arg

VB.NET & (三层+泛型)实现组合查询

     对于组合查询,真的是"费劲苦难",当然也只是玩笑话,下边谈谈自己拼接字符串的办法吧!      首先我们要明确声明一个实体层,定义组合查询为实体类,将"字段,操作符,组合关系分别设为实体类combinQuery的属性 '字段1 Private _ComboFileName1 As String Public Property ComboFileName1() As String Get Return _ComboFileName1 End Get Set(value

演练:使用Xamarin.Forms开发产品介绍性质的应用(VB版)

概述 Xamarin这个使用mono和.net core的跨平台开发框架这几年在不断发展.被微软收购后的Xamarin为个人开发者提供了免费版的Xamarin for Visual Studio,吸引了更多开发人员的关注. Xamarin.Forms用起来比较方便,因为用这种方式编写一次就能到处运行.但是不知道为什么,Xamarin目前只完整支持C#.他们宣称支持的F#实际上只是比C#多了一些文档和不常用的工具上的支持,缺少Xaml后代码生成器等重要功能支持. 而VB就更受冷落了.用户建议Xam

PDM与Excel利用VB脚本进行互导

1.基础样例表和数据 Excel数据表,样例中有两个sheet.样表及数据如下: sheet1=> 主题域 表注释 表英文名称 表中文名称 列名 列中文名称 列注释 数据类型 主键 是否为空 默认值 协议 order_info 订单信息表 STATIS_DATE 统计时间 varchar2(100) order_info 订单信息表 ORDR_GUID 订单GUID varchar2(101) Y order_info 订单信息表 CO_CD 公司代码 varchar2(102) order_i

vb.net的UI设计

对UI设计我们应该不陌生了,自己做过几个小系统,像学生管理系统.机房收费系统等都是客户端模式,当然还有我们的牛腩新闻发布系统,这是我们第一次接触的比较正规的web系统.现在就vb.net的一些UI设计小技巧给大家做个总结,希望对我们的重构或合作都有所帮助吧. 合作的时候我是负责U层的,所以设计这里就要尽可能的想到"全心全意为人民服务".因为用户使用的时候就是跟页面交互嘛,对于系统内部的逻辑设计等都不会去了解,这就又说到了UI设计的重要性了,概念性的大家自己去查,这里只做一些小技巧. 1