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

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