VB专题习题
Else
Text2.Text = \不是闰年\ End If End Sub
为实现上述功能， 程序①加框处应填写为________________
10. 编写VB程序，实现如下功能：在文本框Text1中输入骑士奔跑的速度值（为1到10之间的整数），单击“奔跑”按钮Command1，骑士以相应的速度从左往右循环奔跑，单击“停止”按钮Command2，骑士停止奔跑。界面如第14题-1图所示。
（1）在设计应用程序界面时，应使用第14题-2图所示“控件工具箱”中的 （填写相应编号）添加用于输入文字“加减速（1到10）”的控件。
（2）为实现上述功能，请在划线处填入合适代码。 Private Sub Command1_Click() Dim x As Integer
x =
If (x > 0) And (x <= 10) Then Timer1.Enabled = Timer1.Interval = 1000 \\ x Else
Text1.Text = \错误\ End Sub
第14题-1图 第14题-2图
三、程序填空题（选考部分）
1. 【加试题】编写VB程序，在如第16题-1图所示1×1的正方形区域内产生一定数量、位置随机的点坐标，统计位于0.5×0.5的黑色区域内（包括边界）点的数量。程序运行时界面如第16题-2图所示。
21 / 30
VB专题习题
第16题-1图 第16题-2图
自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1
中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整。
Private Sub Command1_Click( )
Dim n As Integer, m As Integer, i As Integer Dim x As Single, y As Single n = ① m=0 Randomize
′初始化Rnd函数
For i = 1 To n
x = Rnd ′随机产生x坐标，0≤x＜1 y = Rnd ′随机产生y坐标，0≤y＜1 ② Next i
Text2.Text = Str(m) End Sub
第16题-3图
2.【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图(第17题-1图)所示，Command1鼠标单击事件过程的流程图如图(第17题-2图)所示。
22 / 30
VB专题习题
第17题-1图
程序代码如下：
Private Sub Command1_Click() Dim i As Integer
List1.Clear '清除列表框内容 For i = 3 To 97 ___①___ If f(i) And ② Then
List1.AddItem Str(i) + \和 \ End If Next i End Sub
Private Function f(x As Integer) As Boolean 型
Dim j As Integer f = True
For j = 2 To Int(Sqr(x)) If x Mod j = 0 Then f = ③
'函数返回值
'自定义函数f,返回值为逻辑
第17题-2图
Exit For '跳出For循环 End If Next j End Function
(1)程序中加框部分的算法是 （选填：解析算法/枚举算法）(2分) (2)在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整： 程序中①划线处应填入 (1分) 程序中②划线处应填入 (1分)
23 / 30
VB专题习题
程序中③划线处应填入 (1分)
3. 小王设计了一个程序来列举仁川亚运会奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。
请根据算法将下列程序补充完
整。
Dim a(1 To 45) As String Dim b(1 To 45) As Integer
Private Sub Form_Load() a(1) = \中国\
b(1) = 308 ‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中 End Sub
Private Sub Command1_Click() Dim i As Integer,j As Integer Dim t As Integer,f As Integer List1.Clear For i = 1 To 3
For j = ? To i+1 Step -1 If ? Then
f = a(j): a(j) = a(j - 1): a(j - 1) = f t = b(j): b(j) = b(j - 1): b(j - 1) = t End If Next j Next i For i = 1 To 3
List1.AddItem \第\名\奖牌数\Next i End Sub
4.[加试题]王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。
24 / 30