VB语句——赋值、选择

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,Visual Basic,基本知识,之基本语句,VB,基本语句,1.,赋值语句,2.,选择语句,3.,循环语句,赋值语句,赋值语句：为变量或对象的属性变量赋值,，,将,赋值号右边的表达式的计算结果存储到,左边,的,变量中。,语句格式：,变量,名,=,表达式,对象名,.,属性,=,表达式,例如,：,a=100,b=,“,abc,”,Text1.text=“,你好！,”,Label1.caption=“45”,注：赋值遵循“以新换旧，后来居上”原则,赋值语句使用注意事项,1.,虽然,赋值,号与关系运算符中的等于号都用“,=,”表示，但是,vb,系统会根据所处的位置自动判断是何种意义的符号。,2.,赋值号左边只能是变量。,sin,（,x,）,=x+y,x+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,a,初值为,4,，,b,初值为,7,c a,b c,a b,实现变量值的交换,赋值语句,练,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_click(),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,条件？,Y,N,语句,单分支结构,If,周一不下雨,then,升国旗,If,周一不下雨,then,升国旗,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,语句是（,）,A,If a=0 And b=0 Then y=y+1,B,If a*b=0 Then y=y+1,C,If a=0,b=0 Then y=y+1,D,If a,b=0 Then y=y+1,B,开始,xy,？,Y,N,max=x,max=y,结束,双,分支结构,输出,max,两数比较大小,双分支结构,If,条件表达式,Then,语句,1,Else,语句,2,If,条件表达式,Then,语句块,1,Else,语句块,2,End If,条件,Y,N,语句,1,语句,2,例,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,如果,x,则,y=,否则,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,是世界公认的一种评定肥胖程度的分级方法，世界卫生组织,(WHO),也以,BMI,来对肥胖或超重进行定义。,开始,表达式,1,为,true,？,Y,语句,1,N,表达式,2,为,true,？,Y,语句,2,N,表达式,3,为,true,？,Y,语句,3,N,Else?,Y,语句,0,N,结束,多,分支结构,块,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(),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 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*(d,3),Else,f,24,2.5*(d,10),End If,Text2.text,str(f),要测试所有分支程序代码是否正确。以下测试数据中，最恰当的一组是,(,),A,3,10 B,15,2,6 C,1,6,10 D,3,11,100,B,