网站大量收购闲置独家精品文档,联系QQ:2885784924

全国计的算机二级vb上机题库题+答案word版.doc

全国计的算机二级vb上机题库题+答案word版.doc

  1. 1、本文档共393页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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语句循环变量的起

文档评论(0)

maxmin + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档