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

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

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

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

参考代码： 第一套上机题题干166

Private Sub Shape1_Click()

一、基本操作题

Me.Sha1.Shape = 1

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

(1)在名称为Form1的窗体上建立一个名称为 Form1.Sha1 = 3 Command1的命令按钮数组，含三个命令按钮，它们的IndexEnd Sub 属性分别为0、1、2，标题依次为\是\、\否\、\取消\，每

二、简单应用题 个按钮的高、宽均为300、800。窗体的标题为\按钮窗口\。

(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上运行后的窗体如图1所示。

已经有两个文本框，名称分别为Text1、Text2；一个命令按注意：存盘时必须存放在考生文件夹下，工程文件名

钮，名称为C1，标题为\确定\；请画两个单选按钮，名称为sjt1.vbp，窗体文件名为sjt1.frm。

分别为Op1、Op2，标题分别为\男生\、\女生\；再画两个复选框，名称分别为Ch1、Ch2，标题分别为\体育\、\音乐\。请编写适当的事件过程，使得在运行时，单击\确定\按钮后实现下面的操作：

①根据选中的单选按钮，在Text1中显示\我是男生\图1

或\我是女生\。 【操作步骤】

②根据选中的复选框，在Text2中显示\我的爱好是体步骤1：新建一个\标准EXE\工程，如表1在窗体中用\

育\、\我的爱好是音乐\或\我的爱好是体育音乐\，如图3复制\和\粘贴\画出控件数组并设置属性。

所示。 表1

注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击\确定\按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。

图3

步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表3所示。

表3

(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为\形状\，名称为shape0，该菜单有两个子菜单，其标题分别为\正方形\和\圆形\，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。程序运行后，如果选择\正方形\菜单项，则形状控件显示为正方形；如果选择\圆形\菜单项，则窗体上的形状控件显示为圆形。

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

步骤3：打开代码编辑窗口输入如下代码： 参考代码：

Private Sub C1_Click() Dim a As String a = \我是\

If Op1.Value Then

Text1.Text = a & Op1.Caption Else

Text1.Text = a & Op2.Caption End If

a = \我的爱好是\ If Ch1.Value = 1 Then

Text2.Text = a & Ch1.Caption a = Text2.Text End If

If Ch2.Value = 1 Then

Text2.Text = a & Ch2.Caption End If End Sub

步骤4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击\确定\按钮，然后单击窗体右上角的关闭按钮结束程序。

(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有一个名称为List1的列表框，名称为Timer1的计时器，名

图2

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

表2

步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。

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

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

Text1.Text = Input(LOF(1), #1) 称为Label1的标签，如图4所示。请通过属性窗口向列表框

Close #1 添加四个项目，分别是\第一项\、\第二项\、\第三项\、\

End Sub 第四项\。程序运行后，将计时器的时间间隔设置为1秒钟，

Private Sub Command2_Click()

每一秒钟从列表框中取出一个项目显示在Label1的标签

For i = 1 To 6

中，首先显示\第一项\，然后，依次显示\第二项\、\第三 sum(i) = 0 项\、\第四项\，如此循环。 Next i

在给出的窗体文件中已经有了全部控件和程序，但不 If Len(Text1.Text) = 0 Then 完整，请添加List1中的项目，去掉程序中的注释符，把程 MsgBox \请先使用\读数\功能！\序中的？改为正确的内容。 Else

For i = 1 To Len(Text1.Text) 注意：考生不得修改工程中已经存在的内容和控件属

c = LCase(Mid(Text1.Text, i, 1)) 性，最后把修改后的文件按原文件名存盘。

Select Case c Case \

sum(1) = sum(1) + 1 Case \

sum(2) = sum(2) + 1 图4

Case \【操作步骤】

sum(3) = sum(3) + 1

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

Case \

过属性窗口向列表框添加四个项目，分别是：\第一项\、\ sum(4) = sum(4) + 1 第二项\、\第三项\、\第四项\。 Case \

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

sum(6) = sum(6) + 1 参考代码：

End Select i = 0

Next i Timer1.Interval = 1000

End If Label1.Caption = List1.List(i)

End Sub

Private Sub Command3_Click() 三、综合应用题

Open App.Path & \在窗体上画一个文本框，名称为Text1(可显示多行)，

For i = 1 To 6

然后再画三个命令按钮，名称分别为Command1、

Print #1, sum(i)

Command2和Command3，标题分别为\读数\、\统计\和\ Next i 存盘\，如图5所示。程序的其功能是：单击\读数\按钮， Close #1 则把考生目录下的in5.txt文件中的所有英文字符放入End Sub Text1(可多行显示)；单击\统计\按钮，找出并统计英文字 母i、j、k、l、m、n(不区分大小写)各自出现的次数；单击

第二套题干167 \存盘\按钮，将字母i～n出现次数的统计结果依次存到考生

一、基本操作题 目录下的顺序文件out5.txt中。

请根据以下各小题的要求设计Visual Basic应用程序注意：存盘时必须存放在考生文件夹下，工程文件名

(包括界面和代码)。 为sjt5.vbp，窗体文件名为sjt5.frm。

(1)在名称为Form1、标题为\测试\的窗体上画一个名称为Frame1、标题为\字体\的框架。在框架内画两个单选按钮，其名称分别为Opt1和Opt2，标题分别为\隶书\和\宋体\。程序运行后的窗体如图1所示。

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

图5

【操作步骤】

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

表4

图1 图2 【操作步骤】

步骤1：新建一个\标准EXE\工程，如表1在窗体上绘制控件并设置属性。

表1 控件属性设置

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

Dim sum(6) As Integer

Private Sub Command1_Click()

Open App.Path & \

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

(2)在名称为Form1的窗体上用名称为shape1的形状控件画一个圆，其直径为1000(高、宽均为1000)；再画两个命令按钮，标题分别是\垂直线\和\水平线\，名称分别为

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

Command1、Command2，如图2所示。然后编写两个命令修改后的文件按原文件名存盘。 按钮的Click事件过程。程序运行后，如果单击\垂直线\命【操作步骤】 令按钮，则圆的内部用垂直线填充；如果单击\水平线\命步骤1：打开考生文件中的本题工程文件sjt4.vbp，在令按钮，则圆的内部用水平线填充。 代码编辑窗口，去掉程序中的注释符\，将问号\改为正

注意：程序中不得使用变量，每个事件过程中只能写确的内容。 一条语句。 参考代码：

If num < a(i) Then Exit For 存盘时必须存放在考生文件夹下，工程文件名为

For j = 60 To i Step -1 sjt2.vbp，窗体文件名为sjt2.frm。

a(j + 1) = a(j) 【操作步骤】

a(i) = num

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

For k = 1 To 61

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

表2

三、综合操作题

在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个标题分别为\读数据\和\统计\的命令按钮。请画两个标签，其名称分别是Label1和Label2，标题分别为\单词的平均长度为\和\最长单词的长度为\；再画两个名称分别为Text1和Text2、初始内容为空的文本框，如图5所示。程序功能如下：

①如果单击\读数据\命令按钮，则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)；

②如果单击\统计\按钮，则自动统计变量s(s中仅含有字母和空格，而空格是用来分隔不同单词的)中每个单词的长度，并将所有单词的平均长度(四舍五入取整)显示在Text1文本框内，将最长单词的长度显示在Text2文本框内。

\读数据\命令按钮的Click事件过程已经给出，请为\统计\命令按钮编写适当的事件过程，实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，且必须通过单击窗体右上角的\关闭\按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

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

参考代码：

Private Sub Command1_Click() Shape1.FillStyle = 3 End Sub

Private Sub Command2_Click() Form1.Shape1.FillStyle = 2 End Sub

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，请在名称为Form1的窗体上画一个名称为Text1的文本框和一个名称为C1、标题为\转换\的命令按钮，如图3所示。在程序运行时，单击\转换\按钮，可以把Text1中的大写字母转换为小写，把小写字母转换为大写。

窗体文件中已经给出了\转换\按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。

图5

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，如表3所列在窗体上画出控件并设置它们的相关属性。

表3

图3 图4 【操作步骤】

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

参考代码：

n% = Asc(\B$ = String(1, Asc(B$) + 32) Text1.Text = A

(2)在考生文件夹下有一个工程文件sjt4.vbp，其功能是：

①单击\读数据\命令按钮，把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A，并显示在Text1中；

②单击\输入\按钮，弹出一个输入对话框，接收用户输入的任意一个整数；单击\插入\按钮，将输入的数插入A数组中合适的位置，使其仍保持A数组的升序排列，最后将A数组的内容重新显示在Text1中。在窗体文件中已经给出了全部控件(如图4所示)和程序，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。本程序只考虑插入一个整数的情况。

注意：不得修改已经存在的内容和控件属性，最后将考前复习必看资料：PiaoMo整理 —4—

步骤2： 打开代码编辑窗口，在指定位置编写\统计\按钮的单击事件过程。

参考代码：

Private Sub Command2_Click() '需考生编写

n = Len(s): t = \

Dim word_max As Integer, word_num As Integer, word_len As Integer

For i = 1 To n c = Mid(s, i, 1) If c <> \ t = t + c Else

word_len = word_len + Len(t) word_num = word_num + 1 If Len(t) > word_max Then word_max = Len(t) End If