计算机二级VB操作题

所有操作题

1、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名为Form1的窗体上画一个框架，名称为Frm1，标题为\框架\，高度为2500，宽度为4000；再在框架中画一个文本框，名称为Text1，高度为400，宽度为1200，其位置距框架的左边框600，距框架的上边框1200，文本框中的初始内容设置为\文本框\。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。

评析：

1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。数据区用来输入或修改菜单项、设置属性；编辑区用来对输入的菜单项进行简单编辑，并可设置菜单的层次。 等级：1 难度：1

知识点：VB知识点/对象属性的设置 2、在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为\复制\。

要求程序运行后，在列表框中自动建立四个列表项，分别为\、\、\、\如果选择列表框中的一项，则单击\复制\按钮时，可以把该项复制到文本框中（如图所示）。

评析： 1、该题考查考生对ListBox控件的使用，该控件显示项目列表，

从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox控件上添加滚动条。 语法： ListBox

MultiSelect属性：返回或设置一个值，该值指示是否能够在 FileListBox或ListBox控件中进行复选以及如何进行复选。在运行时是只读的。

等级：2 难度：2 知识点：VB知识点/控件的使用 3、在名称为Form1的窗体上建立两个单选按钮，名称分别为Opt1和Opt2，标题分别为\之间素数\和\之间素数\，一个文本框，名称为Text1，和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为\计算\、\存盘\（如图所示）。程序运行后，如果选中一个单选按钮并单击\计算\按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击\存盘\按钮，则把计算结果存入\文件中，该文件必须放在考生文件夹中。（在考生文件夹中有标准模块mode.bas，其中的putdata 过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中。） 注意： 1）必须把200-400之间的素数之和存入考生文件夹下的out.txt

文件中，否则没有成绩。

2）保存程序时必须存放在考生文件夹下，窗体文件名为

wy71.frm，工程文件名为wy71.vbp。

评析：

考查对数组、For语句以及文件读写的使用。语法 For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter] 语法

Write #filenumber, [outputlist]将数据写入顺序文件。 Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]用于打开文件。 等级：3 难度：3

知识点：VB知识点/结构化程序设计

4、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体中建立一个名称为Cmd1，标题为\显示\的命令按钮（如图所示）。

要求程序运行后，如果单击\显示\按钮，则执行语句

Form1.Print \显示\；如果单击窗体，则执行语句Form1.Cls。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。

评析：

1、新建一个工程，在窗体上添加一个名为\的按钮，双击这个按钮在弹出的代码窗口中写入\显示\，在窗体空白部分双击，在弹出的窗口中写入\，然后以文件名wy3.vbp和wy3.frm保存； 等级：1 难度：1

知识点：VB知识点/对象属性的设置

5、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为\读入数据\和\计算保存\）（如图所示）。

要求程序运行后，如果单击\读入数据\按钮，则读入\文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击\计算保存\按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

注意：文件必须存放在考生文件夹下，窗体文件名为wy8.frm，工程文件名为wy8.vbp，计算结果存入result.txt，否则没有成绩。

评析：

新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\计算保存\），整个工程的代码如下：

Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer

j = 0

Open App.Path &\For j = 1 To 100 Input #1, i(j) Next Close #1

For j = 1 To 100

Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub

Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100

If i(j) >= 400 And i(j) < 800 Then temp = temp + i(j) End If Next

Text1.Text = temp putdata temp End Sub

等级：3 难度：3

知识点：VB知识点/结构化程序设计

6、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为\输出\、\清除\（如图所示）。要求程序运行后，每单击一次\输出\按钮，不使用任何变量而直接在图片框中显示小写字母\；如果单击\清除\按钮，则清除图片框中的内容。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy9.frm，工程文件名为wy9.vbp。

评析：

1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG 或GIF文件的图形。如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。也可以用

PictureBox控件将OptionButton控件分组，并用该控件显示图形方法的输出和Print方法写入的文本。Image控件用来显示图形，但是它只支持PictureBox控件的一部分属性、事件和方法。

等级：1 难度：1

知识点：VB知识点/对象属性的设置

7、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\保存数据\）（如图所示）。程序运行后，如果单击\读入数据\按钮，则读入\文件中的100个整数，放入一个数组中（数组下界为1），并在文本框Text1中显示出来；如果单击\保存数据\按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的文件\中，（考生文件夹中有标准模块prog1.bas，其中的putdata过程可以把指定个数的数组元素存入result1.txt文件，考生可以把该模块文件添加到自己的工程中）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy11.frm，工程文件名为wy11.vbp结果存入result1.txt文件，否则没有成绩。

评析：

考查对数组、For语句以及文件读写的使用。语法 For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter] 语法

Write #filenumber, [outputlist]将数据写入顺序文件。 Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]用于打开文件。 等级：3 难度：3

知识点：VB知识点/结构化程序设计

8、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为\输出\的命令按钮（如图所示）。要求程序运行后，在文本框输入几个字符，在单击\输出\按钮，则在窗体上显示文本框中的的文字。 *注意：

1）在程序中不能使用任何变量。

2）保存时必须存放在考生文件夹下，窗体文件名为wy12.frm，工程文件名为wy12.vbp。

评析：

1、考查基本控件的使用和对Print方法的使用，新建一工程，建立一名为Text1的文本框和名为Cmd，标题为\输出\的命令按钮，双击命令按钮加入如下代码： Cls

Print Text1.Text

等级：1 难度：1

知识点：VB知识点/对象属性的设置

9、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\排序显示保存\）（如图所示）。程序运行后，如果单击\读入数据\按钮，则读入\文件中的100个整数，放入一个数组中（数组下界为1）；如果单击\排序显示保存\按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件\中（在考生的目录下有标准模块prog2.bas过程可以把指定个数的数组元素存入result2.txt文件，考生可以把该模块文件添加到自己的工程中）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy14.frm，工程文件名为wy14.vbp，排序结果存入result2.txt文件，否则没有成绩。

评析：

新建工程，双击控件面板中的TextBox控件，在窗体上自动添加一个名称为Text1的文本框，在属性窗口中设置MultiLine属性为True，ScrollBars属性为2，建立两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\排序显示保存\。双击窗体进入代码窗口填入以下代码： Option Explicit

Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer

Open \For j = 1 To 100 Input #1, i(j)

Text1.Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub

Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False

For k = 1 To 100 - j

If i(k) > i(k + 1) Then temp = i(k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If Next

If Not flag Then Exit For End If Next

Text1.Text = \For j = 1 To 100

Text1.Text = Text1.Text & i(j) & Space(5) Next

putdata i, 100 End Sub

等级：3 难度：3

知识点：VB知识点/结构化程序设计

10、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示\选课\，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为\操作系统\、\数据库原理\、\概率论\，字体大小均为14，其中\概率论\被禁用。 *注意：

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

评析：

本题考查对CheckBox控件属性Enabled的使用以及Label控件Font属性的使用，使CheckBox控件属性Enable为False时，该控件就被禁用。

等级：1 难度：1

知识点：VB知识点/对象属性的设置

11、在考生文件夹中有工程文件wy16.vbp及其窗体文件

wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：

在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为\校验\的命令按钮。其中文本框用来输入口令（如图所示），要求在文本框中输入的内容都必须以\显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是\或\这3个字母，则用MsgBox信息框输出\正确\，否则输出\错误\（如图所示）。

评析：

1、考查考生对文本框属性PasswordChar的使用，本例中设置PasswordChar属性为\，然后在C1的Click事件中填入如下代码： If Text1.Text = \Or Text1.Text = \Then MsgBox \正确\错误\等级：2 难度：2 知识点：VB知识点/控件的使用

12、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\排序显示保存\）（如图所示）。程序运行后，如果单击\读入数据\按钮，则读入\文件中的100个整数，放入一个数组中（数组下界为1）；如果单击\排序显示保存\按钮，则对这100个整数按从大到小进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹的\中。（考生的文件夹下的标准模块mode1.bas其中的putdata过程可以把指定个数的数组元素存入out3.txt文件，考生可以把模块文件添加到自己的工程中）。 注意：

文件必须存放在考生文件夹下，窗体文件名为wy18.frm，工程文件名wy18.vbp，排序结果存入out3.txt,否则没有成绩。

评析：

新建工程，双击控件面板中的TextBox控件，在窗体上添加一个名称为Text1的文本框，在属性窗口中设置MultiLine属性为True，ScrollBars属性为2，建立两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\排序显示保存\。双击窗体进入代码窗口填入以下代码： Option Explicit

Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer

Open App.Path &\For j = 1 To 100 Input #1, i(j)

Text1.Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub

Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False

For k = 1 To 100 - j

If i(k) < i(k + 1) Then temp = i(k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If Next

If Not flag Then Exit For End If Next

Text1.Text = \For j = 1 To 100

Text1.Text = Text1.Text & i(j) & Space(5) Next

putdata i, 100 End Sub

等级：3 难度：3

知识点：VB知识点/结构化程序设计

13、请根据以下要求设计Visual Basic应用程序（包括界面和代码）。

在名称为Form1的窗体上建立一个名称为Cmd1，标题为\显示\的命令按钮，编写适当的事件过程。程序运行后，如果单击\显示\命令按钮，则在窗体上显示\全国计算机等级考试\（如图所示）（要求：不要使用任何变量，直接显示字符串）。 *注意：

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

评析：

1、新建一个工程，在窗体上添加一个名为\的按钮，双击这个按钮在弹出的代码窗口中写入\全国计算机等级考试\，然后以文件名wy1.vbp和wy1.frm保存； 等级：1 难度：1

知识点：VB知识点/对象属性的设置

14、在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为\商品类别\、\帮助\，名称分别为vbMenu和vbHelp，其中\商品类别\菜单包括\百货\、\食品\、\家电\三个子菜单，名称分别为vbMenu1、vbMenu2、vbMenu3。程序运行后，如果在\商品类别\的下拉菜单中选择\百货\，则在文本框内显示：\大类核算\；如果选择\食品\，则在文本框内显示：\中类核算\；如果选择\家电\，则在文本框内显示：\小类核算\（要求：不能使用任何变量，直接显示字符串）。 *注意：

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

评析：

1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。数据区用来输入或修改菜单项、设置属性；编辑区用来对输入的菜单项进行简单编辑，并可设置菜单的层次；单击相应的菜单在弹出的代码窗口中加入相应的代码。 等级：3 难度：3 知识点：VB知识点/控件的使用

15、在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为\读入数据\和\计算保存\，如图所示）。要求程序运行后，如果单击\读入数据\按钮，则读入\文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击\计算保存\按钮，则计算其中前50个数之和，并把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件\中。（在考生的文件夹下有标准模块mode2.bas，其中的putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy23.frm，工程文件名为wy23.vbp，计算结果存入out4.txt文件，否则没

本文来源：https://www.bwwdw.com/article/8nbd.html