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

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

t = \ End If Next i

Text1.Text = CInt((word_len + Len(t)) / (word_num + 1))

If Len(t) > word_max Then word_max = Len(t) End If

Text2.Text = word_max End Sub

第三套题干168

一、基本操作题

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

(1)在名称为Form1、标题为\标签\的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：

①标签的内容为\计算机等级考试\；

②标签可根据显示内容自动调整其大小； ③标签带有边框，且标签内容显示为三号字。 运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个标签，并设置它的相关属性，其属性和值如表1所示。

表1

步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。

参考代码：

Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub

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

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：

①圆的顶端距窗体Form1顶端的距离为360；

②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图3所示。

程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动；当Shape1的底部到达Line2时，会改变方向而向上运动。

文件中给出的程序不完整，请去掉程序中的注释符，把程序中的？改为正确内容，使其实现上述功能。

注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。

图3

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

(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图2所示。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

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

【操作步骤】

步骤1：打开考生文件下的本题工程文件sjt3.vbp，在窗体上两条水平直线间画一个形状控件，并如表3设置其属性。

表3

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

参考代码：

Timer1.Enabled = True

If Shape1.Top <= Lin1.Y1 Then

If Shape1.Top + Shape1.Height >= Lin2.Y1 Then 步骤3：按要求将文件保存至考生文件夹中。

(2)在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图4所示。程序功能如下：

①单击\读数据\按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中；

②单击\计算\按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。\读数据\按钮的Click事件过程已经给出，请为\计算\按钮编写适当的事件过程实现上述功能。

图2

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个命令按钮和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表2所示。

表2

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

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

注意：不得修改已经存在的控件和程序，在结束程序中的其他部分。最后把修改后的文件按原文件名存盘。 运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

图4

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，编写\计算\按钮的单击事件过程以及三个自定义过程。

参考代码：

Private Sub Command2_Click() Select Case Combo1.ListIndex Case 0

Text1 = even() Case 1

Text1 = odd() Case 2

Text1 = all() End Select End Sub

Function even()

Dim s As Single, n As Integer s = 0

For k = 1 To 100

If a(k) / 2 = Fix(a(k) / 2) Then s = s + a(k) n = n + 1 End If Next s = s / n

even = CInt(s) End Function Function odd()

Dim s As Single, n As Integer s = 0

For k = 1 To 100

If a(k) / 2 <> Fix(a(k) / 2) Then s = s + a(k) n = n + 1 End If Next s = s / n

odd = CInt(s) End Function Function all()

Dim s As Single, n As Integer s = 0

For k = 1 To 100 s = s + a(k) Next

s = s / 100 all = CInt(s) End Function

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

三、综合操作题

在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：324376582812985731425364758697132435465

76879805937。程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图5所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序

图5

【操作步骤】

步骤1：打开本题对应工程文件sjt5.vbp。

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

参考代码：

Dim Mat (M, N) As Integer

Open App.Path & \ Input As #1 Input #1, Mat (i, j) Mat (i, 4) = t

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

第四套题干169

一、基本操作题

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

(1)在标题为\列表框\、名称为Form1的窗体上画一个名称为List1列表框，通过属性窗口输入四个列表项：\数学\、\语文\、\历史\、\地理\，列表项采用\复选框形式\，如图1所示。列表框的宽为1100，高不限。

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

图1

【操作步骤】

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

表1 控件属性设置

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

(2)在名称为Form1的窗体上建立一个名称为\、标题为\文件\的弹出式菜单，含有三个菜单项，它们的标题分别为\打开\、\关闭\、\保存\，名称分别为\、\、\。再画一个命令按钮，名称为\、标题为\弹出菜单\。要求：编写命令按钮的Click事件过程，使程序运行时，单击\弹出菜单\按钮即可弹出\文件\菜单(如图2所示)。

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

图2

【操作步骤】

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

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

步骤1：新建一个\标准EXE\工程，选择【工具】→【菜【审题分析】本题在计时器的Timer事件过程中，若单编辑器】命令，打开菜单设计器，如表2中的设置建立菜Shape1填充色为蓝色则需要进行放大，若放大后其Left属性单项。 值小于或等于0则Shape的填充色改为红色，并开始缩小。

若缩小后其Left属性值大于等于原来的大小时再将其填充

表2

色改为蓝色，并开始放大。形状的放大缩小通过改变Left、Top、Width、Height属性来实现。

单击\开始\，计时器启动，Shape1开始进行放大缩小活动。

【操作步骤】

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

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

步骤2：在窗体上画一个名为Command1，标题为\弹

确的内容。

出菜单\的命令按钮，打开代码编辑窗口，编写\弹出菜单\

参考代码：

按钮的单击事件过程。

Timer1.Enabled = True

参考代码： Shape1.FillColor = red_color Private Sub Command1_Click() Shape1.Left = Shape1.Left + 50 Form1.PopupMenu menu1 Shape1.Top = Shape1.Top + 50 End Sub Shape1.FillColor = blue_color 步骤3：按要求将文件保存至考生文件夹中。 步骤2：按要求将文件保存至考生文件夹中。

二、简单应用题 三、综合操作题

(1)在考生目录下有一个工程文件sjt3.vbp，包含了所在考生目录下有一个工程文件sjt5.vbp，包含了所有有控件和部分程序。程序运行时，在文本框中每输入一个控件和部分程序。程序运行时，单击\打开文件\按钮，则字符，则立即判断：若是小写字母，则把它的大写形式显弹出\打开\对话框，默认文件类型为\文本文件\，默认目录示在标签Label1中；若是大写字母，则把它的小写形式显为考生目录。选中in5.txt文件，如图5(a)所示，单击\打开\示在Label1中；若是其他字符，则把该字符直接显示在按钮，则把文件中的内容读入并显示在文本框(Text1)中；Label1中。输入的字母总数则显示在标签Label2中，如图3单击\修改内容\按钮，则可把Text1中的大写字母\、\、所示。 \改为小写，把小写字母\、\、\改为大写；单击\

要求：去掉程序中的注释符，把程序中的？改为正确保存文件\按钮，则弹出\另存为\对话框，默认文件类型为的内容。 \文本文件\，默认目录为考生目录，默认文件为\，

注意：不得修改已经存在的程序，最后把修改后的文如图5(b)所示，单击\保存\按钮，则把Text1中修改后的内件按原文件名存盘。 容存到out5.txt文件中。

窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的？改为正确的内容，并编写\修改内容\按钮的Click事件过程。

注意：考生不得修改已经存在的程序。必须把Text1中修改后的内容用\保存文件\按钮存储结果，否则无成绩。

最后，按原文件名把程序存盘。 图3

【操作步骤】

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

参考代码：

ch = Right$(Text1.Text, 1) Label1.Caption = ch Label2.Caption = n

步骤2：按要求将文件保存至考生文件夹中。 【主要考点】字符串函数。

(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中(a) 有一个图片框，图片框中有一个名称为Shape1的蓝色圆，如图4所示。程序运行时，单击\开始\按钮，圆逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击\停止\按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

提示：程序中的符号常量bule_color表示蓝色的值，red_color表示红色的值。

注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

(b)图5

图4

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

【操作步骤】

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

参考代码：

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

CommonDialog1.FilterIndex = 2

Open CommonDialog1.FileName For Input As #1 Text1.Text = s

CommonDialog1.Action = 2

步骤2：按指定位置编写\修改文件\的单击事件过程。

图2

参考代码：

【操作步骤】

Private Sub Command2_Click()

步骤1：新建一个\标准EXE\工程，在窗体Form1中画' 考生需要编写的程序

一个名称为Command1，Caption属性为\命令按钮\的命令按 s = \

钮。 str_len = Len(Text1)

步骤2：选择【工具】→【菜单编辑器】命令，打开 For k = 1 To str_len

ch = Mid$(Text1, k, 1) 菜单设计器，如表1中的设置建立菜单项。 If ch = \

表1

s = s & LCase(ch)

ElseIf ch = \ s = s & UCase(ch) Else

s = s & ch

End If

步骤3：打开代码编辑窗口，编写菜单命令的单击事Next k

Text1 = s 件过程。 End Sub 参考代码： 步骤3：按要求将文件保存至考生文件夹中。 Private Sub subMenu1_Click() 步骤4：按键运行程序，先单击\打开文件\按钮， Command1.Visible = True

End Sub 接着单击\修改内容\按钮，然后单击\保存文件\按钮。

Private Sub subMenu2_Click()

Command1.Visible = False

第五套题干170 End Sub

一、基本操作题 步骤4：按要求将文件保存至考生文件夹中。

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

(1)在名称为Form1的窗体上画一个名称为Pic的图片(1)在考生文件夹下有一个工程文件sjt3.vbp，运行情框，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到况如图59-3所示。程序的功能是计算表达式的值：图片框，然后编写适当的事件过程。运行程序时，单击窗z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)! 体，在图片框中显示\等级考试\，如图1所示。 其中的N和x值通过键盘分别输入到两个文本框

注意：要求程序中不得使用变量，事件过程中只能写Text1、Text2中。单击名称为Command1、标题为\计算\的一条语句。存盘时必须存放在考生文件夹下，工程文件名命令按钮，则计算表达式的值，并将计算结果显示在名称为sjt1.vbp，窗体文件名为sjt1.frm。 为Label1的标签中。

在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确内容。

要求：程序调试通过后，必须按照如图3所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。

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

修改后的文件按原文件名存盘。 图1 【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个名称为Pic的图片框，并设置其Picture属性为Tu1-1.jpg。

步骤2：双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。

参考代码：

Private Sub Form_Click() Pic.Print \等级考试\End Sub

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

(2)在名称为Form1的窗体上画一个名称为Command1的命令按钮，标题为\命令按钮\。然后建立一个菜单，标题为\控件\，名称为menu，包含两个子菜单项，一个是\显示命令按钮\，名称为subMenu1；另一个是\隐藏命令按钮\，名称为subMenu2，如图2所示。编写适当的事件过程，使得程序运行时，如果选择\显示命令按钮\菜单命令，则显示命令按钮控件；而如果选择\隐藏命令按钮\菜单命令，则隐藏命令按钮控件。

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

图3

【操作步骤】

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

参考代码： tmp = 1

tmp = temp * i xn = tmp z = z + xn(t)

步骤2：按键键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击\计算\按钮。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有名称为Label1的标签和名称为Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示\第一项\如图4所示)，且每隔1秒钟依次显示\第二项\、\第三项\、\第四项\，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的？

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