VB语句——赋值、选择

两数比较大小
开始
Y
N
x>y？ max=x
max=y
输出max
结束
双分支结构
双分支结构
If 条件表达式 Then 语句1 Else 语句2
If 条件表达式 Then 语句块1 Else 语句块2 End If
Y
条件
N
语句1
语句2

例2 有如下程序段运行后，y的值是 （ A ） X=6:y=-10 If Not x>0 Then x=y-5 Else y=x+4 A.10 B.-10 c.15 D.-15
赋值语句使用注意事项

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



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

赋值语句

练2
下列VB程序运行时，在文本框Text1中输入1234，单击命 令按钮Command1后，文本框Text1中显示的内容是（ 4123 ） Private Sub Command1_click() Dim n As Integer,x As Integer ‘定义2个整型变量n，x ‘将“1234”转换成数值后赋值给n n=Val(Text1.text) x=n Mod 10 n=x*1000+n\10 注释语句 Text1.Text=Str(n) End Sub
If x>=y and x<3*y Then y=x^3 Else y=x
BMI 是世界公认的一种评定肥胖程度 的分级方法，世界卫生组织 (WHO) 也以 BMI来对肥胖或超重进行定义。 体质指数（BMI）=体重（kg）÷身高^2（m）
Fra Baidu bibliotek
成人的BMI数值： 过轻：低于18.5 正常： 18.5-24 （不包括 18.5 ） 过重：24-28（不包括24） 肥胖：28-32 非常肥胖：高于32
开始 N 表达式1为true？ Y 表达式2为true？ N
语句1
Y 语句2
N 表达式3为true？ Y 语句3 N Else? Y 语句0
多分支结构
结束
多分支

块 If语句 If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 …… ElseIf 条件表达式n Then 语句块n Else 语句块 0 End If
VB基本语句
1.赋值语句 2.选择语句
3.循环语句
开始
Y 表达式是否为true？ (周一不下雨？)
语句1 (升国旗)
N
结束
单分支结构
单分支结构
If 条件表达式 Then 语句
If 周一不下雨 then 升国旗
If 条件表达式 then 语句 End If
If 周一不下雨 then 升国旗 End If

例3
小明在大街上经常看见一 种测量身高体重并提示肥 瘦的机器，很感兴趣，就 在VB中编写了如下程序， 程序运行时，在文本框 Text1中输入数据60，在文 本框Text2中输入数据178 ，单击命令按钮 Command1后，文本框 B 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=t^2/h If xs<18 Then Ans="偏瘦" Elseif xs<=25 then Ans="正常" Else Ans="肥胖" End If Text3.Text =Ans End Sub A.偏瘦 B.正常 C.肥胖 D.Ans
Y
条件？
语句
N
例1 有如下VB程序段： s=2 : k=1 If Not k=s Then s=s+k 该程序段运行后，s的值是（ A） A. 3 B.2 C.1 D.0

练1 “如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语 句是（ ） B 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
a初值为4，b初值为7
c
a
a=4 b=7 c=a a=b b=c
a=4:b=7 c=a : a=b : b=c
a
b
实现变量值的交换
b c
赋值语句
练1 执行以下VB程序段后，变量x的值为（ B） x=3 y=8 x=x+y y=x-y 同样能实现变量值的交换 x=x-y A.3 B.8 C.5 D.13
小明在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) 要测试所有分支程序代码是否正确。以下测试数据中，最恰当的 一组是( B ) A．3,10 B．15,2,6 C．－1,6,10 D．3,11,100
练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的值可能是:( C ) A.57,0,0 B.0,27,0 C.0,0,27 D.67,37,27
Visual Basic 基本知识
之基本语句
VB基本语句
1.赋值语句 2.选择语句
3.循环语句
赋值语句 赋值语句：为变量或对象的属性变量赋值， 将赋值号右边的表达式的计算结果存储到左边 的变量中。 语句格式： 变量名 = 表达式 对象名. 属性 = 表达式
注：赋值遵循“以新换旧，后来居上”原则
例如：a=100 b=“abc” Text1.text = “你好！” Label1.caption=“45”