VB:if之外的4种判断语句

VB:if之外的4种判断语句
胡杰 发表于 2011-4-11:12:00

0推荐

VB的一个很大的优点就是语法比较丰富、灵活。在需要进行选择判断时,我们通常习惯使用 if …… endif 或者 if …… else…… endif,胡子先生就是如此。虽然if语句最简单,最容易理解,但并不是最有效率的选择,尤其是在进行一些比较复杂的判断的时候。

在下面的这个例子中,分别用4种语句来完成同一个任务,比较一下你就会发现它们有时可以互换,但也有区别。总结起来颇费文字,不如直接上代码:

PrivateSubCommand1_Click()'switch语句
Dimi,tt
i=Val(Text1)
tt=Switch(i>=90,"优",i>=80,"良",i>=60,"中",i<60,"差")
Label1.Caption=tt
Callclear
EndSub

PrivateSubCommand2_Click()'choose语句
Dimi,ii,iii,tt
i=Val(Text1)
ii=Int(i/10)
iii=10-ii
Ifiii>4Then
tt="差"
Else
tt=Choose(iii,"优","良","中","中")
EndIf
Label1.Caption=tt
Callclear
EndSub

VB:if之外的4种判断语句
PrivateSubCommand3_Click()'iif语句
Dimi,tt
i=Val(Text1)
tt=IIf(i>=60,"及格","不及格")
Label1.Caption=tt
Callclear
EndSub

PrivateSubCommand4_Click()'selectcase语句
Dimi,tt
i=Val(Text1)
SelectCasei
CaseIs>=90:tt="优"
CaseIs>=80:tt="良"
CaseIs>=70:tt="中"
CaseIs>=60:tt="及格"
CaseElse
tt="不及格"
EndSelect
Label1.Caption=tt
Callclear
EndSub

Subclear()
Text1=""
Text1.SetFocus
EndSub

  

爱华网本文地址 » http://www.aihuau.com/a/25101015/280437.html

更多阅读

Struts迭代器iterator 遍历List常用的4种例子 struts2迭代器

【摘要】本文主要介绍及演示了Struts迭代器(iterator)遍历List常用的4种例子,基于MyEclipse开发环境,重点关注前后端代码的实现,给出后端java代码、前段struts标签代码,主要有如下4个例子:1.遍历List<String>2.遍历List<List<String>>3.遍

普洱茶生茶的4种可行喝法? 普洱茶生茶

普洱茶生茶非常复杂,与原料、制作工艺,保存情况等相关;按照个人观点,只有3-4种喝法:方法1:传统喝法(烤茶、竹筒茶),将古茶树鲜叶在火塘边烤热,微焦后,煮水喝,可以多喝。方法2:绿茶喝法(滇绿、滇青、生饼、生砖等),如果不发酵、微微发酵总之发酵不

强势股高位放量的几种判断 高位放量

强势股高位放量的几种判断成交量是股票市场最重要的分析指标之一,任何不考虑成交量的分析,成功率往往也不高。成交量代表了投资者参与的意愿,很大的成家量即可以看作是卖盘意愿很强,也可以看作是买盘意愿很强,从传统的技术分析方法而言,

声明:《VB:if之外的4种判断语句》为网友线条化丶分享!如侵犯到您的合法权益请联系我们删除