VB语句赋值选择ppt课件

1、 VB基本语句基本语句 1.赋值语句赋值语句2.选择语句选择语句3.循环语句循环语句赋值语句赋值语句赋值语句：为变量或对象的属性变量赋值，赋值语句：为变量或对象的属性变量赋值，将赋值号右边的表达式的计算结果存储到左边将赋值号右边的表达式的计算结果存储到左边的变量中。的变量中。语句格式：语句格式： 变量名变量名= =表达式表达式 对象名对象名. . 属性属性 = = 表达式表达式例如：例如：a=100a=100 b=b=“abcabc” ” Text1.text = “Text1.text = “你好！你好！” Label1.caption=“45” Label1.caption=“45”注：赋

2、值遵循注：赋值遵循“以新换旧，后来居上以新换旧，后来居上”原则原则赋值语句使用注意事项赋值语句使用注意事项l1.虽然赋值号与关系运算符中的等于号都用“=”表示，但是vb系统会根据所处的位置自动判断是何种意义的符号。l2.赋值号左边只能是变量。 sin（x）=x+y x+y=3l3.不能用一条赋值语句给多个变量赋值 。 x=y=z=3 l例1已知变量a初值为4，b初值为7，将a，b中存放的两个数进行交换a=4b=7c=aa=bb=ca=4:b=7c=a : a=b : b=ca初值为4，b初值为7 c a b c a b实现变量值的交换赋值语句赋值语句l练1执行以下VB程序段后，变量x的值为（

3、） x=3 y=8 x=x+y y=x-y x=x-y A.3 B.8 C.5 D.13B同样能实现变量值的交换赋值语句赋值语句l练2 下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是（ ）Private Sub Command1_click()Dim n As Integer,x As Integern=Val(Text1.text)x=n Mod 10n=x*1000+n10Text1.Text=Str(n)End Sub4123 定义2个整型变量n，x将“1234”转换成数值后赋值给n注释语句VB基本语句基本语句 1.赋

4、值语句赋值语句2.选择语句选择语句3.循环语句循环语句开始表达式是否为true？ (周一不下雨？)YN语句1(升国旗)结束单分支结构If 条件表达式 Then 语句If 条件表达式 then 语句 End If条件？YN语句单分支结构单分支结构If 周一不下雨 then 升国旗If 周一不下雨 then 升国旗End Ifl例1有如下VB程序段： s=2 : k=1 If Not k=s Then s=s+k 该程序段运行后，s的值是（ ） A. 3 B.2 C.1 D.0Al练1 “如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语句是（ ） AIf a=0 And b=0 T

5、hen 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+1B开始xy？YNmax=xmax=y结束双分支结构 输出max两数比较大小双分支结构双分支结构If 条件表达式 Then 语句1 Else 语句2If 条件表达式 Then 语句块1 Else 语句块2End If条件YN语句1语句2l例2 有如下程序段运行后，y的值是 （ ） X=6:y=-10 If Not x0 Then x=y-5 Else y=x+4 A.10 B.-10 c.15 D.-15A If x=y and x3*y Then

6、y=x3 Else y=x成人的成人的BMI数值：数值：过轻：低于过轻：低于18.5正常：正常：18.5-24（不包括（不包括18.5）过重：过重：24-28（不包括（不包括24）肥胖：肥胖：28-32非常肥胖：高于非常肥胖：高于32体质指数（体质指数（BMIBMI）= =体重（体重（kgkg）身高身高22（m m） BMI BMI是世界公认的一种评定肥胖程度是世界公认的一种评定肥胖程度的分级方法，世界卫生组织的分级方法，世界卫生组织(WHO)(WHO)也以也以BMIBMI来对肥胖或超重进行定义。来对肥胖或超重进行定义。开始表达式1为true？Y语句1N表达式2为true？Y语句2N表达式3为

7、true？Y语句3NElse?Y语句0N结束多分支结构l块 If语句 If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 ElseIf 条件表达式n Then 语句块n Else 语句块 0 End If多分支多分支l例3小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在VB中编写了如下程序，程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）Private Sub Command1_Click( )Dim t As Integer, h As

8、 integerDim Ans as stringDim xs as singlet = Val(Text1.Text)h = Val(Text2.Text)xs=t2/hIf xs18 Then Ans=偏瘦Elseif xs 66 Then a = x ElseIf x 33 Then b = x Else c = x EndIfEnd Sub该程序执行后,变量a，b，c的值可能是:( )A.57,0,0B.0,27,0C.0,0,27D.67,37,27C小明在VB中编写了出租车收费的程序，代码如下：Dim d As Single, f As Singled Val(Text1.text)If d 3 Thenf 10ElseIf d 10 Thenf 10 2 * (d 3)Elsef 24 2.5