- 1、本文档共38页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
这些题型是本套全国计算机等级考试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
P
您可能关注的文档
最近下载
- 2025年陕西省中考数学试卷分析评析 .pdf VIP
- 医院医疗不良事件上报登记本.doc
- (人教新课标)五年级数学下册《分数的意义》教学市公开课获奖课件省示范课获奖课件.pptx VIP
- 卡乐控制器PCO控制器说明.pdf
- VDA-MLA-2022+新零件成熟度保障.docx
- 交通运输布局对区域发展的影响 【知识精讲精研】高一地理教学课件(人教版2019必修第二册)+.pptx VIP
- GNSS定位测量技术(含实训手册) 课件 1全球四大卫星导航(GNSS)系统介绍分析.pptx
- 上海轮渡线图、时刻表、价格表.doc VIP
- 登高作业安全培训.pptx
- 2025广东省广州高三一模“智情未来:当AI遇见情感”审题立意及范文-备战2025年高考语文各地名校模考卷作文导写.docx
文档评论(0)