这些题型是本套全国计算机等级考试VB所常见的。便将此整理一下，以供大学考前使用。祝大家能顺利通过二级。谢谢。
上机第1套
一、基本操作题
（1）在名为Form1的窗体上绘制一个名为Fra1的框架，标题为\框架示例\，高度为2000，宽度为3500；在框架中绘制一个文本框。名为Txt1，高度为600，宽度为2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为\文本框示例\
二、简单应用题
（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。程序功能：在运行时，如果选中一个单选按钮后，单击\显示\按钮，则根据单选按钮的选中情况，在窗体上显示\你所在的城市是北京\、\你所在的城市是上海\或\你所在的城市是天津\。
要求：①请利用属性窗口，为单选按钮依次添加标题：\北京\、\上海\和\天津\，设初始选取中的是\北京\，再添加一个标题为\显示\的命令按钮，如图1-3所示。②删除程序中语句前面的注释符\'\，把程序中的问号\？\改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。
程序源码：
Private Sub Cmd1_Click() For i = 0 To 2
If Opt1(i).Value = True Then
Print \你所在的城市是\ End If Next End Sub
上机第2套题
二、简单应用题
（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。请在名为Form1的窗体上建立一个菜单，主菜单项为\项目\（名称为mnuItem），它有两个子菜单项，其名称分别为mnuItemAdd和mnuItemDel，标题分别为\添加\和\删除\，然后绘制一个名为Lst1的列表框和一个名为Txt1的文本框。
编写适当的事件过程。程序运行后，如果单击\添加\命令，则从键盘上输入要添加到列表框中的项目（内容任意，不少于3个）；如果单击\删除\命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行结果如图1-8所示。
在考生文件夹中的工程文件vbsj3.vbp（相应的窗体文件名为vbsj3.frm），可以实现上述功能。但程序不完整，请补充完整。
程序源码：
Private Sub mnuItemAdd_Click()
Txt1.Text = InputBox(\请输入要添加的项目\' Lst1.AddItem ? End Sub
Private Sub mnuItemDel_Click()
Txt1.Text = InputBox(\
请输入要删除的项目\' For i = 0 To ?
' If Lst1.List(i) = ? Then ' Lst1.RemoveItem ? End If Next i End Sub
Lst1.AddItem Txt1.Text
For i = 0 To Lst1.ListCount - 1 If Lst1.List(i) = Txt1.Text Then Lst1.RemoveItem i
（2）在考生文件夹中有工程文件vbsj4.vbp及其窗体文件vbsj4.frm。在名为Form1的窗体上有一个名称为Lst1的列表框，一个名称为Txt1的文本框，以及一个名为Cmd1的命令按钮（标题为\复制\）。要求程序运行后，在列表框中自动建立4个列表项，分别为\项目1\、\项目2\、\项目3\和\项目4\。如果选择列表框中的一项，则单击\复制\按钮时，可以把该项复制到文本框中，如图1-9所示。
图1-8 图1-9
程序源码：
Option Explicit
Private Sub Cmd1_Click() Dim i As Integer ' For i = ? To _
Lst1.ListCount-1
If Lst1.Selected(i) = True Then ' ? = Lst1.List(i) End If Next i End Sub
Private Sub Form_Load() Lst1.AddItem \ Lst1.AddItem \ Lst1.AddItem \ Lst1.AddItem \End Sub
For i = 0 To Lst1.ListCount - 1 Txt1.Text = Lst1.List(i)
要求：删除程序中语句前面的注释符\'\，把程序中的问号\？\改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。
三、综合应用题
在名为Form1的窗体上建立一个名为Txt1的文本框（其MultiLine属性为True，ScrollBars属性为2）和两个名称分别为Cmd1和Cmd2的命令按钮（它们的标题分别为\读取\和\保存\），如图1-10所示。
图1-10
要求程序运行后，如果单击\读取\按钮则读入dr021.dat文件中的100个整数，放一个数组中（数组下界为1）；如果单击\保存\按钮，则筛选出100个整数中的所有偶数，在文本框Txt1中显示出来，并把所有偶数之和存入考生文件夹中的文件dw021.dat。
在考生文件夹下有标准模块model.bas，其中writedata过程可以把一个整数存入dw021.dat文件，考生可以把该模块文件添加到自己的工程中。
注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为vbsj5.frm，工程文件名为vbsj5.vbp，结果存入dw021.dat文件，否则没有成绩。 'Option Explicit
Sub writedata(ByVal a As Integer) Dim sFile As String sFile = \
Open App.Path & sFile For Output As #1 Print #1, a; Close #1 End Sub
Dim a(100) As Integer Private Sub Cmd1_Click()
Open App.Path & \ Txt1.Text = \ For i = 1 To 100 Input #1, a(i)
Txt1.Text = Txt1.Text & a(i) & Space(1) Next i Close #1 End Sub
Private Sub Cmd2_Click() Txt1.Text = \ s = 0
For i = 1 To 100
If a(i) Mod 2 = 0 Then
Txt1.Text = Txt1.Text & a(i) & Space(1) s = s + a(i) End If Next
writedata s End Sub
上机第3套题
一、基本操作题
（2）在Form1窗体上绘制一个名为Txt1的文本框，然后建立一个名为mnuOp的主菜单，其标题为\操作\，该菜单有两个名称分别为mnuOpDis和mnuOpCls的子菜单项，其标题分别为\显示\和\清除\。编写适当的事件过程，使程序运行后，若单击\操作\菜单中的\显示\命令，在文本框显示Visual Basic；如果单击\清除\命令，则清除文本框中显示的内容。程序的运行效果如图1-12所示。
注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
上机第4套
一、基本操作题
（2）在窗体上绘制一个列表框，名为Lst1，通过属性窗口向列表框中添加4个项目，分别为\项目1\、\项目2\、\项目3\和\项目4\。编写适当的事件过程，使程序运行后，若双击列表框中的某一项，则该项就从列表中消失。程序的运行情况如图1-18所示。
注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
Private Sub Lst1_DblClick() Lst1.RemoveItem Lst1.ListIndex End Sub
上机第5套题
二、简单应用题
（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体中有一个名为Txt1的文本框；请在窗体上绘制两个名称分别为Fra1和Fra2的框架，其标题分别为\性别\和\身份\；在Fra1中绘制两个名称分别为Opt1和Opt2的单选按钮，其标题分别为\男\和\女\；在Fra2中绘制两个名称分别为Opt3和Opt4的单选按钮，其标题分别为\学生\和\老师\；再绘制一个名为Cmd1的命令按钮，其标题为\确定\。程序界面如图1-24所示。
请编写适当的事件过程，使得在运行时，在Fra1、Fra2中选一个单选按钮，然后单击\确定\按钮，就可以按照表1-2把结果显示在文本框中。
表1-2 运行结果表
性别 身份 男 男 女 女 学生 老师 学生 老师 在文本框中显示的内容 男学生 男老师 女学生 女老师 程序源码：
Private Sub Form_Unload(Cancel As Integer)
Open \
Print #1, Opt1.Value, Opt2.Value, Opt3.Value, Opt4.Value, Txt1.Text Close #1 End Sub
注意：不得修改窗体文件中已经存在的程序和Txt1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后保存修改后的文件。 参考代码：
Private Sub Cmd1_Click() If Opt1.Value = True Then If Opt3.Value = True Then
Txt1.Text = \我是\ Else
Txt1.Text = \我是\ End If Else
If Opt3.Value = True Then
Txt1.Text = \我是\ Else
Txt1.Text = \我是\ End If End If End Sub
上机第6套题
三、综合应用题
在考生文件夹下有文件dr061.dat，文件中有几行汉字。请在窗体Form1上绘制一个名为Txt1的文本框，它能显示多行；再绘制一个名称为Cmd1的命令按钮，其标题为\保存\。编写适当的事件过程，使得在加载窗体时，把dr061.dat文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：\计算机VB考试\，如图1-31所示。最后单击\保存\按钮，可以把文本框中修改过的内容存到文件dw061.dat中。
图1-31
注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以vbsj5.vbp为文件名存储工程文件，以vbsj5.frm为文件名存储窗体文件。 Private Sub Form_Load() Dim str1 As String
Open App.Path & \
全国计算机等级考试二级VB上机题库题型总结教学内容
