计算机二级考试VB上机练习题

〖第1题〗『程序填空』(1分)(题号:532)

【程序填空】''题目：输入n个数，n由用户输入。 ' 程序的功能是将输入的n个数反向输出? 请在【】处填入正确的 Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show

Dim a(100) As Single

n = Val(InputBox(\输入个数n\ Print \处理前数据 :\

'**********SPACE********** For k = 1 To 【?】

a(k) = Val(InputBox(\请输入第\& \个数\

Print a(k); Next k Print

'**********SPACE********** m = Int(【?】) For k = 1 To m h = n - k + 1

'**********SPACE********** t = a(h): 【?】: a(k) = t Next k

Print \处理的结果 :\ For k = 1 To n Print a(k); Next k End Sub 答案：1). n 2). n / 2 3). a(h) = a(k)

〖第2题〗『程序填空』(1分)(题号:498) '【程序填空】

''题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为： '36 '25 '16 '9

请在【】处填入正确的内容 Private Sub Command1_Click() Dim xx(6) As Integer Dim k%

Open App.Path & \ For I = 1 To 6

'**********SPACE********** j = 【?】 Print #1, j Next I Close #1

Open App.Path & \ k = 0

Do While Not EOF(2)

'**********SPACE********** k = 【?】 Input #2, xx(k) Loop Close #2

'**********SPACE********** For I = k To k / 2 Step【?】 Form1.Print xx(I) Next I End Sub 答案： 1). I * I

2). k + 1 或 1 + k 3). -1

〖第3题〗『程序填空』(1分)(题号:501) '【程序填空】

''题目：本程序执行后，最终在窗体上打印数字7。请在【】处填入正确的内容 Private Sub Command1_Click() Dim a As String

'**********SPACE**********

Open App.Path & \【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1

'**********SPACE**********

Open App.Path & \【?】 As #1 For I = 1 To n

Input #1, a If I Mod 5 = 0 Then

'**********SPACE********** Print CInt(a) + 【?】 End If Next I Close #1 End Sub 答案：

1). Output 2). Input 3). 1

〖第4题〗『程序填空』(1分)(题号:46) '【程序填空】

''题目：从键盘输入学生分数，统计学生总人数和各分数段人数，

' 即优秀（90-100）、良好（80-89）、中等（70-79）、

' 及格（60-69）、不及格（60以下）的人数。 Private Sub Form_Click()

Dim score%, n1%, n2%, n3%, n4%, n5% msg = \请输入分数（-1结束）\msgtitile = \输入数据\

score = Val(InputBox(msg, msgtitle)) '**********SPACE********** While 【?】 total = total + 1

'**********SPACE********** Select Case 【?】 Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1

'**********SPACE********** 【?】

score = Val(InputBox(msg, msgtitle)) Wend

Print n1, n2, n3, n4, n5,total

End Sub 答案：

1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或 0<=score ★And★ 100>=score 或 score >=0 ★And★ 100>=score 2). score 3). End Select

〖第5题〗『程序填空』(1分)(题号:503) '【程序填空】

''题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。

' 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位

' 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成:

' （1）单击\＞＞\钮，左边组合框中的10个数全部移动到右边组合框，并由大到

' 小排列，同时使\＜＜\钮能响应，\＞＞\钮不能响应。

' （2）单击\＜＜\钮，右边组合框中的10个数全部移到左边的组合框，并由小到

' 大排列，同时使\＞＞\钮能响应，\＜＜\钮不能响应；

' （3）单击\结束\按钮，结束程序运行。 请在【】处填入正确的内容 Private Sub cmdLeft_Click() Dim i As Integer

For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i

comboRight.Clear

'**********SPACE********** 【?】= False

'**********SPACE********** 【?】 = True End Sub

Private Sub cmdRight_Click() Dim i As Integer

'**********SPACE********** For i = 0 To 【?】 - 1

comboRight.AddItem comboLeft.List(i) Next i

'**********SPACE**********

【?】.Clear

cmdRight.Enabled = False cmdLeft.Enabled = True End Sub

Private Sub Command3_Click() End End Sub

Private Sub Form_Load() Dim i As Integer

Label1.Caption = \组合框1\ Label2.Caption = \组合框2\ cmdRight.Caption = \ cmdRight.Enabled = True cmdLeft.Caption = \ cmdLeft.Enabled = False cmdExit.Caption = \结束\ comboLeft.Text = \ For i = 1 To 10

comboLeft.AddItem Int(Rnd * 900) + 100 Next i

comboRight.Text = \End Sub 答案：

1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft

〖第6题〗『程序填空』(1分)(题号:511) '【程序填空】

''题目：程序输出结果为：n=3 x=42 y=9 请在【】处填入正确的内容 Private Sub Command1_Click() Dim n, x, y As Integer

'**********SPACE********** n = 0: x =【?】: y = 0 Do While x < 20

'**********SPACE********** n = n 【?】 y = x + y x = x * (x + 1)

'**********SPACE********** 【?】

Form1.Print \ Form1.Print \

Form1.Print \End Sub 答案： 1). 1 2). + 1 3). Loop

〖第7题〗『程序填空』(1分)(题号:523) '【程序填空】

'题目：下面的程序用于求三个数中最大数 '请在【】处填入正确的内容 Private Sub Command1_Click() Dim a, b, c, max, min As Integer

a = Val(InputBox(\请输入第一个数： \ b = Val(InputBox(\请输入第二个数： \ c = Val(InputBox(\请输入第三个数： \ '**********SPACE********** 【?】 = a min = a

'**********SPACE********** If b > max Then 【?】 If b < min Then min = b '**********SPACE********** If 【?】 Then max = c ' If c < min Then min = c Print \最大数为： \ Print \最小数为：\ End Sub

答案： 1). max 2). max = b

3). c > max 或 max < c

〖第8题〗『程序填空』(1分)(题号:507) '【程序填空】

'题目： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的

' 内容一个字符一个字符地读入文本框txtTest中

请在【】处填入正确的内容 Private Sub Form_Click()

Dim InputData As String * 1 txtTest.Text = \

'**********SPACE**********

Open App.Path & \For 【?】 As #1

'**********SPACE**********

Do While 【?】 EOF(1) Input #1, InputData

'**********SPACE********** txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub 答案： 1). Input 2). Not 3). InputData

〖第9题〗『程序填空』(1分)(题号:50) '【程序填空】

''题目：从键盘上输入一串字符，以\结束，统计输入字符中的

' 大、小写字母和数字的个数。 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0

ch = InputBox(\请输入一个字符\'**********SPACE********** While 【?】 Select Case ch Case \ n1 = n1 + 1

'**********SPACE********** Case 【?】 n2 = n2 + 1 Case \ n3 = n3 + 1 End Select

ch = InputBox(\请输入一个字符\'**********SPACE********** 【?】 Print n1, n2, n3 End Sub 答案：

1). ch ★<>★ \ 2). \ 3). Wend

〖第10题〗『程序填空』(1分)(题号:62) '【程序填空】

''题目：输入任何一个英文字母x,若x的值 为\则

' 显示x的大写字母；若x的值为\则显示x的

' 小写字母；若为其它的值,则显示xa（如输入的X的值是

' g，则显示ga）。 Private Sub Command1_Click() x = Text1.Text

'**********SPACE********** 【?】

Case \

Label1.Caption = UCase(x) '**********SPACE********** Case 【?】

Label1.Caption = LCase(x) '**********SPACE********** 【?】

Label1.Caption = Trim(x) + \ End Select End Sub 答案：

1). Select Case x 2). \ 3). Case Else

〖第11题〗『程序填空』(1分)(题号:65) '【程序填空】

'题目：根据输入的学习成绩,分别显示优秀(90分以上), 良好(75

' 分以上),及格(60分以上),不及格几个等级。 Private Sub Command1_Click() x = Val(Text1.Text) If x >= 90 Then Print \优秀\

'**********SPACE********** 【?】

Print \良好\ElseIf x >= 60 Then

'**********SPACE********** 【?】

'**********SPACE********** 【?】

Print \优秀\End If

End Sub 答案：

1). ElseIf x >= 75 Then 或 ElseIf 75 <= x Then

2). print \及格\ 3). Else

〖第12题〗『程序填空』(1分)(题号:60) '【程序填空

'题目：输入任何一个英文字母x,

' 若x的值 为\则显示x的大写字母；

' 若x的值为\则显示x的小写字母；

' 若为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

Private Sub Command1_Click() x = Text1.Text

'**********SPACE********** 【?】

'**********SPACE********** Case 【?】

Label1.Caption = UCase(x) Case \

Label1.Caption = LCase(x) Case Else

'**********SPACE********** 【?【 Ejd Select End Sub 答案：

1). Select Case x

Next i

Max = mat(1, 1) For i = 1 To n For j = 1 To m

'**********SPACE********** If 【?】 Then Max = mat(i, j) col = j

'**********SPACE********** 【?】 End If Next j Next i Print

Print \矩阵最大的元素的值为：\Print \它所在的行号为：\列号为：\End Sub 答案：

1). ReDim mat(n, m) As Integer 2). Max < mat(i, j) 或 mat(i, j) > Max 3). row = I〖第26题〗『程序填空』(1分)(题号:529)

-【程序填空】题目：窗体上建立了两个文本框Text1(输入字符串)及

' Text2(转换结果)，一个命令按钮Command1(\清除\。

' 录入Text1内容时将，将录入内容大写字母转为小写，

' 小写转为大写 请在【】处填入正确的内容 Private Sub Command1_Click() Text1.Text = \ Text2.Text = \ Text1.SetFocus End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1

'**********SPACE********** s = 【?】(KeyAscii) Select Case s

'**********SPACE********** Case \【?】 \ s = LCase(s)

Case \

'**********SPACE********** s = 【?】 Case Else s = \ End Select

Text2.Text = Text2.Text + s End Sub 答案： 1). Chr 2). To 3). UCase(s)

〖第27题〗『程序填空』(1分)(题号:508) 【程序填空】

题目：用Circle 方法在图片框中正中画出许多不同颜色的同心圆，

' 且不能画出图片框? '请在【】处填入正确的内容 Private Sub Picture1_Click() Dim CX, CY, Radius, Limit ScaleMode = 3

'**********SPACE********** CX = 【?】

CY = Picture1.ScaleHeight / 2 '**********SPACE**********

If CX > CY Then Limit = CY Else 【?】 '**********SPACE********** For Radius = 0 To 【?】 Picture1.Circle (CX,

CY),

Radius,

RGB(Rnd * 255, Rnd * 255, Rnd * 255)

Next Radius End Sub 答案：

1). Picture1.ScaleWidth / 2 2). Limit = CX 3). Limit

〖第28题〗『程序填空』(1分)(题号:52) 【程序填空】

'题目：下面的程序段用于打印出以下图形 '

' * ' ***

' ***** ' ******* ' ***** ' *** ' *

'------------------------------------------------------- Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 - i Print \ Next j

'**********SPACE********** For k = 0 To 【?】 Print \ Next k Print Next i For i = 0 To 2 For j = 0 To i

'**********SPACE********** 【?】 Next j

For k = 0 To 4 - 2 * i Print \ Next k

'**********SPACE********** 【?】 Next i End Sub 答案：

1). 2★ *★ i★+★1 2). Print \ 3). Print

〖第29题〗『程序填空』(1分)(题号:57) 【程序填空】

'题目：代码功能：求 1!+2!+??10!的值。Private Sub Form_Click() '**********SPACE********** 【?】 s = 1

For I = 2 To 10 t = t * I

'**********SPACE********** 【?】

'**********SPACE********** 【?】 Print s End Sub 答案： 1). t = 1

2). s =★ s★ +★ t 3). Next I 或 Next

〖第30题〗『程序填空』(1分)(题号:515) '【程序填空】

'题目：由输入对话框输入n（n必须为大于零且小于30的自然数），

' 计算下列表达式的值，并在标签框Label1上显示。

' sum=1/2+1/6+ ... +1/(k*(k=1)) (k

'请在【】处填入正确的内容 'Private Sub Form_Click()

Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(\请输入自然数n(n>0 且n<30)\

'**********SPACE********** Do While n <= 0 【?】 n >= 30 n = Val(InputBox(\请重输入\ Loop sum = 0 k = 0 Do

'**********SPACE********** k =【?】

sum = sum + 1 / (k * (k + 1)) '**********SPACE********** Loop Until k >= 【?】

Label1.Caption = \ End Sub 答案： 1). Or

2). k + 1 或 1 + k 3). >= n

〖第31题〗『程序填空』(1分)(题号:51)

【程序填空】题目：下面的程序段用于建立文件并

输出文件，文件内容如下： ' '***** ' ***** ' ***** ' ***** ' *****

'------------------------------------------------------- Private Sub Form_Click() '**********SPACE********** Open \【?】 As #1 For i = 1 To 5

Print #1, Spc(i); \Next i

'**********SPACE********** 【?】

'**********SPACE********** Open \【?】 As #1 For i = 1 To 5 Line Input #1, x Print x Next i Close #1 End Sub 答案：

1). Output 2). Close #1 3). Input

〖第32题〗『程序填空』(1分)(题号:61)

'【程序填空】'题目：根据输入的学习成绩,分别显示优秀(90分以上), 良好

' (75分以上),及格(60分以上),不及格几个等级。

Private Sub Command1_Click() x = Val(Text1.Text) If x >= 90 Then

Label1.Caption = \优秀\'**********SPACE********** ElseIf 【?】Then

Label1.Caption = \良好\ElseIf x >= 60 Then

'**********SPACE********** 【?】

'**********SPACE**********

【?】

Label1.Caption = \不及格\End If End Sub 答案：

1). x >= 75 或 75 <= X 2). Label1.Caption = \及格\ 3). Else

〖第33题〗『程序填空』(1分)(题号:510) 【程序填空】

'题目：在窗体上设计两个文本框和两个标签，标签上显示\摄氏

' 温度\和\华氏温度\，文本框一个用于输入摄氏温度数，

' 一个用于输出对应的华氏温度?摄氏温度与华氏温度的

' 转换公式为: c = (5 / 9) * (f - 32)

' 要求：对输入的摄氏温度数有检查功能，以拒绝接收非

' 数字字符?运行界面如图所示: '请在【】处填入正确的内容 'Private Sub Command1_Click() Text1 = \ Text2 = \

Text1.Enabled = True Text2.Enabled = True Text1.SetFocus End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() Text1 = \ Text2 = \

Text1.Enabled = False Text2.Enabled = False End Sub

Private Sub Text1_Change() '**********SPACE**********

【?】 = 5 * (Val(Text1.Text) - 32) / 9 End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 Then

'**********SPACE**********

If Chr(KeyAscii) < \【?】 Then

'**********SPACE********** KeyAscii = 【?】 End If End If End Sub 答案：

1). Text2.Text 或 Text2 2). \ 3). 0

〖第34题〗『程序填空』(1分)(题号:504) '【程序填空】

'题目：写出程序运行后，单击窗体，Form1上显示的内容

' sum 函数的功能为求阶乘和 ' isum = 1 ' isum = 3 ' isum = 6 ' isum = 10 ' isum = 15

'请在【】处填入正确的内容 'Private Sub Form_Click()

Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【?】 isum = sum(I)

'**********SPACE********** Form1.Print \＝\【?】 Next I End Sub

Private Function sum(n As Integer) Static j As Integer

'**********SPACE********** 【?】 = j + n sum = j End Function 答案： 1). 5 2). & isum 3). j =

〖第35题〗『程序填空』(1分)(题号:45) '【程序填空】

'题目：下面的程序段用于求矩阵相乘C=A×B，设A、B、C分别为

' m×p、p×n、m×n的矩阵。 Private Sub Form_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer

Dim i As Integer, j As Integer, k As Integer, sum As Integer For i = 1 To m For k = 1 To p a(i, k) = i Next k Next i For i = 1 To p For k = 1 To n b(i, k) = i Next k Next i For i = 1 To m For j = 1 To n

'**********SPACE********** 【?】 For k = 1 To p

'**********SPACE********** sum = sum +【?】 Next k

'**********SPACE********** c(i, j) =【?】 Next j, i Print \输出矩阵\For i = 1 To m For k = 1 To n Print c(i, k), Next k Print Next i End Sub 答案：

1). sum = 0

2). a(i, k) ★*★ b(k, j) 3). sum

〖第36题〗『程序填空』(1分)(题号:499)

【程序填空】

'题目：由筛选法求m以内的所以素数 '（1）把2--m以内的所有数放入筛中；

'（2）找筛中最小的素数，再筛中去掉该素数的所有倍数；

'（3）重复（2），直到要找的筛中的最小素数已超出m 的范围；

'（4）在Pictur1中打印筛中的素数。 '请在【】处填入正确的内容

Private Sub txtInput_KeyPress(KeyAscii As Integer) Dim I As Integer, j As Integer Dim prime(1000) As Integer Dim m As Integer, p As Integer Dim flag As Boolean If KeyAscii = 13 Then

'**********SPACE********** m = Val(【?】)

For I = 2 To m - 1 '筛子充满数 prime(I) = 1 Next I p = 2 flag = True Do

Do While p < m And prime(p) = 0 '找筛子中最小的数

'**********SPACE********** p = 【?】 Loop

'**********SPACE**********

If p = m Then flag = 【?】 '筛了中的数全求过结束

For I = p + p To m - 1 Step p '在筛子中清除该素数的倍数 prime(I) = 0 Next I p = p + 1

Loop While flag = True I = 0

For j = 2 To m - 1 '打印素数 '**********SPACE********** If 【?】 Then Picture1.Print j; I = I + 1

If I Mod 5 = 0 Then Picture1.Print '一

行打印5个素数

'**********SPACE********** 【?】 Next j End If End Sub 答案：

1). Val(txtInput.text) 或 Val(txtInput) 2). p+1 或 1+p 3). False 4). Prime(j)<>0 5). End If

〖第37题〗『程序填空』(1分)(题号:534) '【程序填空】

'题目：在窗体上有两个列表框List1(处理前数据)和List2(处理

' 后数据)，以及标签Label1。程序功能为：随机生成100个

' 0-20的随机数填入List1，并将这些随机数中的零元素删

' 除，填入List2中。最后在Label1中显示零元素个数

'请在【】处填入正确的内容 ' Private Sub Form_Load() Dim n As Integer Dim i, x, k As Integer

Dim a(100) As Integer, b(100) As Integer Randomize n = 100

'**********SPACE********** For i = 1 To 【?】

'**********SPACE********** x = Int(20 * 【?】) List1.AddItem x a(i) = x Next i k = 0

For i = 1 To n '删除零元素 If a(i) <> 0 Then

'**********SPACE********** 【?】: b(k) = a(i) List2.AddItem b(k) End If Next i

count = 0 For t1 = 3 To 100

'**********SPACE********** flag = 【?】

For t2 = 2 To Int(Sqr(t1))

If t1 Mod t2 = 0 Then flag = False Next t2 If flag Then

'**********SPACE********** count = 【?】 Write #1, t1 End If Next t1

Form1.Print \素数个数\ Close #1 End Sub 答案： 1). #1 2). True

3). count + 1 或 1 + count 〖第52题〗『程序填空』(1分)(题号:58) '【程序填空】

题目：代码功能：求A,B,C三个数的最大值。Private Sub Command1_Click() A = Val(Text1.Text)

'**********SPACE********** 【?】

C = Val(Text2.Text) If A > B And A > C Then MAXDATE = A '**********SPACE********** ElseIf 【?】 Then MAXDATE = B Else

'**********SPACE********** 【?】 End If

Label1.Caption = MAXDATE End Sub 答案：

1). B = Val(Text2.Text) 2). B> C 或 C

〖第53题〗『程序填空』(1分)(题号:524)

Option Explicit '【程序填空】

'题目：下面是一个体操评分程序，10位评委，除去一个最

' 高分和一个最低分，计算平均分 (设满分为 10 分) 。

请在【】处填入正确的内容 'Private Sub Command1_Click()

Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer

'**********SPACE********** 【?】 Min = 10 For i = 1 To 10

n = Val(InputBox(\ 请输入分数： \ '**********SPACE********** If n > Max Then【?】 If n < Min Then Min = n s = s + n Next i

'**********SPACE********** s = s - Max 【?】 p = s / 8

Print \最高分 ：\ Print \最低分 ：\ Print \最后得分：\End Sub 答案：

1). Max = 0 2). Max = n 3). - Min

〖第54题〗『程序填空』(1分)(题号:502) '【程序填空】

'题目：用输入对话框输入x , 根据如图公式计算对应的y,

' 并在窗体上输出y的值? '请在【】处填入正确的内容 'Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】 As Single '**********SPACE**********

x = Val(【?】(\输入X的值\

If x = 10 Then

'**********SPACE********** 【?】

ElseIf x > 10 Then

'**********SPACE********** y = Sqr(x) 【?】 Else

y = 2 * x ^ 3 + 6 End If Print y End Sub 答案： 1). y 2). InputBox 3). y = 0 4). + Sin(x)

〖第55题〗『程序填空』(1分)(题号:517) '【程序填空】

'题目： 用户单击命令按钮后，程序将文本框Text1中的文本反转显示，

' 同时在文本框Text2中显示文本框Text1框中字符串的个数?

' 设在一个窗体中已经设置了二个文本框Text1和Text2，

' 以及一个命令按钮，且设计有下列程序，请指出程序的功能。 '请在【】处填入正确的内容 'Private Sub Command1_Click() If Text1.Text = \ Exit Sub Text2.Text = 0 Else

'**********SPACE********** Text1.Text = MyFun(【?】) End If End Sub

Private Sub Form_Load() Text1.Text = \ Text2.Text = 0 End Sub

Private Function MyFun(s1 As String) As String Dim Pos As Integer Dim Str1 As String

Dim intC As Integer Const Sp As String = \ '**********SPACE********** Pos = Len(【?】) For intC = Pos To 1 Step -1 Str1 = Str1 & Mid(s1, intC, 1) Next intC

'**********SPACE********** MyFun = 【?】 Text2.Text = Pos End Function 答案：

1). (Text1.Text 或 (Text1 2). s1 3). Str1

〖第56题〗『程序填空』(1分)(题号:525) '【程序填空】

'题目：在窗体上画一个标签（名称为 Label1 ）和一个

' 计时器（名称为 Timer1 ），然后编写如下几个事件过程：

' 要求：每一秒钟Label1更新显示一次系统时间

请在【】处填入正确的内容 'Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【?】 End Sub

Private Sub Form_Click()

'**********SPACE********** Timer1.Enabled = 【?】 End Sub

Private Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【?】 End Sub 答案： 1). 1000 2). True 3). Now

〖第57题〗『程序填空』(1分)(题号:519) '【程序填空】

'题目：该程序通过For循环计算一个表达式的值，

这个表达式是

' 1/2+2/3+3/4+4/5 '请在【】处填入正确的内容 'Private Sub Command1_Click() '**********SPACE********** Dim 【?】 As Double, x As Double Dim n As Long Dim i As Integer

'**********SPACE********** sum = 【?】 n = 0 For i = 1 To 5 x = n / i n = n + 1

'**********SPACE********** sum = 【?】 Next

Form1.Print sum End Sub 答案： 1). sum 2). 0

3). sum + x 或 x + sum

〖第58题〗『程序填空』(1分)(题号:536) '【程序填空】

'-------------------------------------------------------

'题目：程序功能：在Text1，Text2，Text3中分别输入三个数字，

' 在Text4中计算这三个数的和。如果三个文本框的输入不

' 为数字则显示错误提示

'请在【】处填入正确的内容

'------------------------------------------------------- '

Private Sub Command1_Click()

Dim a As String, b As String, c As String a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text)

'**********SPACE********** If 【?】 And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c) Else

Text4.Text = \存在非数字字符\ End If End Sub

Function che(x As String) As Boolean '若存在非数字字符，函数值为假 Dim k As Integer Dim s As String

'**********SPACE********** 【?】

For k = 1 To Len(x) s = Mid(x, k, 1)

'**********SPACE********** If s < \【?】 Then che = False Exit For End If Next k End Function 答案：

1). che(a) 2). che = True 3). \

〖第59题〗『程序填空』(1分)(题号:42)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：以下程序段利用随机函数生成15个10-100之间的整数，

然后用选择法将其从小到大排序。

'-------------------------------------------------------

Private Sub Form_Click() Const n = 15

Dim a(1 To n) As Integer

Dim i As Integer, j As Integer, t As Integer, min As Integer Randomize For i = 1 To n

'**********SPACE********** a(i) =【?】 Next i For i = 1 To n Print a(i); Next i Print

For i = 1 To n - 1

'**********SPACE********** 【?】 For j = i + 1 To n If a(j) < a(t) Then t = j Next j

'**********SPACE********** If 【?】 Then

min = a(i): a(i) = a(t): a(t) = min End If Next i For i = 1 To n Print a(i); Next i End Sub 答案：

1). Int(★100★ *★ Rnd★)★ +★ 10 2). t=i 3). t★ <> ★I

〖第60题〗『程序填空』(1分)(题号:505)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：单击窗体打印内容如图

'请在【】处填入正确的内容

'------------------------------------------------------- '

Private Sub Form_Click()

Dim i As Integer, j As Integer Dim star As String

'**********SPACE********** 【?】 = \ For i = 0 To 6

'**********SPACE********** For j = 【?】 To 6

'**********SPACE********** Form1.Print star【?】 Next j Form1.Print Next i End Sub 答案： 1). star 2). 6 - i 3). ;

〖第61题〗『程序填空』(1分)(题号:512)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：写出程序运行时单击窗体后，Form1上的输出结果

' n=1 z=4 ' n=2 z=7 ' n=3 z=10

'请在【】处填入正确的内容

'------------------------------------------------------- '

Private Sub Form_Click()

Dim a As Integer, b As Integer, z As Integer '**********SPACE********** Dim 【?】 As Integer a = 1

'**********SPACE********** b = 【?】

'**********SPACE********** For n = 【?】 To 3 z = chg(a, b)

Form1.Print \ Next n End Sub

Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = a End Function 答案：

1). Dim n 2). 1 3). 1

〖第62题〗『程序填空』(1分)(题号:521)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：下面的事件过程判断文本框Text1中输入的数所在区间，

' 并在文本框Text2中输出判断结果

'请在【】处填入正确的内容

'------------------------------------------------------- '

Private Sub Command1_Click()

Dim int1 As Integer

'**********SPACE********** 【?】 = Val(Text1.Text) Select Case int1 Case 0

Text2.Text = \值为0\ '**********SPACE********** Case 【?】

Text2.Text = \值在1和10之间（包括1和10）\

Case Is > 【?】

Text2.Text = \值大于10\ Case Else

'**********SPACE********** Text2.Text = \值小于0\ End Select End Sub 答案： 1). int1 2). 1 To 10 3). 10

〖第63题〗『程序填空』(1分)(题号:535)

'-------------------------------------------------------

hsBlue.LargeChange = 5 r = 0 b = 0 g = 0

hsRed.Value = 0 hsGreen.Value = 0 hsBlue.Value = 0

lblColor.BackColor = RGB(r, g, b) End Sub

Private Sub hsBlue_Change() '**********SPACE********** b =【?】

lblColor.BackColor = RGB(r, g, b) End Sub

Private Sub hsBlue_Scroll() b = hsBlue.Value

lblColor.BackColor = RGB(r, g, b) End Sub

Private Sub hsGreen_Change() g = hsGreen.Value

lblColor.BackColor = RGB(r, g, b) End Sub

Private Sub hsGreen_Scroll() g = hsGreen.Value

lblColor.BackColor = RGB(r, g, b) End Sub

Private Sub hsRed_Change() r = hsRed.Value

'**********SPACE********** lblColor.【?】 = RGB(r, g, b) End Sub

Private Sub hsRed_Scroll() r = hsRed.Value

lblColor.BackColor = RGB(r, g, b) End Sub 答案： 1). 255 2). hsBlue.Value 3). BackColor

〖第73题〗『程序填空』(1分)(题号:54)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：本程序用于实现：从键盘接收一数字，判断其是否在数组

' 中，如果在数组中则将其删除，否则显示该数字不在数组 ' 中。

'-------------------------------------------------------

Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10

a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print

x = InputBox(\请输入要删除的整数\For i = 1 To 10

'**********SPACE********** If a(i) = x Then 【?】 Next i

'**********SPACE********** If 【?】 Then For k = i To 9

'**********SPACE********** 【?】 Next k

Print \删除后的数组:\ For i = 1 To 9 Print a(i); Next i Else

Print \该数字不在数组中\End If End Sub 答案：

1). Exit For 2). i<10 或 10>i

3). a(k) = a(★ k ★+ ★1★)

〖第74题〗『程序填空』(1分)(题号:48)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：利用下面的过程求m!和m*n

'-------------------------------------------------------

Private Sub Form_Click() Dim m As Integer, n As Integer m = 2 n = 3

'**********SPACE********** 【?】 End Sub

Private Sub find(x As Integer, y As Integer) Dim s, i As Integer

'**********SPACE********** 【?】 For i = 1 To x s = s * i

'**********SPACE********** p=【?】 Next i Print s, p End Sub 答案：

1). find m, n

2). s = 1 或 s = 1:p=0 3). p★+★y

〖第75题〗『程序填空』(1分)(题号:493)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：本程序功能为，第一次单击窗体，Form1的输出结果为 '2 5 9

'请在【】处填入正确的内容

'-------------------------------------------------------

Private Function sum(n As Integer) '**********SPACE********** 【?】 j As Integer j = j + n + 1 sum = j End Function

Private Sub Form_Click() Dim i%, s%

'**********SPACE********** For 【?】 = 1 To 3

'**********SPACE********** s = 【?】 Form1.Print s; Next i End Sub 答案： 1). Static 2). i 3). sum(i)

〖第76题〗『程序填空』(1分)(题号:40)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：以下程序段用于输出杨辉三角：

'-------------------------------------------------------

Private Sub Form_Click()

Const n = 10

Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1

'**********SPACE********** 【?】 Next I For I = 3 To n For j = 2 To I - 1

'**********SPACE********** arr(i, j) =【?】 Next j Next I For I = 1 To n For j = 1 To I

'**********SPACE********** 【?】 Next j Print Next I End Sub 答案：

1). arr(i, 1) = 1

2). ★arr(i - 1, j - 1)★ +★ arr(i - 1, j) 3). Print arr(i, j);

〖第77题〗『程序填空』(1分)(题号:506)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目： 写出程序运行时单击窗体后，Form1上

输出结果。

' 0 2 4 ' -1 1 3 ' -2 0 2 ' -3 -1 1

'请在【】处填入正确的内容

'------------------------------------------------------- '

Private Sub Form_Click()

Dim i As Integer Dim j As Integer Dim h As Integer Dim k As Integer Dim a(2, 3) As Integer

'**********SPACE********** For i = 0 To 【?】 For j = 0 To 3

'**********SPACE********** a(i, j) = 2 【?】 i - j Next j, i For h = 0 To 3

'**********SPACE********** For 【?】 = 0 To 2 Form1.Print a(k, h), Next k Print Next h End Sub 答案： 1). 2 2). * 3). k

〖第78题〗『程序填空』(1分)(题号:37)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：以下程序用于判断一个正整数（≥3）是否为素数。

'-------------------------------------------------------

Private Sub Form_Click()

n = InputBox(\请输入一个正整数（≥3）\k = Int(Sqr(n)) i = 2 swit = 0

'**********SPACE********** While i <= k And 【?】 '**********SPACE********** If 【?】 Then swit = 1 Else

'**********SPACE********** 【?】 End If Wend

If swit = 0 Then Print n; \是一个素数\Else

Print n; \不是素数\End If End Sub 答案：

1). swit = 0 2). n Mod i = 0 3). i = ★i ★+★ 1

〖第79题〗『程序填空』(1分)(题号:540)

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'题目：窗体中有两个List列表，及4个按钮。 ' 程序功能，单击“产生随机数”按钮，随机产生20个随机数填入List1中

' “保存”按钮作用是将数组内容写到文件中 ' “读出”按钮作用是将文件内容读到数组中 ' “结束”按钮作用是结束程序

'请在【】处填入正确的内容

'------------------------------------------------------- '

Dim d(1 To 20) As Integer

Private Sub Command1_Click() '\产生随机数\

Dim i As Integer List1.Clear For i = 1 To 20

'**********SPACE********** d(i) = Int(1 + 99 *【?】) List1.AddItem d(i) Next i End Sub

Private Sub Command2_Click() '\保存\ Dim i As Integer

Open App.Path & \#1

For i = 1 To 20

'**********SPACE********** Write 【?】, d(i) Next i Close #1 End Sub

Private Sub Command3_Click() '\读出\ Dim x As String

Open App.Path & \ List2.Clear

'**********SPACE********** Do While Not 【?】 Input #1, x List2.AddItem x Loop Close #1 End Sub

Private Sub Command4_Click() '\结束\ End End Sub 答案： 1). Rnd 2). #1 3). EOF(1)

〖第1题〗『程序改错』(1分)(题号:455)

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：猜数游戏：已知程序用户界面如下，程序启动后

' Lable1和Lable2滚动显示属于[1，100]的随机整数，

' 当用户单击\左大\或\右大\按钮时，滚动停止，如果

' 用户猜对了，在Lable3中显示\猜对了\，否则显示\猜错了\。

'------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构

'------------------------------------------------

Private Sub Command1_Click() Timer1.Enabled = False

'**********FOUND**********

If Val(Label1.Caption) < Val(Label2.Caption)

Then

Label3.Caption = \猜对了\ Else

Label3.Caption = \猜错了\ End If End Sub

Private Sub Command2_Click() Timer1.Enabled = False

If Val(Label1.Caption) < Val(Label2.Caption) Then

'**********FOUND********** Label3.Caption = \猜错了\ Else

'**********FOUND********** Label3.Caption = \猜对了\ End If End Sub

Private Sub Timer1_Timer() Randomize

Label1.Caption = Int(Rnd() * 100 + 1) Label2.Caption = Int(Rnd() * 100 + 1) End Sub 答案： 1).

If

Val(Label1.Caption)

>

Val(Label2.Caption) Then 或 If Val(Label2.Caption) < Val(Label1.Caption) Then

2). Label3.Caption = \猜对了\ 3). Label3.Caption = \猜错了\

〖第2题〗『程序改错』(1分)(题号:481)

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目:下面程序的功能是将一个整数转化为数值字符串，

' 列如123，转化为\转化为“-123”