全国计算机等级考试二级VB上机题库题型总结教学内容.docx
《全国计算机等级考试二级VB上机题库题型总结教学内容.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB上机题库题型总结教学内容.docx（50页珍藏版）》请在冰豆网上搜索。
全国计算机等级考试二级VB上机题库题型总结教学内容
这些题型是本套全国计算机等级考试VB所常见的。
便将此整理一下，以供大学考前使用。
祝大家能顺利通过二级。
谢谢。
上机第1套
一、基本操作题
（1）在名为Form1的窗体上绘制一个名为Fra1的框架，标题为"框架示例"，高度为2000，宽度为3500；在框架中绘制一个文本框。
名为Txt1，高度为600，宽度为2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为"文本框示例"
二、简单应用题
（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。
在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。
程序功能：
在运行时，如果选中一个单选按钮后，单击"显示"按钮，则根据单选按钮的选中情况，在窗体上显示"你所在的城市是北京"、"你所在的城市是上海"或"你所在的城市是天津"。
要求：
①请利用属性窗口，为单选按钮依次添加标题：
"北京"、"上海"和"天津"，设初始选取中的是"北京"，再添加一个标题为"显示"的命令按钮，如图1-3所示。
②删除程序中语句前面的注释符"'"，把程序中的问号"？
"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。
最后，将修改后的文件按原文件名保存在原文件夹中。
程序源码：
PrivateSubCmd1_Click（）
Fori=0To2
IfOpt1（i）.Value=TrueThen
Print"你所在的城市是"+Opt1（i）.Caption
EndIf
Next
EndSub
上机第2套题
二、简单应用题
（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。
请在名为Form1的窗体上建立一个菜单，主菜单项为"项目"（名称为mnuItem），它有两个子菜单项，其名称分别为mnuItemAdd和mnuItemDel，标题分别为"添加"和"删除"，然后绘制一个名为Lst1的列表框和一个名为Txt1的文本框。
编写适当的事件过程。
程序运行后，如果单击"添加"命令，则从键盘上输入要添加到列表框中的项目（内容任意，不少于3个）；如果单击"删除"命令，则从键盘上输入要删除的项目，将其从列表框中删除。
程序的运行结果如图1-8所示。
在考生文件夹中的工程文件vbsj3.vbp（相应的窗体文件名为vbsj3.frm），可以实现上述功能。
但程序不完整，请补充完整。
程序源码：
PrivateSubmnuItemAdd_Click（）
Txt1.Text=InputBox（"_请输入要添加的项目"）
'Lst1.AddItem?
EndSub
PrivateSubmnuItemDel_Click（）
Txt1.Text=InputBox（"_
请输入要删除的项目"）
'Fori=0To?
'IfLst1.List（i）=?
Then
'Lst1.RemoveItem?
EndIf
Nexti
EndSub
Lst1.AddItemTxt1.Text
Fori=0ToLst1.ListCount-1
IfLst1.List（i）=Txt1.TextThen
Lst1.RemoveItemi
（2）在考生文件夹中有工程文件vbsj4.vbp及其窗体文件vbsj4.frm。
在名为Form1的窗体上有一个名称为Lst1的列表框，一个名称为Txt1的文本框，以及一个名为Cmd1的命令按钮（标题为"复制"）。
要求程序运行后，在列表框中自动建立4个列表项，分别为"项目1"、"项目2"、"项目3"和"项目4"。
如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中，如图1-9所示。
图1-8图1-9
程序源码：
OptionExplicit
PrivateSubCmd1_Click（）
DimiAsInteger
'Fori=?
To_
Lst1.ListCount-1
IfLst1.Selected（i）=TrueThen
'?
=Lst1.List（i）
EndIf
Nexti
EndSub
PrivateSubForm_Load（）
Lst1.AddItem"Item1"
Lst1.AddItem"Item2"
Lst1.AddItem"Item3"
Lst1.AddItem"Item4"
EndSub
Fori=0ToLst1.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文件，否则没有成绩。
'OptionExplicit
Subwritedata（ByValaAsInteger）
DimsFileAsString
sFile="\dw021.dat"
OpenApp.Path&sFileForOutputAs#1
Print#1,a;
Close#1
EndSub
Dima（100）AsInteger
PrivateSubCmd1_Click（）
OpenApp.Path&"\dr021.dat"ForInputAs#1
Txt1.Text=""
Fori=1To100
Input#1,a（i）
Txt1.Text=Txt1.Text&a（i）&Space
（1）
Nexti
Close#1
EndSub
PrivateSubCmd2_Click（）
Txt1.Text=""
s=0
Fori=1To100
Ifa（i）Mod2=0Then
Txt1.Text=Txt1.Text&a（i）&Space
（1）
s=s+a（i）
EndIf
Next
writedatas
EndSub
上机第3套题
一、基本操作题
（2）在Form1窗体上绘制一个名为Txt1的文本框，然后建立一个名为mnuOp的主菜单，其标题为"操作"，该菜单有两个名称分别为mnuOpDis和mnuOpCls的子菜单项，其标题分别为"显示"和"清除"。
编写适当的事件过程，使程序运行后，若单击"操作"菜单中的"显示"命令，在文本框显示VisualBasic；如果单击"清除"命令，则清除文本框中显示的内容。
程序的运行效果如图1-12所示。
注意：
文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
上机第4套
一、基本操作题
（2）在窗体上绘制一个列表框，名为Lst1，通过属性窗口向列表框中添加4个项目，分别为"项目1"、"项目2"、"项目3"和"项目4"。
编写适当的事件过程，使程序运行后，若双击列表框中的某一项，则该项就从列表中消失。
程序的运行情况如图1-18所示。
注意：
文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
PrivateSubLst1_DblClick（）
Lst1.RemoveItemLst1.ListIndex
EndSub
上机第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运行结果表
性别
身份
在文本框中显示的内容
男
学生
男学生
男
老师
男老师
女
学生
女学生
女
老师
女老师
程序源码：
PrivateSubForm_Unload（CancelAsInteger）
Open"dw051.dat"ForOutputAs#1
Print#1,Opt1.Value,Opt2.Value,Opt3.Value,Opt4.Value,Txt1.Text
Close#1
EndSub
注意：
不得修改窗体文件中已经存在的程序和Txt1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则无成绩。
最后保存修改后的文件。
参考代码：
PrivateSubCmd1_Click（）
IfOpt1.Value=TrueThen
IfOpt3.Value=TrueThen
Txt1.Text="我是"+Opt1.Caption+Opt3.Caption
Else
Txt1.Text="我是"+Opt1.Caption+Opt4.Caption
EndIf
Else
IfOpt3.Value=TrueThen
Txt1.Text="我是"+Opt2.Caption+Opt3.Caption
Else
Txt1.Text="我是"+Opt2.Caption+Opt4.Caption
EndIf
EndIf
EndSub
上机第6套题
三、综合应用题
在考生文件夹下有文件dr061.dat，文件中有几行汉字。
请在窗体Form1上绘制一个名为Txt1的文本框，它能显示多行；再绘制一个名称为Cmd1的命令按钮，其标题为"保存"。
编写适当的事件过程，使得在加载窗体时，把dr061.dat文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：
"计算机VB考试"，如图1-31所示。
最后单击"保存"按钮，可以把文本框中修改过的内容存到文件dw061.dat中。
图1-31
注意：
只能在最前面插入文字，不能修改原有文字。
文件必须存放在考生文件夹中，以vbsj5.vbp为文件名存储工程文件，以vbsj5.frm为文件名存储窗体文件。
PrivateSubForm_Load（）
Dimstr1AsString
OpenApp.Path&"\dr061.dat"ForInputAs#1
DoWhileNotEOF
（1）
Input#1,str1
Txt1.Text=Txt1.Text+str1
Loop
Close#1
EndSub
PrivateSubCmd1_Click（）
OpenApp.Path&"\dw061.dat"ForOutputAs#1
Print#1,Txt1.Text
Close#1
EndSub
上机第7套题
一、基本操作题
（2）在名为Form1的窗体上放置一个名为Txt1的文本框。
程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端），如图1-33所示。
注意：
文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。
图1-33
PrivateSubTxt1_Change（）
Txt1.Text=UCase（Txt1.Text）
Txt1.SelStart=Len（Txt1.Text）
EndSub
上机第9套题
二、简单应用题
（1）在考生文件夹中有一个工程文件vbsj3.vbp，相应的窗体文件为vbsj3.frm。
在名为Form1的窗体上有一个命令按钮和一个文本框。
程序运行后，单击命令按钮，即可计算出0~200范围内能被3整除的所有整数的和，并在文本框中显示出来，如图1-44所示。
在窗体的代码窗口中，已给出了部分程序，其中计算0~200范围内能被3整除的所有整数的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：
请勿改动程序中的任何内容，只在FunctionFun（）和EndFunction之间填入所编写的若干语句。
最后，按原文件名并在原文件夹中保存修改后的文件。
程序源码：
SubSaveData（）
OpenApp.Path&"\"&_
"dw091.dat"ForOutputAs#1
Print#1,Txt1.Text
Close#1
EndSub
FunctionFun（）
DimsumAsInteger
DimiAsInteger
Fori=1To200
IfiMod3=0Then
sum=sum+i
EndIf
Next
Txt1.Text=sum
Fun=sum
EndFunction
PrivateSubCmd1_Click（）
d=Fun（）
SaveData
EndSub
上机第10套题
一、基本操作题
（2）在名为Form1的窗体上绘制一个名为Drv1的DrivelListBox控件，一个名为Dir1的DirListBox控件和一个名为File1的FileListBox控件。
编写适当的事件过程，使程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名（不显示路径名）。
如图1-48所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。
参考代码：
PrivateSubDrv1_Change（）
Dir1.Path=Drv1.Drive
EndSub
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubFile1_Click（）
MsgBoxFile1.FileName
EndSub
上机第12套题
二、简单应用题
（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。
在名为Form1的窗体上有一个名称为Cmd1，标题为"求小于600的整数之和"的命令按钮。
其功能是产生30个0~1000的随机整数，放入一个数组中，然后输出这30个整数中小于600的所有整数之和。
程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如图1-62所示。
程序不完整，请补充完整，并能正确运行。
要求：
删除程序中语句前面的注释符"'"，把程序中的问号"？
"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。
最后，将修改后的文件按原文件名保存在原文件夹中。
程序源码
OptionBase1
PrivateSubCmd1_Click（）
DimarrN（30）AsInteger
DimSumAsDouble
Randomize
Fori=1To30
'arrN（i）=Int（Rnd*?
）
Nexti
'Sum=?
Fori=1To30
'If?
Then
'Sum=?
EndIf
Nexti
PrintSum
EndSub
参考代码：
arrN（i）=Int（Rnd*1001）
Sum=0
ifarrN（i）<600then
Sum=Sum+arrN（i）
上机第13套题
一、基本操作题
（2）在名为Form1的窗体上绘制一个名为Cmd1的命令按钮，标题为"打开"，再绘制一个名为dlgFileOpen的通用对话框。
程序运行后，若单击命令按钮，则弹出"打开文件"对话框。
请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为"打开文件"；②设置适当属性，使对话框的"文件类型"下拉式组合框中有两行"文本文件"、"所有文件"，如图1-65所示，默认的类型是"文本文件"；③编写命令按钮的事件过程，使得单击按钮可以弹出"打开文件"对话框。
注意：
程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图1-65
上机第17套题
二、简单应用题
（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。
在名为Form1的窗体上有一个命令按钮和一个文本框。
程序运行后，单击"计算"命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，运行效果如图1-87所示。
在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：
请勿改动程序中的其他部分，只在FunctionFun（）和EndFunction之间填入所编写的若干语句并运行程序。
最后按原文件名并在原文件夹中保存修改后的文件。
说明：
数组arr中共有40个元素，所谓"数组arr中每个元素与其下标相除所得的和"，指的是：
arr
（1）/1+arr
（2）/2+arr（3）/3+…+arr（40）/40。
程序源码：
OptionBase1
FunctionFun（a（）AsSingle）AsSingle
DimsumAsSingle
DimiAsInteger
Fori=LBound（a）ToUBound（a）
sum=sum+a（i）/i
Next
Fun=sum
EndFunction
PrivateSubCmd1_Click（）
Dimarr
Dimarr2（40）AsSingle
arr=Array（11.5,65.84,52,78,221.23,22.25,43.2,26,25.6,_
56.7,9.6,89.24,34.37,45.44,56.59,67.64,7.8,9.8,87.45,_
6.18,34.6,55.8,64.7,43.7,99.4,84.7,66.2,23.9,55.5,_
44.1,13.22,43.25,1.22,28.23,78.26,98.23,56.31,73.46,_
9.63,48.53）
Fori=1ToUBound（arr）
arr2（i）=arr（i）
Nexti
r=Fun（arr2（））
Txt1.Text=Str（r）
SaveData
EndSub
SubSaveData（）
Open"dw171.dat"ForOutputAs#1
Print#1,Txt1.Text
Close#1
EndSub
上机第18套题
三、综合应用题
数列：
1，1，2，3，5，8，3，21…的规律是从第3个数开始，每个数是它前面两个数之和。
在考生文件夹下有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm）。
窗体Form1中已经给出了所有控件。
编写适当的事件过程完成以下功能：
选中一个单选按钮后，单击"显示结果"按钮，则计算出上述数列的第n项的值（n是选中的单选按钮后面的数值），并显示在文本框中，如图1-93所示（提示：
因计算结果较大，应使用Long型变量）。
图1-93
注意：
不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击"显示结果"按钮获得一个结果；必须使用窗体右上角的"关闭"按钮结束程序，否则无成绩。
最后把修改后的文件按原文件名存盘。
程序源码：
PrivateSub_
Form_Unload（CancelAs_
Integer）
Opt1（0）.Value=False
Opt1
（1）.Value=True
Opt1
（2）.Value=False
Cmd1_Click
unload_sub
EndSub
参考代码：
PrivateSubCmd1_Click（）
Dima（）AsLong
DimiAsInteger
DimnAsInteger
Fori=0ToOpt1.Count-1
IfOpt1（i）.Value=TrueThen
n=Val（Opt1（i）.Caption）
ExitFor
EndIf
Next
ReDima（n）
a
（1）=1
a
（2）=1
Fori=3Ton
a（i）=a（i-1）+a（i-2）
Next
Txt1.Text=a（n）
EndSub
上机第19套题
一、基本操作题
（2）在名为Form1的窗体上放置两个名称分别为Lst1和Lst2的列表框。
在Lst1中添加"项目1"、"项目2"、……、"项目10"，并设置MultiSelect属性为2（要求在控件属性中设置）。
再放置一个名为Cmd1的命令按钮，其标题为"复制"。
程序运行后，若单击"复制"按钮，将Lst1中选中的内容（至少两项）复制到Lst2中，如图1-95所示。
若选择的项数少于两项，用消息框提示"请至少选择两项"。
注意：
文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。
图1-95
PrivateSubCmd1_Click
升级会员 