- 1、本文档共37页,可阅读全部内容。
- 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
文档评论(0)