Ethon

为什么要有方法,因为懒惰是一种美德。

   :: 首页  :: 新随笔  ::  ::  :: 管理
  153 随笔 :: 0 文章 :: 2 评论 :: 30万 阅读

经常地,当我们编写代码时,我们需要根据不同的判断执行不同操作,我们可以使用条件语句完成这个工作。

If...Then...Else

在下面的情况中,您可以使用 If...Then...Else 语句:

  • 在条件为 true 时,执行某段代码
  • 选择两段代码之一来执行时
dim a '定义一个变量
a = 100
if a < 200 then a = 300 '若i<200,则对i重新赋值
msgbox a '输出的值为300

要运行多行代码,必须使用多行(或块)语法,多行(或块)语法包含 End If 语句

复制代码
dim a,b,c
a=inputbox("请输入a的值:")
b=100
c=200
if a<200 then '条件为 True 时运行某一语句块,条件为 False 时运行另一语句块
    msgbox b
else
    msgbox c
end if
复制代码

 对多个条件进行判断,可以添加任意多个 ElseIf 子句以提供多种选择

复制代码
dim a
a=inputbox("请输入a的值:")
if a<200 then '条件为 True 时运行某一语句块,条件为 False 时运行另一语句块
    msgbox "执行语句1"
elseif a=200 then 
    msgbox "执行语句2"
elseif a>200 then
    msgbox "执行语句3"
end if
复制代码

 Select Case结构提供了 If...Then...ElseIf结构的一个变通形式,可以从多个语句块中选择执行其中的一个。Select Case语句提供的功能与 If...Then...Else语句类似,但是可以使代码更加简练易读。

复制代码
'Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较,如果匹配,则执行与该Case 关联的语句块。
dim a
a=inputbox("随便填写一个数")
a=int(a)
select case a 
    case 6,7,8,9 msgbox("还行")
    case 10,11,12,13,14,15 msgbox("一般")
    case 16,17,18,19,20 msgbox("可以了")
    case 21,22,23,24,25 msgbox("无敌了")
    case else msgbox("做梦呢")
end select
复制代码

 注意: Select Case结构只计算开始处的一个表达式(只计算一次),而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式,这些表达式可以各不相同。仅当每个 ElseIf 语句计算的表达式都相同时,才可以使用 Select Case 结构代替If...Then...ElseIf 结构。

posted on   Ethon  阅读(1835)  评论(0编辑  收藏  举报
编辑推荐:
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
阅读排行:
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布:重大改进与新特性概览!
· AI与.NET技术实操系列(二):开始使用ML.NET
· 单线程的Redis速度为什么快?
点击右上角即可分享
微信分享提示