- 1、本文档共393页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
全国计的算机二级vb上机题库题答案word版
一、基本操作题
下面出现的“考生文件夹”均为c:\wexam
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1.在窗体上建立一个二级菜单,该菜单含有“文件”和“帮助”两个主菜单项(名称分别为vbFile和vbHelp),其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、vbClose和vbExit)。只建立菜单,不必定义其事件过程。
注意:保存时必须存放在考生文件夹下,窗体文件名为kt1.frm,工程文件名为kt1.vbp。
2.在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过程,要求程序运行后,如果单击“喜欢”命令按钮,则在窗体上显示“数理化”;如果单击“不喜欢”命令按钮,则在窗体上显示“政史地”。程序中不能使用任何变量,直接显示字符串。
注意:保存时必须存放在考生文件夹下,窗体文件名为kt2.frm,工程文件名为kt2.vbp。
一、基本操作题答案
1.【解题步骤】
(1)打开“菜单编辑器”。
(2)菜单设计见表4-1。
表4-1
标 题 名 称 内缩符号
文件 vbFile 0
打开 vbOpen 1
关闭 vbClose 1
退出 vbExit 1
帮助 vbHelp 0
(3)按要求设计含有“文件”和“帮助”的菜单栏。
(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
(5)设计完成之后,按规定方式存盘。
2.【解题步骤】
(1)建立界面和控件并设置控件属性。程序中用到的控件及其属性见表4-2。
表4-2
控 件 属 性 设置值
按钮 Name Cmd1
Caption 喜欢
按钮 Name Cmd2
Caption 不喜欢
(2)编写程序代码。
参考代码:
Private Sub Cmd1_Click()
Print数理化
End Sub
Private Sub Cmd2_Click()
Print政史地
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。
二、简单应用题
下面出现的“考生文件夹”均为c:\wexam
1.在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm,该程序是不完整的,请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“”号),但不能修改其他部分。保存时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个列表框,名称为List1;一个文本框,名称为Text1;一个命令按钮,名称为C1,标题为“复制”。要求程序运行后,在列表框中自动建立4个列表项,分别为Item1、Item2、Item3和Item4。如果选择列表框中的一项,单击“复制”按钮,就可以把该项复制到文本框中。
2.在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm,该程序是不完整的,请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“”号),但不能修改其他部分。保存时不得改变文件名和文件夹。
在窗体上有3个复选框,名称分别为Ch1、Ch2和Ch3,标题分别为“体育”、“音乐”和“美术”,还有一个命令按钮,名称为C1,标题为“显示”。要求程序运行后,如果选中某个复选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美术”复选框,单击“显示”命令按钮后,在窗体上显示“我的爱好是体育美术”。
二、简单应用题答案
1.【解析步骤】(1)首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frm。
(2)在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表4-3。
表4-3
控 件 属 性 设置值
列表框 Name List1
文本框 Name Text1
命令按钮 Name C1
Caption 复制
(3)进入代码窗口,得到如下程序代码:
Option Explicit
Private Sub C1_Click()
m i As Integer
For i = ? To List1.ListCount - 1
If List1.Selected(i) = True Then
? = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem Item1
List1.AddItem Item2
List1.AddItem Item3
List1.AddItem Item4
End Sub
(4)For语句循环变量的起
您可能关注的文档
- 煤炭基的础知识.ppt
- 煤炭企的业绩效考核全案.doc
- 煤炭企的业组织架构.doc
- 煤炭物的流基础知识.doc
- 煤炭中的相关焦煤、动力煤及煤炭下游产品焦炭.doc
- 美股交的易员的超短线技术分析附图.doc
- 美学原的理_讲义大全.ppt
- 蒙牛—的—企业文化手册.ppt
- 密闭式的的静脉的输液操作流程 及评分标准02.22.doc
- 面板数的据模型与stata软件的应用.ppt
- DB29-144-2010天津市地下铁道盾构法隧道工程施工技术规程.docx
- 浙江省杭州地区(含周边)重点中学2024-2025学年高一上学期11月期中考试英语试题2.docx
- 2021-2022学年江西省抚州市崇仁县五年级下册期末检测英语试卷.docx
- 吉林省辽源市田家炳高级中学高三(六十五届)友好学校下学期期末联考文科综合地理试题扫描版含答案.doc
- 云南省新平一中高三教学质量检测(七)生物.doc
- 河南省名校大联考2024-2025学年高一上学期12月月考历史试题2.docx
- 99R101 燃煤锅炉房工程设计施工图集55.docx
- D503-D505防雷与接地(下册)彩色版.docx
- 70-通风管道沿程阻力计算选用表 08K-508.docx
- 18GL204 预制混凝土综合管廊_3395.docx
最近下载
- 本科课件-普通植物病理学(完整).ppt
- 义务教育版(2024)五年级信息科技 第18课 冒泡排序齐体验(1) 课件.pptx VIP
- 昆明盘龙区园丁小区老旧小区提升改造工程施工组织设计.docx VIP
- SUPRATONTM改性沥青胶体磨60Th技术规格.PDF
- 义务教育版(2024)五年级信息科技 第17课 选择排序轻松做 课件.pptx VIP
- 七年级英语阅读理解20篇及.docx
- 2篇 2024年民主生活会个人对照检查发言材料(四个带头).doc VIP
- 统编版六年级道德与法治下册全册教学课件(2024年春季版).pptx
- 生理学神经系统功能.ppt VIP
- 义务教育版(2024)五年级信息科技 第17课 选择排序轻松做 教案.docx VIP
文档评论(0)