内容正文:
第三单元 VB语句
信息技术
内容与要求
考试内容 考试要求
1.赋值语句 c
2.选择语句 c
3.循环语句 c
4.注释语句 c
信息技术
考点与典例
考点1
赋值语句
赋值语句的作用是把“=”右边的表达式的计算结果存储到“=”左边指定的变量中,或存放到某个对象的指定的属性中。常见格式:
格式1:变量名=表达式
格式2:对象名.属性名=表达式
重难点剖析
赋值语句中“=”两边的数据类型要一致。
信息技术
典例一
在VB中,下列属于正确赋值语句的是( )
A.x8=y*5 B.3x=y*5
C.True=a D.Val(Text1.Text)=5
解析:选项A中变量名合法,语句格式符合赋值语句格式,故选项A正确;
“3x”为数字开头不符合变量名命名规则,故选项B错误;“True”是VB中的逻辑常量,不能作为变量名,故选项C错误;“Val(Text1.Text)”对对象的属性进行了函数操作,为表达式,故选项D错误。
答案:A
信息技术
考点2
选择语句
选择语句能使程序在执行过程中,根据不同的判断结果,选择执行不同的
处理。
格式1:行If语句
If 条件表达式 Then 语句
If 条件表达式 Then 语句1 Else 语句2
格式2:块If语句
If 条件表达式1 Then
语句块1
ElseIf 条件表达式2 Then
信息技术
语句块2
……
ElseIf 条件表达式n Then
语句块n
Else
语句块0
End If
重难点剖析
行If语句不分行,最后没有“End If”;块If语句分行书写,最后一定要加“End If”。
信息技术
典例二
(2020·浙江1月选考)下列选项中,与语句“If x<0 Then y = -1 Else y = 1”功能相同的是( )
A.If x < 0 Then y = -1
y = 1
B.y=1
If x < 0 Then y = -1
C.If x < 0 Then y = -1
If x > 0 Then y = 1
D.If x > 0 Then y = 1 Else y = -1
信息技术
解析:本题考查的是IF选择语句,根据选择语句规则,如果x<0那么y等于-1,如果x>=0那么y等于1,A选项Then后面直接写结果,只判断了一个条件;
C、D选项缺失了x >=0这一判断条件。
答案:B
信息技术
典例三
下面VB程序的功能是根据身份证号判断性别。程序运行时,在文本框Text1中输入18位的身份证号,单击Command1按钮,在标签Label1中显示其性别(判断方法:身份证第17位上的数字表示性
别,如果该数是奇数表示男性,偶数表示为女性)。
Private Sub Command1_Click()
Dim x As String,y As Integer
x= ①
y=Val(Mid(x,17,1))
If ② Then
Label1.Caption = "男"
Else
Label1.Caption = "女"
End If
End Sub
为实现上述功能,在划线处填入合适的语句。
信息技术
解析:本题主要考查选择语句。变量x表示在文本框Text1中输入18位的身份证号,因此①处应填入的语句为Str(Text1.Text);②处语句表示性别判断的条件,根据题目中性别的判断方法可知,②处代码为y Mod 2=1 或 y Mod 2<>0。
答案:①Str(Text1.Text) ②y Mod 2=1或y Mod 2<>0
信息技术
考点3
循环语句
1.For 语句(适用于循环次数已知时)
For 循环变量 = 初值 To 终值 Step 步长
语句块
Next 循环变量
重难点剖析
①步长是非零整数;步长为1时,可省略不写;
②Next后面的循环变量与For语句中的循环变量必须一致。执行该语句后,循环变量的值增加一个步长值。
信息技术
2.Do语句(适用于不能预先知道循环次数时)
Do While 条件表达式
语句块
Loop
重难点剖析
①在Do While循环中需在循环前给变量赋初值;
②循环变量值的变化需在循环体中用语句实现。
信息技术
典例四
下列VB程序的功能是求自然数a除以自然数b的余数。在文本框Text1中输入自然数a,在文本框Text2中输入自然数b,单击按钮Command1后在文本框Text3中输出余数。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=Val(