全国计算机等级考试二级VB上机题库题型总结Word文档下载推荐.doc
- 文档编号:13145659
- 上传时间:2022-10-06
- 格式:DOC
- 页数:37
- 大小:215KB
全国计算机等级考试二级VB上机题库题型总结Word文档下载推荐.doc
《全国计算机等级考试二级VB上机题库题型总结Word文档下载推荐.doc》由会员分享,可在线阅读,更多相关《全国计算机等级考试二级VB上机题库题型总结Word文档下载推荐.doc(37页珍藏版)》请在冰豆网上搜索。
你所在的城市是上海"
或"
你所在的城市是天津"
。
要求:
①请利用属性窗口,为单选按钮依次添加标题:
"
北京"
上海"
和"
天津"
,设初始选取中的是"
,再添加一个标题为"
的命令按钮,如图1-3所示。
②删除程序中语句前面的注释符"
'
,把程序中的问号"
?
改为正确的内容,使其实现上述功能,但不得修改程序的其他部分,也不得修改控件的其他属性。
最后,将修改后的文件按原文件名保存在原文件夹中。
程序源码:
PrivateSubCmd1_Click()
Fori=0To2
IfOpt1(i).Value=TrueThen
Print"
你所在的城市是"
+Opt1(i).Caption
EndIf
Next
EndSub
上机第2套题
请在名为Form1的窗体上建立一个菜单,主菜单项为"
项目"
(名称为mnuItem),它有两个子菜单项,其名称分别为mnuItemAdd和mnuItemDel,标题分别为"
添加"
删除"
,然后绘制一个名为Lst1的列表框和一个名为Txt1的文本框。
编写适当的事件过程。
程序运行后,如果单击"
命令,则从键盘上输入要添加到列表框中的项目(内容任意,不少于3个);
如果单击"
命令,则从键盘上输入要删除的项目,将其从列表框中删除。
程序的运行结果如图1-8所示。
在考生文件夹中的工程文件vbsj3.vbp(相应的窗体文件名为vbsj3.frm),可以实现上述功能。
但程序不完整,请补充完整。
PrivateSubmnuItemAdd_Click()
Txt1.Text=InputBox("
_请输入要添加的项目"
)
Lst1.AddItem?
PrivateSubmnuItemDel_Click()
Txt1.Text=InputBox("
_
请输入要删除的项目"
Fori=0To?
IfLst1.List(i)=?
Then
Lst1.RemoveItem?
Nexti
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
DimiAsInteger
Fori=?
To_
Lst1.ListCount-1
IfLst1.Selected(i)=TrueThen
?
=Lst1.List(i)
PrivateSubForm_Load()
Lst1.AddItem"
Item1"
Item2"
Item3"
Item4"
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文件,否则没有成绩。
Subwritedata(ByValaAsInteger)
DimsFileAsString
sFile="
\dw021.dat"
OpenApp.Path&
sFileForOutputAs#1
Print#1,a;
Close#1
Dima(100)AsInteger
OpenApp.Path&
"
\dr021.dat"
ForInputAs#1
Txt1.Text="
Fori=1To100
Input#1,a(i)
Txt1.Text=Txt1.Text&
a(i)&
Space
(1)
PrivateSubCmd2_Click()
s=0
Ifa(i)Mod2=0Then
Txt1.Text=Txt1.Text&
s=s+a(i)
writedatas
上机第3套题
(2)在Form1窗体上绘制一个名为Txt1的文本框,然后建立一个名为mnuOp的主菜单,其标题为"
操作"
,该菜单有两个名称分别为mnuOpDis和mnuOpCls的子菜单项,其标题分别为"
清除"
编写适当的事件过程,使程序运行后,若单击"
菜单中的"
命令,在文本框显示VisualBasic;
命令,则清除文本框中显示的内容。
程序的运行效果如图1-12所示。
文件必须存放在考生文件夹中,工程文件名为vbsj2.vbp,窗体文件名为vbsj2.frm。
上机第4套
(2)在窗体上绘制一个列表框,名为Lst1,通过属性窗口向列表框中添加4个项目,分别为"
编写适当的事件过程,使程序运行后,若双击列表框中的某一项,则该项就从列表中消失。
程序的运行情况如图1-18所示。
PrivateSubLst1_DblClick()
Lst1.RemoveItemLst1.ListIndex
上机第5套题
在名为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
不得修改窗体文件中已经存在的程序和Txt1的属性,在结束程序运行之前,必须进行能够产生上表中一个结果的操作;
必须用窗体右上角的关闭按钮结束程序,否则无成绩。
最后保存修改后的文件。
参考代码:
IfOpt1.Value=TrueThen
IfOpt3.Value=TrueThen
Txt1.Text="
我是"
+Opt1.Caption+Opt3.Caption
Else
+Opt1.Caption+Opt4.Caption
Else
+Opt2.Caption+Opt3.Caption
El
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国 计算机等级考试 二级 VB 上机 题库 题型 总结