VB语句——赋值、选择.ppt

1、Visual Basic 基本知识,之基本语句,VB基本语句,1.赋值语句 2.选择语句 3.循环语句,赋值语句,赋值语句：为变量或对象的属性变量赋值， 将赋值号右边的表达式的计算结果存储到左边 的变量中。 语句格式： 变量名=表达式 对象名. 属性 = 表达式 例如：a=100 b=“abc” Text1.text = “你好！” Label1.caption=“45”,注：赋值遵循“以新换旧，后来居上”原则,赋值语句使用注意事项,1.虽然赋值号与关系运算符中的等于号都用“=”表示，但是vb系统会根据所处的位置自动判断是何种意义的符号。 2.赋值号左边只能是变量。 sin（x）=x+y x+

2、y=3 3.不能用一条赋值语句给多个变量赋值 。 x=y=z=3,例1 已知变量a初值为4，b初值为7，将a，b中存放的 两个数进行交换,a=4 b=7 c=a a=b b=c,a=4:b=7 c=a : a=b : b=c,实现变量值的交换,赋值语句,练1 执行以下VB程序段后，变量x的值为（ ） x=3 y=8 x=x+y y=x-y x=x-y A.3 B.8 C.5 D.13,B,同样能实现变量值的交换,赋值语句,练2 下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是（ ） Private Sub Command1_c

3、lick() Dim n As Integer,x As Integer n=Val(Text1.text) x=n Mod 10 n=x*1000+n10 Text1.Text=Str(n) End Sub,4123,定义2个整型变量n，x,将“1234”转换成数值后赋值给n,注释语句,VB基本语句,1.赋值语句 2.选择语句 3.循环语句,开始,表达式是否为true？ (周一不下雨？),Y,N,语句1 (升国旗),结束,单分支结构,If 条件表达式 Then 语句,If 条件表达式 then 语句 End If,单分支结构,If 周一不下雨 then 升国旗,If 周一不下雨 then 升

4、国旗 End If,例1 有如下VB程序段： s=2 : k=1 If Not k=s Then s=s+k 该程序段运行后，s的值是（ ） A. 3 B.2 C.1 D.0,A,练1 “如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语句是（ ） AIf a=0 And b=0 Then y=y+1 BIf a*b=0 Then y=y+1 CIf a=0,b=0 Then y=y+1 DIf a,b=0 Then y=y+1,B,开始,xy？,Y,N,max=x,max=y,结束,双分支结构,输出max,两数比较大小,双分支结构,If 条件表达式 Then 语句1 Else

5、语句2,If 条件表达式 Then 语句块1 Else 语句块2 End If,例2 有如下程序段运行后，y的值是 （ ） X=6:y=-10 If Not x0 Then x=y-5 Else y=x+4 A.10 B.-10 c.15 D.-15,A,练2 如果yx3,则y= 3 , 否则y=x ，请用VB语句描述,If x=y and x3*y Then y=x3 Else y=x,成人的BMI数值： 过轻：低于18.5 正常：18.5-24（不包括18.5） 过重：24-28（不包括24） 肥胖：28-32 非常肥胖：高于32,体质指数（BMI）=体重（kg）身高2（m）,BMI是世界

6、公认的一种评定肥胖程度的分级方法，世界卫生组织(WHO)也以BMI来对肥胖或超重进行定义。,多分支结构,块 If语句 If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 ElseIf 条件表达式n Then 语句块n Else 语句块 0 End If,多分支,例3 小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在VB中编写了如下程序，程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）,Private Sub Command1_Click(

7、 ) Dim t As Integer, h As integer Dim Ans as string Dim xs as single t = Val(Text1.Text) h = Val(Text2.Text) xs=t2/h If xs18 Then Ans=偏瘦 Elseif xs=25 then Ans=正常 Else Ans=肥胖 End If Text3.Text =Ans End Sub A.偏瘦 B.正常 C.肥胖 D.Ans,B,练3 有如下VB程序段: Private Sub Command1_Click() a = 0: b = 0: c = 0 x = Int(Rnd() * 100) If x 66 Then a = x ElseIf x 33 Then b = x Else c = x EndIf End Sub 该程序执行后,变量a，b，c的值可能是:( ) A.57,0,0B.0,27,0C.0,0,27D.67,37,27,C,小明在VB中编写了出租车收费的程序，代码如下： Dim d As Single, f As Single d Val(Text1.text) If d 3 Then f 10 ElseIf d 10 Then f 10 2 *