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