- 1、本文档共59页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb上机考试基本操作题
四、基本操作题
1. 在考生文件夹中,完成以下要求:
1.启动工程文件Sjt.Vbp,将该工程文件的工程名改为“Spks”,并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”,标题改为字体显示。
2.请在窗体的适当位置增加以下控件:文本框Text1,Text属性为“VB演示”;复选按钮Check1,Value初值为0,Caption属性为“粗体”;命令按钮Command1,标题为“退出”,结束系统运行。
3.要求用If-Endif语句完成:选中复选按钮,文本框的文字为粗体;不选中,文本框的文字取消粗体,单击命令按钮结束程序运行。
4.请先调试、运行,然后将工程、窗体保存。
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
2. 在考生文件夹中,完成以下要求:
1.启动工程文件Sjt.Vbp,将该工程文件的工程名改为“Spks”,并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”,窗体的标题为VB控件。
2.请在适当位置增加以下控件:标签Label1,标题为:列表显示;文本框Text1用于显示在列表框中选中的项;列表框List1。
3.在窗体装载事件中编写代码为列表框List1添加三项显示内容:“足球”,“篮球”,“排球”。
4.请先调试、运行,然后将工程、窗体保存。
Private Sub Form_Load()
List1.AddItem 足球
List1.AddItem 篮球
List1.AddItem 排球
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
3. 在考生文件夹中,完成以下要求:
1.启动工程文件Sjt.Vbp,将该工程文件的工程名改为“Spks”,并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”,窗体的标题为VB控件。
2.请在适当位置增加以下控件:标签Label1,标题为:下拉显示;文本框Text1用于显示在组合框中选中的项;组合框Combo1。
3.在窗体装载事件中编写代码为组合框Combo1添加两项显示内容:“北京2008”,“上海2010”。
4.请先调试、运行,然后将工程、窗体保存。
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub
Private Sub Form_Load()
Combo1.AddItem 北京2008
Combo1.AddItem 上海2010
End Sub
4. 在考生文件夹中,完成以下要求:
1.启动工程文件Sjt.Vbp,将该工程文件的工程名改为“Spks”,并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”,窗体的标题为VB控件。
2.请在适当位置增加以下控件:标签Label1,标题为:我们赢了;文本框Text1;单选按扭Option1、Option2,其显示内容分别为:“北京奥运会”,“上海世博会”。
3.在单选按扭Option1、Option2的单击事件编写代码,用于在文本框Text1显示在两个单选按扭中选中的Caption属性的内容。
4.请先调试、运行,然后将工程、窗体保存。
Private Sub Option1_Click()
Text1.Text = Option1.Caption
End Sub
Private Sub Option2_Click()
Text1.Text = Option2.Caption
End Sub
5. 在考生文件夹中,完成以下要求:
1.启动工程文件Sjt.Vbp,将该工程文件的工程名改为“Spks”,并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”,窗体的标题为VB控件。
2.请在适当位置增加以下控件:标签Label1,标题为:十六大;文本框Text1;复选框Check1、Check2,其内容分别为:“邓小平理论”,“三个代表”。
3.编写代码实现:单击Check1或Check2,在文本框Text1中显示其Caption属性的内容。
4.请先调试、运行,然后将工程、窗体保存。
Private Sub Check1_Click()
Text1.Text = Check1.Capt
您可能关注的文档
最近下载
- Siemens 西门子工业 SINAMICS G110M 变频器 SINAMICS G110M 变频器 使用手册.pdf
- 典范英语4a Lesson1The Balloon 课件.ppt VIP
- 理财教材《小狗钱钱》.pdf VIP
- 建筑识图与构造楼梯及电梯识图与构造教案.pdf VIP
- 高中语文课件:《复活》.pptx
- 国家大气颗粒物组分及光化学监测网建设进展.pdf VIP
- 不同年龄皮肤的护理课件.pptx
- 材料类核心期刊.docx VIP
- 2025年广东省粤科金融集团有限公司人员招聘笔试备考题库及答案解析.docx VIP
- 2025年新沪科版8年级上册物理全册教学课件(新版教材).pptx
文档评论(0)