全国计算机VB上机题库及答案（全）

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

Private Sub C1_Click() Timer1.Enabled = True End Sub

Private Sub C2_Click()

Timer1.Enabled = False

End Sub

图1 Private Sub Timer1_Timer()

【操作步骤】 P1.Move P1.Left + 20

步骤1：新建一个\标准EXE\工程。 End Sub

步骤2：在窗体Form1中加入一个列表框和一个标签，步骤3：按要求将文件保存至考生文件夹中。

并分别如表1设置它们的相关属性。

三、综合操作题 表1

在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击\分解为\按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解

为11和13，要求取含有最小素数的组合，如图5所示)。要

步骤3：按要求将文件保存至考生文件夹中。

求编写\分解为\按钮事件过程中\考生编写程序开始\和\考 生编写程序结束\之间的代码，以实现上述功能。过程(2)在名称为Form1的窗体上画一个名称为Image1的IsPrime用来判断一个数是否为素数，如果是，返回值为图像框，其高、宽分别为2000、3000，且不随图片大小而True，否则返回值为False。 变化；再画两个命令按钮，标题分别是\显示图片\和\隐藏

注意：不得修改原有程序和控件的属性。至少正确运图片\，名称分别为Cmd1、Cmd2，如图2所示。需编写两行一次程序，且运行时在文本框中输入23456，单击\分解个命令按钮的Click事件过程，使得当单击\显示图片\按钮为\按钮，将结果显示在标签中，否则无成绩。最后把修改时，将当前文件夹下的图片文件\图片.jpg\显示在图像框后的文件按原文件名存盘。 中；而如果单击\隐藏图片\按钮，则清除图像框中的图片。

要求：程序中不得使用变量，每个事件过程中只能写

一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图5

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：

参考代码： Dim i As Integer Dim n As Integer n = Val(Text1.Text) If n Mod 2 <> 0 Then

MsgBox \请输入偶数！\ Exit Sub End If

For i = 3 To n / 2

If IsPrime(i) And IsPrime(n - i) Then Label1.Caption = i Label2.Caption = n - i Exit For End If Next

步骤2：按要求将文件保存至考生文件夹中。

步骤3：按键运行程序，在文本框中输入23456，单击\分解为\按钮。

图2

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。

参考代码：

Private Sub Cmd1_Click()

Image1.Picture = LoadPicture(\图片.jpg\End Sub

Private Sub Cmd2_Click()

Image1.Picture = LoadPicture() End Sub

表2

第九套题干174

一、基本操作题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画一个名称为Label1、标题为\列表框的使用\的标签。再画一个名称为List1的列表框，列表中含有5个表项，表项内容分别为\北京\、\山西\、\辽宁\、\浙江\和\广东\，并且可以在列表中同时选择多个表项。运行后的窗体如图1所示。

要求：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，其功能是： ①单击\读数据\按钮，则把考生文件夹下in3.dat文件中的100个正整数读入数组a中；

②单击\统计\按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就

考前复习必看资料：PiaoMo整理 —13—

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

是完全平方数。例如，36＝62，所以36就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。

在给出的窗体文件中有了全部控件(如图3所示)，但

程序不完整，请将程序中的注释符去掉，把？号改为正确

步骤2：在代码编辑窗口，去掉程序中的注释符\，将的内容，实现上述功能。

问号\改为正确的内容。 注意：考生不得修改窗体文件已存在的控件和程序，

参考代码： 最后将程序原文件名存盘。

List1.AddItem \

For i = 0 To List1.ListCount-1 List1.ListIndex = i

List1.AddItem Text1.Text End

步骤3：按要求将文件保存至考生文件夹中。

图3

三、综合操作题

【操作步骤】

在考生文件夹下有一个工程文件sjt5.vbp，其窗体上

步骤1：新建一个\标准EXE\工程，如表2在窗体中画

画有两个名称分别为Text1、Text2的文本框，其中Text1可

出控件并设置其相关属性。

多行显示。请画两个名称为Command1、Command2，标题

步骤2：打开代码编辑窗口，编写两个命令按钮的单

为\产生数组\、\查找\的命令按钮。如图5所示。程序功能

击事件过程。

如下：

参考代码：

①单击\产生数组\按钮，则用随机函数生成10个0～

Private Sub Cmd1_Click()

100之间(不含0和100)互不相同的数值，并将它们保存到一维

Image1.Picture = LoadPicture(\图片.jpg\

数组a中，同时也将这10个数值显示在Text1文本框内； End Sub

②单击\查找\按钮将弹出输入对话框，接收用户输入Private Sub Cmd2_Click()

的任意一个数，并在一维数组a中查找该数，若查找失败， Image1.Picture = LoadPicture()

End Sub 则在Text2文本框内显示该数\不存在于数组中\；否则显示

该数在数组中的位置。 表2

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

步骤3：按要求将文件保存至考生文件夹中。

(2)在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有两个标题分别为\添加\和\退出\的命令按钮，一个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为\请输入编号\；再画一个名称为Text1，初始值为空的文本框，如图4所示。程序功能如下：

①系统启动时，自动向列表框添加一个编号信息\。

②系统运行时，在文本框Text1中输入一个编号，并单击\添加\按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后；否则，将弹出\不允许重复输入，请重新输入！\对话框，单击该对话框中的\确定\按钮，可以重新输入。

③单击\退出\按钮，则结束程序运行。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

图5

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt5.vbp， 在窗体上画两个命令按钮，属性及其值如表3所示。

表3

步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

a(i) = Fix(Rnd * 99 + 1) For j = 1 To i – 1 i = i – 1

If a(i) = num Then If i > 10 Then

步骤3：按要求将文件保存至考生文件夹中。

第十套题干175

图4

二、简单应用题

(1)在考生文件夹中有工程文件xsjt3.vbp，其中的窗体如图3所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中\查找最大值\或\查找最小值\单选按钮，再单击\查找\按钮，则找出数组中的最大值(或最小值)，并显示在标签Label2中。

请去掉程序中的注释符，把程序中的？改为正确的内

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt4.vbp，如表2在窗体中画出控件并设置其相关属性。

表2

考前复习必看资料：PiaoMo整理 —14—

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

If a(k, k) / 3 = Int(a(k, k) / 3) Then 容。

Counter = Counter + 1 注意：考生不得修改窗体文件中已经存在的程序。最

End If 后把修改后的文件按原文件名存盘。

If k <> N - k + 1 Then

If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then

Counter = Counter + 1 End If

End If 图3

Next 【操作步骤】

lblSecond.Caption = Sum

步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，

lblFirst.Caption = Counter

在代码编辑窗口，去掉程序中的注释符\，将问号\改为

步骤2：按键运行程序，然后单击\计算\按钮。

正确的内容。

步骤3：按要求将文件保存至考生文件夹中。

参考代码： If Option1.Value = True Then

第十一套题干176 If a(i) >= x Then

一、基本操作题 x = a(i)

End If 请根据以下各小题的要求设计Visual Basic应用程序 ElseIf a(i) < y Then (包括界面和代码)。 y = a(i) (1)在标题为\文本框\、名称为Form1的窗体上画一个 End If 名称为Text1的文本框，无初始内容，其高、宽分别为2000、

步骤2：按要求将文件保存至考生文件夹中。

1800，可显示多行，有水平滚动条，并通过属性窗口把文

本框的字体样式设置为\斜体\如图1所示)。

(2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上

注意：存盘时必须存放在考生文件夹下，工程文件名

已有控件，如图4所示。请在属性窗口中将List1设置为可以

为sjt1.vbp，窗体文件名为sjt1.frm。

多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到List2中，同时在List1中清除该项目。若单击\按钮，List1中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。

要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不得修改程序的其他部分和控件属性。最后把

修改后的文件按原文件名存盘。 图1

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表53-1在窗体中画出控件并设置其相关属性。

表53-1

图4

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

L2.AddItem L1.List(L1.ListIndex) L1.RemoveItem L1.ListIndex For i = 0 To List1.ListCount - 1 Call MoveItem(List1, List2)

步骤2：按要求将文件保存至考生文件夹中。

三、综合操作题

在考生文件夹中有一个工程文件sjt5.vbp，如图5所示。运行程序时，从文件中读入矩阵数据并放入二维数组a中。单击\计算\按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果显示在标签lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签lblSecond中。

已给出了部分程序，请编写\计算\命令按钮事件过程中的部分程序代码，以便完成上述功能。

注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用\计算\按钮进行计算，否则无成绩。

步骤2：按要求将文件保存至考生文件夹中。

(2)在名称为Form1的窗体上画一个名称为List1的列表框，通过属性窗口输入4个列表项：\数学\、\物理\、\化学\、\语文\，如图2所示。请编写适当的事件过程，使得在装入窗体时，把最后一个列表项自动改为\英语\；单击窗体时，则删除最后一个列表项。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2

图5

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：

参考代码： For k = 1 To N

Sum = Sum + a(k, k)

考前复习必看资料：PiaoMo整理 —15—

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个列表框，在属性设置窗口中将其Name属性设置为List1，在其List属性中添加四个项目，依次为\数学\、\物理\、\化学\和\语文\。注意：每输入完一项后按键换行再输入下一项。

步骤2：打开代码编辑窗口，编写相应的事件过程： 参考代码：

Private Sub Form_Click()

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

List1.RemoveItem List1.ListCount - 1 Activate事件过程在圆上产生1两个刻度点，并完成其他初End Sub 始化工作；另有长、短2条(红色、蓝色)直线，名称分别为Private Sub Form_Load() Line1和Line2，表示两个指针。程序运行时，单击\开始\ List1.List(List1.ListCount -1)= \英语\按钮，则每隔0.5秒Line1(长指针)顺时针转动一个刻度，End Sub

Line2(短指针)顺时针转动1/1两个刻度(即长指针转动一圈，

步骤3：按要求将文件保存至考生文件夹中。

短指针转动一个刻度)，单击\停止\按钮，两个指针停止转

动，如图4所示。

二、简单应用题

在窗体文件中已经给出了全部控件，但程序不完整，

(1)在名称为Form1的窗体上画一个名称为Text1的文

要求去掉程序中的注释符，把程序中的？改为正确的内容。

本框；画两个标题分别为\对齐方式\、\字体\，名称分别为

提示：程序中的符号常量x0、y0是圆心到窗体左上角

Frame1、Frame2的框架；在Frame1框架中画三个单选按钮，

的距离，radius是圆的半径。

标题分别为\左对齐\、\居中\、\右对齐\，名称分别为

注意：不能修改程序中的其他部分和控件的属性。最

Option1、Option2、Option3；在Frame2框架中画两个单选

后把修改后的文件按原文件名存盘。

按钮，标题分别为\宋体\、\黑体\，名称分别为Option4、Option5。

要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作(如图3所示)。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文

图4 件名为sjt3.vbp，窗体文件名为sjt3.frm。

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

Timer1.Enabled = False For k = 0 To 359 Step 30

x = radius * Cos(k * 3.14159/180) + x0 图3

Line1.Y2 = y0 - len1 * Sin(a * _ 【操作步骤】

3.14159/180) 步骤1：新建一个\标准EXE\工程，如表2在窗体中画

b = b - 30/12

出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

步骤2：在代码编辑窗口，分别编写5个按钮的单击事

件过程。

三、综合操作题

参考代码：

在考生目录下有一个工程文件sjt5.vbp，其窗体如图5

Private Sub Option1_Click()

所示。考生目录下有一个in5.dat文件，文件中有5个运动员 Text1.Alignment = 0

的姓名、7个裁判的打分和动作的难度系数。每人的数据占End Sub

一行，顺序是：姓名、7个分数、难度系数。程序运行时，Private Sub Option2_Click()

单击\输入\按钮，可把in5.dat文件中的5个姓名读入数组 Text1.Alignment = 2

End Sub athlete中，把5组得分(每组7个)和难度系数读入二维数组aPrivate Sub Option3_Click() 中(每行的最后一个元素是难度系数)，并把这些数据显示在 Text1.Alignment = 1 Text1文本框中；单击\选出冠军\按钮，则把冠军的姓名和End Sub

成绩分别显示在文本框Text2、Text3中。成绩的计算方法是：

Private Sub Option4_Click()

去掉一个最高分和一个最低分，求剩下得分的平均分，乘

Text1.Font = \宋体\

以3再乘以难度系数；单击\存盘\按钮，则把冠军姓名和成End Sub

绩存入考生目录下的out5.dat文件中。 Private Sub Option5_Click()

要求：去掉程序中的注释符，把程序中的？改为正确的 Text1.Font = \黑体\

内容(程序中getmark函数的功能是计算并返回第n个运动员的End Sub

最后得分)，并编写\选出冠军\按钮的Click事件过程。 步骤3：按要求将文件保存至考生文件夹中。

注意：不得修改已经存在的程序和控件的属性，在结

表2

束程序运行前，必须用\存盘\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

图5

(2)在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的

考前复习必看资料：PiaoMo整理 —16—

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码： s = a(n, 1) For k = 2 To 7

getmark = s * 3 * a(n, 8)

Private Sub Command2_Click()