全国计算机等级考试二级VB上机题库题型总结.docVIP

这些题型是本套全国计算机等级考试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 你所在的城市是 + Opt1(i).Caption 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 Item1 Lst1.AddItem Item2 Lst1.AddItem Item3 Lst1.AddItem Item4 End Sub For i = 0 T