发布时间 : 星期二 文章2013计算机二级(VB)考试机试题库更新完毕开始阅读5845ee61af1ffc4ffe47ac8d
程序按原文件名存盘。
' ***** 需考生编写的程序 *****
Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m = 1
If n = 10 Or n = 12 Then For i = 2 To n m = i * m Next
Text1.Text = m End If sum = 0
If n = 2000 Or n = 1000 Then For j = 1 To n sum = sum + j Next
Text1.Text = sum End If End Sub
*****第15套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积
<10，则以此乘积作为数列的第3项；若乘积
?10?则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后2项相乘，用上述规则形成后
面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为：Text1、Text2、Text3，窗体下部的文本框名称为Text4。程序运行时，在Text1、Text2中输入数列的前两项，Text3中输入要产生的项数n，单击\计算\按钮则产生此数列的前n项，并显示在Text4中。如图所示。
已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click() Text4 = \a = Val(Text1) b = Val(Text2) n = Val(Text3)
' Text4 = Text4 & a & \ \ ***** b ***** k = 2
Do While k < n c = a * b k = k + 1 If c < 10 Then
Text4 = Text4 & \ \
' a = ? ***** b ***** b = c Else
d = c \\ 10
Text4 = Text4 & \ \ a = d k = k + 1
' If k <= ? Then ***** n *****
d = c Mod 10
Text4 = Text4 & \ \
' ？ = d ***** b ***** End If End If Loop End Sub
*****第16套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及两条水平直线，名称分别为Line1和Line2。 请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求： ①圆的顶端距窗体Form1顶端的距离为360；
②圆的颜色为红色(红色对应的值为：&H000000FF& 或&HFF&)，如图所示。
程序运行时，Shape1将在Line1和Line2之间运行。当Shape1的底部到达Line2时，会自动改变方向而向上运动；当Shape1的顶端到达Line1时，会自动改变方向而向下运动。
文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 Dim s As Integer, h As Long Private Sub Form_Load()
' Timer1.Enabled = ? ***** True ***** s = - 40 End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left, Shape1.Top + s
' If Shape1.Top <= ? Then ***** Line1.Y1 ***** s = - s End If
' If Shape1.Top + ? >= Line2.Y1 Then ***** Shape1.Height ***** s = - s End If End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。其功能如下： 1)单击\读数据\按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中；
2)单击\计算\按钮，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
\读数据\按钮的Click事件过程已经给出，请为\计算\按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
' ***** 需考生编写的程序 *****
Dim k As Long Dim m As Long Dim q As Long Dim p As Long Dim r As Long Dim n As Long For k = 1 To 100
If a(k) Mod 2 = 0 Then m = m + a(k) q = q + 1 Else
n = n + a(k) p = p + 1 End If Next k
r = Int((m + n) / (p + q) + 0.5) m = Int(m / q + 0.5) n = Int(n / p + 0.5) Select Case Combo1.Text Case \所有偶数\ Text1 = m Case \所有奇数\ Text1 = n Case \所有数\ Text1 = r End Select *****第16套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，按5行、5列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
Option Base 1
Private Sub Form_Click() Const N = 5 Const M = 5
' Dim ? ***** Mat(N,M) As Integer ***** Dim i, j, t
' Open App.Path & \ ? As #1 ***** For Input ***** For i = 1 To N For j = 1 To M
' ？ ***** Input #1,Mat(i,j) ***** Next j Next i Close #1 Print
Print \初始矩阵为：\Print For i = 1 To N For j = 1 To M
Print Tab(5 * j); Mat(i, j)； Next j Print Next i For i = 1 To N t = Mat(i, 2) Mat(i, 2) = Mat(i, 4)
' ? ***** Mat(i,4)=t ***** Next i
Print \交换第二列和第四列后的矩阵为：\Print For i = 1 To N For j = 1 To M
Print Tab(5 * j); Mat(i, j)； Next j Print Next i End Sub
*****第17套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：
①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个正整数读入数组a中；
②单击\计算\按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方，那么它就是完全平方数。如：
36?62?所以36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显
示。
在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行\计算\，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。 ' ***** 需考生编写的程序 *****
Private Sub Command2_Click() Dim sum As Long For k = 1 To 100
For m = 1 To Sqr(a(k)) If a(k) = m ^ 2 Then sum = sum + a(k) n = n + 1 End If Next m Next k
Text1 = Fix(sum / n) End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有1个计时器和2个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是\演示\和\退出\。请添加1个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为\程序设计\，标题字体为黑体小四号字。如图所示。程序功能如下：
①单击标题为\演示\的命令按钮时，则该按钮的标题自动变换为\暂停\，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。
②单击标题为\暂停\的命令按钮时，则该按钮的标题自动变换为\演示\，并暂停标签的滚动。 ③单击\退出\按钮，则结束程序运行。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。
Private Sub Command1_Click()
' If Command1.Caption = ? Then ***** 演示 ***** ' ? = True ***** Timer1.Enabled ***** Command1.Caption = \暂停\ Else
' ? = False ***** Timer1.Enabled ***** Command1.Caption = \演示\ End If