学考VB综合复习导学案

浙江省信息技术学选考导学案
学考篇
模块（）VB部分
主备人：陈超俊时间：班级：姓名：
适用：第二轮复习快速回顾
【学习目标】
1.知识与技能：
（1）顺序、选择、循环三种程序结构的掌握
（2）枚举算法和解析算法的掌握
（3）常用标准函数的掌握
2.过程与方法：
（1）．用考点的角度去解析三种程序结构的使用
（2）．以综合的算法题来融合算法和标准函数的使用
知识点
3.情感态度与价值观：从阅读程序中找到解决问题的方法途径，正确认识程序的实用性，提升学生严谨解决问题的态度。

【学习重点】
循环结构的掌握
枚举算法的解读
【学习难点】
1.枚举算法的解读，灵活应用VB的综合知识
【课前练习】
1.顺序结构主要由VB中的赋值语句来表示，而赋值符号由”“来表示，在程序题里赋值的大
量来源应该是输入和语句。

在程序代码的结构里，输入一般靠前，输出一般
用VB 编写程序，在文本框Text1 中输入任意字符串s，统计s 中数字字符
串的数值和（如输入字符串“ab123dr34fg9de”，则输出166，即123+34+9
＝166。

），并在Label3 输出结果Sum。

请根据上面题意(加粗部分)，完成下面程序填空
(1)s=
(2)Label3.Caption=Str()
2.选择结构主要由VB中的IF语句完成。

如果n为偶数，则flag=True,否则flag=False
行IF语句：If n mod 2 = Then flag = True Else
块IF语句：If n mod 2 = Then
Else
行IF语句必须写在行代码里，行IF语句表示的选择最多有种“可能性”，块IF语句可以写成行代码，块IF语句表示的选择可以有种“可能性”，块IF语句里Then后面必须,请完成下面的IF语句：
If n<0成立Then ‘第一种可能
x=1
( ) n>=0 and n<10( )‘第二种可能
x=2
( ) n>=10 ( ) n<20 Then‘第三种可能
x=3
( ) ‘第四种可能
x=4
( ) ‘IF语句结束
3.循环语句
For i=1 to 5 step 2
s=s+i
Next i i=1
Do While s=s+i Loop
以上语句里i称之为变量，i的初值为，终值为，步长为。

并将以上For语句转为Do While语句。

【课堂自主探究】
『考题演练算法综合』
4.某VB程序的代码如下：
Private Sub Command1_Click()
Dim m As Integer, s As String
m = Val(Text1.Text)
s = ""
Do While m <> 0
s = Str(m Mod 2) + s
m = m \ 2
Loop
Text2.Text = s
End Sub
运行程序时，在文本框 Text1 中输入 13，单击命令按钮 Command1，文本框 Text2 中显示的内容是
A． 1 0 1 1 B． 0 1 3 6 C． 1 1 0 1 D． 6 3 1
5.编写“减法练习题生成器” 程序，实现如下功能：在文本框Text1 中输入题数n，单击“题目生成”按钮Command1，在列表框List1 中显示n 个100 以内两数之差大于或等于0 的减法练习题。

程序运行界面如图a 所示。

（1）在设计程序界面时，使用图b 所示“控件工具箱”中的▲（填写相应编号）添加列表框List1。

（2）实现上述功能的VB 程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer
Dim t As Integer
Randomize
List1.Clear
n = Val(Text1.Text)
i = 1
Do While ①
a = Int(Rnd * 100):
b = Int(Rnd * 100) If b > a Then
t = a:②:b = t
End If
List1.AddItem "(" + Str(i) + ")" + Str(a) + "-" + Str(b) + "="
i = i + 1
Loop
End Sub
（3）运行该程序，文本框中输入8,单击“题目生成”按钮后，对语句t=a执行次数的描述，最合理的是▲（单选填字母：A．执行次数大于8 B．执行次数大于等于8 C．执行次数小于等于8）
6.小强用 VB 编写正整数十进制转换为十六进制的程序，运行界面如图所示。

程序功能如下：在文本框 Text1 中输入待转换的十进制值，单击“十进制转换十六进制”按钮 Command1，在文本框Text2 中输出转换结果。

（1）要使命令按钮 Command1 显示的文本改为“十进制转换十六进制”，可在其属性窗口中将▲属性的属性值修改为“十进制转换十六进制”。

（2）若在文本框 Text1中输入79，则文本框 Text2 中输出的值是▲。

（3）请在程序的划线处填写合适的代码。

Private Sub Command1_Click()
Dim a As String,s As String:Dim r As Integer,x As Integer
x = Val(Text1.Text)
s = ""
Do While x > 0
▲‘①
x = x \ 16
If r > 9 Then
a = Chr(r + 55)
Else
a = Str(r)
End If
s = a + s
▲‘②
Text2.Text = s
End Sub
7.编写VB程序，实现如下功能:在文本框Text1中输入一个正整数，单击“求数根”按钮Command1，在Text2 中输出该正整数的树根（数根：若一个正整数X 的各位数字之和是一位数，那么这个数就是X 的数根，否则再把这个数的各位数字相加，如此反复直到得到
，12 的各位数字相加1+2=3，则156 的
（1）如第2 图所示，在窗体 Form1
则（填：1/2/4,多选）处会随之改变。

（2）实现上述功能的 VB 程序如下，请在划线处填上合适的代码。

Private Sub Command1_Click()
Dim a As Integer, b As Integer, s As Integer
a = Val(Text1.Text):s = a
Do While s >= 10
a = ①
s = 0
Do While a > 0
b = a Mod 10 : s = s + b
a =②
Loop
Loop
Text2.Text = Str(s)
浙江省信息技术学选考导学案学考篇模块（）VB部分End Sub。