2013年国家二级VB最新新题库(6)

\菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击\计算\按钮，则相应的计算结果在文本框中显示(例如，选中\累加\和\，则计算1+2+3…+2000，选中\阶乘\和\，则计算10!)。单击\存盘\按钮则把文本框中的结果保存到考生文件夹下的out4.dat文件中。

要求：编写\计算\按钮的Click事件过程。

注意：不得修改已经存在的程序，在结束程序运行之前，必须用\存盘\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

' ***** 需考生编写的程序 *****

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 \交换第二列和第四列后的矩阵为：\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个正整数中的所有完全平方数(一个整数若是另一个整数

236?6?所以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 End Sub

Private Sub Command2_Click() End End Sub

Private Sub Timer1_Timer()

' If ? > Form1.Width Then ***** Label1.Left+Label1.Width ***** Label1.Left = - Label1.Width Else

' Label1.Left = ? + 100 ***** Label1.Left ***** End If End Sub

*****第17套 综合应用题

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有3个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。请添加3个命令按钮，名称分别为Cmd1、Cmd2和cmd3，标题分别为\产生数组\、\统计\和\退出\。如图所示。程序功能如下：

①单击\产生数组\按钮时，随机生成20个0 10之间(不含0和10)的数值，并将其保存到一维数组a中，同时也将这20个数值在Text1文本框内显示。

②单击\统计\按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。

③单击\退出\按钮时，结束程序运行。

注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。 Option Base 1

Dim a(20) As Integer, b(20) As Integer Private Sub Cmd1_Click()

Text1.Text = \： Text2.Text = \： Text3.Text = \ For i = 1 To 20

' a(i) = Fix(Rnd * ? + 1) ***** 9 ***** b(i) = 1

Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2013年国家二级VB最新新题库(6)在线全文阅读。