资源简介

VB基本语句
-------赋值和分支
先玩一下，再上课！
报数游戏规则：
1.从第一排靠过道开始，按“S”型顺序，每个同学重新获取自己的临时学号。
……
15
16
……
14
13
12
11
10
9
8
1
2
3
4
5
6
7
现在开始报数，每个同学开始领取自己的号码！
记住自己的号码了吗?我们马上进入下一环节……
2.老师“开始”口令发出后，从“1号”同学重新开始报数，报数的同学要站起来，报数完毕后坐下。
要求：
①如果号码是3的倍数的学生不报数字，而是喊“好嗨呦”


②其他不是3的倍数的同学都报自己的号码；
3.报数一轮结束后，报错口号的同学和中间卡住忘记号码的同学站起来一起喊“好嗨呦”，如果没有报错的情况，说明我们全班同学都很集中注意力，我们全数通过，一起喊一句“好嗨呦”！

1.赋值语句
2.选择语句
VB基本语句
赋值语句：
是将等号（赋值号）右边的表达式的计算结果存储到等号左边指定的变量中，或存放到某个对象的指定的属性中。
语句格式： 变量名　=　表达式
　　 对象名. 属性名 = 表达式
例如：a=100
b=“abc”
c=True
Label1.caption = “你好！”
注意事项1：赋值语句遵循“以新换旧，后来居上”原则
思考：
在一段VB程序段中，有如下语句：
S=4+6
S=4*2
S=4*5
问：执行完该程序段后，S的值是多少？
注意事项2：赋值语句可以在一行上写一个语句，也可以在一行上写 多个语句，一行上相邻的两个语句之间用冒号（：）分隔
例如： a=5
b=a+3
c=2*a+b\8
也可以写成
a=5:b=a+3:c=2*a+b\8
试一试：
例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的值为（ ），变量的y值为（ ）.
x=3
y=8
x=x+y
y=x-y
x=x-y

同样能实现变量值的交换
8
3
VB基本语句

1.赋值语句
2.选择语句
选择结构与选择语句

if 条件 then
语句A
end if

if 条件 then
语句A
else
语句B
end if
If和end if 要成对出现
开始
表达式是否为true？
(轮到我报数吗？)
Y
N
结束
1.单分支结构（流程图）
语句1
(报数)
①（行If 语句 ）
If 条件表达式 Then 语句
②（块If 语句）
If 条件表达式 then
语句
End If
条件？
Y
N
语句
1.单分支结构（If语句）
If 轮到我报数吗 then 开始报数
If 轮到我报数吗 then
开始报数
End If
例1：输入一个数到变量a，输出它的绝对值（不用绝对值函数）
if ____ then
____
end if
a<0
a=-a
a<0
a = val(text1.text)
Label1.caption=str(a)
开始
我的号码是3的倍数吗？
Y
N
“好嗨呦”
2.双分支结构（流程图）
报自己号码
结束
2.双分支结构（If语句）
①（行If 语句 ）
If 条件表达式 Then 语句1 Else 语句2
②（块If 语句）
If 条件表达式 Then
语句块1
Else
语句块2
End If
If 号码是3的倍数 Then 好嗨呦 Else 报号码
If 号码是3的倍数 Then
好嗨呦
Else
报号码
End if
例2：从键盘分别输入两个不相等的数到变量a、b，输出其中较大的数。
if ____ then
____
else
____
end if
a>b
Text1.text=str( a)
Text1.text=str(b)
a>b
练习1.某宾馆的房间号由5位字符组成（例如A0823表示A幢8层23号房间）末位数字为奇数时表示房间朝南，为偶数时表示房间朝北，字符串变量s中存储了1个房间号，下列选项正确的是（ ）
If Then
a = "朝南"
Else
a = "朝北"
End If
text1.text=a
A.Val(mid(s,5,1))mod 2=1;
B.Val(mid(s,5,1))mod 2=0;
C.Val(mid(s,5,1))\ 2=1; D.Val(mid(s,5,1))\2=0;
A
块 If语句
If 条件表达式1 Then
语句块1
ElseIf 条件表达式2 Then
语句块2
……
ElseIf 条件表达式n -1Then
语句块n-1
Else
语句块 n
End If
3. If…Then…ElseIf(多分支结构)
不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。
简单计算器：
例：完善“简单计算器”的程序代码：
Private Sub Command1_Click()
Dim a As Single, b As Single, ch As String
a = Val(Text1.Text)
b = Val(Text3.Text)
ch = Text2.Text
If ch = "+" Then
Text4.Text = Str(a + b)
ElseIf ch = "*" Then

ElseIf ch = "-" Then
Text4.Text = Str(a - b)
ElseIf ch = "/" Then
If Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能为零“
Else
Text4.Text = "运算符不正确"
End If
End Sub
Text4.Text = Str(a * b)
b <> 0
例：评定成绩等级
90 ～100：“优”
80 ～ 89：“良”
70 ～ 79：“中”
60 ～ 69：“及格”
60分以下为“不及格”
mark >=80
If mark >=90 then
Label1. Caption= "优"
ElseIf Then
Label1. Caption = "良"
ElseIf mark >=70 Then
Label1. Caption = "中"
ElseIf mark >=60 Then
Label1. Caption = "及格"
Else


End If
Label1. Caption ="不及格"
1．赋值语句格式： 变量名　=　表达式
　　 对象名. 属性名 = 表达式
2.赋值语句遵循“以新换旧，后来居上”原则
3.赋值语句一行写多个语句时，相邻的两个语名句之间用冒号（：）分隔
4.If语句的格式和分支结构的意义
5. 行If语句，没有End If，块If语句中，If 应与 End If 配对
6. ElseIf 不要写成 Else If

内 容 小 结
老师寄语：
在你一生漫长的“顺序结构”中，希望大家学会选择，过有选择的人生，正确使用你的“If语句”。
成人的BMI数值：
过轻：低于18.5
正常：18.5-24（不包括18.5）
过重：24-28（不包括24）
肥胖：28-32
非常肥胖：高于32
体质指数（BMI）=体重（kg）÷身高^2（m）
BMI是世界公认的一种评定肥胖程度的分级方法，世界卫生组织(WHO)也以BMI来对肥胖或超重进行定义。
例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=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
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,0 B.0,27,0 C.0,0,27 D.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
成人的BMI数值：
过轻：低于18.5
正常：18.5-24（不包括18.5）
过重：24-28（不包括24）
肥胖：28-32
非常肥胖：高于32
体质指数（BMI）=体重（kg）÷身高^2（m）
BMI是世界公认的一种评定肥胖程度的分级方法，世界卫生组织(WHO)也以BMI来对肥胖或超重进行定义。
例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=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
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,0 B.0,27,0 C.0,0,27 D.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
课后思考：
循环语句

展开更多......

收起↑