VB语句-赋值、选择

VisualBasic基本知识

之基本语句VB基本语句

1.赋值语句2.选择语句3.循环语句赋值语句赋值语句：为变量或对象的属性变量赋值，将赋值号右边的表达式的计算结果存储到左边的变量中。语句格式：变量名=

表达式

对象名.属性=表达式例如：a=100

b=“abc”

Text1.text=“你好！”

Label1.caption=“45”注：赋值遵循“以新换旧，后来居上”原则赋值语句使用注意事项

1.虽然赋值号与关系运算符中的等于号都用“=”表示，但是vb系统会根据所处的位置自动判断是何种意义的符号。2.赋值号左边只能是变量。sin（x）=x+yx+y=33.不能用一条赋值语句给多个变量赋值。

x=y=z=3

例1已知变量a初值为4，b初值为7，将a，b中存放的两个数进行交换a=4b=7c=aa=bb=ca=4:b=7c=a:a=b:b=ca初值为4，b初值为7

ca

bcab实现变量值的交换赋值语句练1执行以下VB程序段后，变量x的值为（）

x=3

y=8

x=x+y

y=x-y

x=x-y

A.3B.8C.5D.13B同样能实现变量值的交换赋值语句练2

下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是（）PrivateSubCommand1_click()DimnAsInteger,xAsIntegern=Val(Text1.text)x=nMod10n=x*1000+n\10Text1.Text=Str(n)EndSub4123‘定义2个整型变量n，x‘将“1234”转换成数值后赋值给n注释语句VB基本语句

1.赋值语句2.选择语句3.循环语句开始表达式是否为true？(周一不下雨？)YN语句1(升国旗)结束单分支结构If

条件表达式Then

语句If

条件表达式

then

语句

EndIf条件？YN语句单分支结构If

周一不下雨then

升国旗If

周一不下雨then

升国旗EndIf例1有如下VB程序段：

s=2:k=1

IfNotk=sThens=s+k

该程序段运行后，s的值是（）A.3B.2C.1D.0A练1

“如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语句是（

）A．Ifa=0Andb=0Theny=y+1

B．Ifa*b=0Theny=y+1C．Ifa=0,b=0Theny=y+1D．Ifa,b=0Theny=y+1B开始x>y？YNmax=xmax=y结束双分支结构输出max两数比较大小双分支结构If

条件表达式Then

语句1Else

语句2If

条件表达式Then

语句块1

Else

语句块2EndIf条件YN语句1语句2例2

有如下程序段运行后，y的值是

（）X=6:y=-10IfNotx>0Thenx=y-5Elsey=x+4A.10B.-10c.15D.-15A

Ifx>=yandx<3*yTheny=x^3Elsey=x成人的BMI数值：过轻：低于18.5正常：18.5-24（不包括18.5）过重：24-28（不包括24）肥胖：28-32非常肥胖：高于32体质指数（BMI）=体重（kg）÷身高^2（m）BMI是世界公认的一种评定肥胖程度的分级方法，世界卫生组织(WHO)也以BMI来对肥胖或超重进行定义。开始表达式1为true？Y语句1N表达式2为true？Y语句2N表达式3为true？Y语句3NElse?Y语句0N结束多分支结构块If语句If条件表达式1Then

语句块1ElseIf条件表达式2Then

语句块2……ElseIf条件表达式nThen

语句块nElse

语句块0

EndIf多分支例3小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在VB中编写了如下程序，程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（

）PrivateSubCommand1_Click()DimtAsInteger,hAsintegerDimAnsasstringDimxsassinglet=Val(Text1.Text)h=Val(Text2.Text)xs=t^2/hIfxs<18ThenAns="偏瘦"Elseifxs<=25thenAns="正常"ElseAns="肥胖"EndIfText3.Text=AnsEndSubA.偏瘦 B.正常C.肥胖D.AnsB练3有如下VB程序段:PrivateSubCommand1_Click()a=0:b=0:c=0x=Int(Rnd()*100)Ifx>66Thena=x

ElseIfx>33Then

b=x

Else

c=x

EndIfEndSub该程序执行后,变量a，b，c的值可能是:()A.57,0,0 B.0,27,0 C.0,0,27 D.67,37,27C小明在VB中编写了出租车收费的程序，代码如下：DimdAsSingle,fAsSingled＝Val(Text1.text)Ifd<＝3Then

f＝10ElseIfd<＝10Then

f＝10＋2*