《全国计算机等级考试二级VB上机题库题型总结》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB上机题库题型总结（37页珍藏版）》请在金锄头文库上搜索。
1、这些题型是本套全国计算机等级考试VB所常见的。便将此整理一下，以供高校考前运用。祝大家能顺当通过二级。感谢。上机第1套一、基本操作题（1）在名为Form1的窗体上绘制一个名为Fra1的框架，标题为框架示例，高度为2000，宽度为3500；在框架中绘制一个文本框。名为Txt1，高度为600，宽度为2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为文本框示例二、简洁应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。程序功能：在运行时，假如选中一个单选按钮后，单击显
2、示按钮，则依据单选按钮的选中状况，在窗体上显示你所在的城市是北京、你所在的城市是上海或你所在的城市是天津。要求：请利用属性窗口，为单选按钮依次添加标题：北京、上海和天津，设初始选取中的是北京，再添加一个标题为显示的吩咐按钮，如图1-3所示。删除程序中语句前面的注释符，把程序中的问号？改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最终，将修改后的文件按原文件名保存在原文件夹中。程序源码：Private Sub Cmd1_Click() For i = 0 To 2 If Opt1(i).Value = True Then Print 你所在的城市是 + O
3、pt1(i).Caption End If NextEnd Sub上机第2套题二、简洁应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。请在名为Form1的窗体上建立一个菜单，主菜单项为项目（名称为mnuItem），它有两个子菜单项，其名称分别为mnuItemAdd和mnuItemDel，标题分别为添加和删除，然后绘制一个名为Lst1的列表框和一个名为Txt1的文本框。编写适当的事务过程。程序运行后，假如单击添加吩咐，则从键盘上输入要添加到列表框中的项目（内容随意，不少于3个）；假如单击删除吩咐，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行
4、结果如图1-8所示。在考生文件夹中的工程文件vbsj3.vbp（相应的窗体文件名为vbsj3.frm），可以实现上述功能。但程序不完整，请补充完整。程序源码：Private Sub mnuItemAdd_Click() Txt1.Text = InputBox(_请输入要添加的项目) Lst1.AddItem ?End SubPrivate Sub mnuItemDel_Click()Txt1.Text = InputBox( _请输入要删除的项目) For i = 0 To ? If Lst1.List(i) = ? Then Lst1.RemoveItem ? End If Next iE
5、nd SubLst1.AddItem Txt1.TextFor i = 0 To Lst1.ListCount - 1If Lst1.List(i) = Txt1.Text ThenLst1.RemoveItem i（2）在考生文件夹中有工程文件vbsj4.vbp及其窗体文件vbsj4.frm。在名为Form1的窗体上有一个名称为Lst1的列表框，一个名称为Txt1的文本框，以及一个名为Cmd1的吩咐按钮（标题为复制）。要求程序运行后，在列表框中自动建立4个列表项，分别为项目1、项目2、项目3和项目4。假如选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本框中，如图1-9所示。 图1-
6、8 图1-9程序源码：Option ExplicitPrivate 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 iEnd SubPrivate Sub Form_Load() Lst1.AddItem Item1 Lst1.AddItem Item2 Lst1.AddItem Item3 Lst1.AddItem Item4End SubFor i = 0 To Lst1.ListCoun
7、t - 1Txt1.Text = Lst1.List(i)要求：删除程序中语句前面的注释符，把程序中的问号？改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最终，将修改后的文件按原文件名保存在原文件夹中。三、综合应用题在名为Form1的窗体上建立一个名为Txt1的文本框（其MultiLine属性为True，ScrollBars属性为2）和两个名称分别为Cmd1和Cmd2的吩咐按钮（它们的标题分别为读取和保存），如图1-10所示。图1-10要求程序运行后，假如单击读取按钮则读入dr021.dat文件中的100个整数，放一个数组中（数组下界为1）；假如单击保存
8、按钮，则筛选出100个整数中的全部偶数，在文本框Txt1中显示出来，并把全部偶数之和存入考生文件夹中的文件dw021.dat。在考生文件夹下有标准模块model.bas，其中writedata过程可以把一个整数存入dw021.dat文件，考生可以把该模块文件添加到自己的工程中。留意：程序中对文件的操作统一运用相对路径；文件必需存放在考生文件夹中，窗体文件名为vbsj5.frm，工程文件名为vbsj5.vbp，结果存入dw021.dat文件，否则没有成果。Option ExplicitSub writedata(ByVal a As Integer) Dim sFile As String sF
9、ile = dw021.dat Open App.Path & sFile For Output As #1 Print #1, a; Close #1End SubDim a(100) As IntegerPrivate Sub Cmd1_Click() Open App.Path & dr021.dat For Input As #1 Txt1.Text = For i = 1 To 100 Input #1, a(i) Txt1.Text = Txt1.Text & a(i) & Space(1) Next i Close #1End SubPrivate Sub Cmd2_Click(
10、) 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 sEnd Sub上机第3套题一、基本操作题（2）在Form1窗体上绘制一个名为Txt1的文本框，然后建立一个名为mnuOp的主菜单，其标题为操作，该菜单有两个名称分别为mnuOpDis和mnuOpCls的子菜单项，其标题分别为显示和清除。编写适当的事务过程，使程序运行后，若单击操作菜单中的显示吩咐，在文本框显示Visual Ba
11、sic；假如单击清除吩咐，则清除文本框中显示的内容。程序的运行效果如图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.
12、RemoveItem Lst1.ListIndexEnd Sub上机第5套题二、简洁应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体中有一个名为Txt1的文本框；请在窗体上绘制两个名称分别为Fra1和Fra2的框架，其标题分别为性别和身份；在Fra1中绘制两个名称分别为Opt1和Opt2的单选按钮，其标题分别为男和女；在Fra2中绘制两个名称分别为Opt3和Opt4的单选按钮，其标题分别为学生和老师；再绘制一个名为Cmd1的吩咐按钮，其标题为确定。程序界面如图1-24所示。请编写适当的事务过程，使得在运行时，在Fra1、Fra2中
13、选一个单选按钮，然后单击确定按钮，就可以依据表1-2把结果显示在文本框中。表1-2 运行结果表性别身份在文本框中显示的内容男学生男学生男老师男老师女学生女学生女老师女老师程序源码：Private Sub Form_Unload(Cancel As Integer) Open dw051.dat For Output As #1 Print #1, Opt1.Value, Opt2.Value, Opt3.Value, Opt4.Value, Txt1.Text Close #1End Sub留意：不得修改窗体文件中已经存在的程序和Txt1的属性，在结束程序运行之前，必需进行能够产生上表中一个结
14、果的操作；必需用窗体右上角的关闭按钮结束程序，否则无成果。最终保存修改后的文件。参考代码：Private Sub Cmd1_Click() If Opt1.Value = True Then If Opt3.Value = True Then Txt1.Text = 我是 + Opt1.Caption + Opt3.Caption Else Txt1.Text = 我是 + Opt1.Caption + Opt4.Caption End If Else If Opt3.Value = True Then Txt1.Text = 我是 + Opt2.Caption + Opt3.Caption El
