全国计算机等级考试二级VB上机题库题型总结.doc
- 文档编号:214843
- 上传时间:2022-10-06
- 格式:DOC
- 页数:37
- 大小:215KB
全国计算机等级考试二级VB上机题库题型总结.doc
《全国计算机等级考试二级VB上机题库题型总结.doc》由会员分享,可在线阅读,更多相关《全国计算机等级考试二级VB上机题库题型总结.doc(37页珍藏版)》请在冰豆网上搜索。
这些题型是本套全国计算机等级考试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
El
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国 计算机等级考试 二级 VB 上机 题库 题型 总结