文档介绍：

一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面与代码)。1.在窗体上建立一个二级菜单,该菜单含有“文件”与“帮助”两个主菜单项(名称分别为vb),其中“文件”菜单包括“打开”、“关闭”与“退出”三个子菜单项(名称分别为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)编写程序代码。参考代码:PrivateSubCmd1_Click()Print"数理化"EndSubPrivateSubCmd2_Click() Print"政史地"EndSub(3)调试并运行程序。(4)按题目要求存盘。二、简单应用题下面出现的“考生文件夹”均为c:\wexam\20060001。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)进入代码窗口,得到如下程序代码:OptionExplicitPrivateSubC1_Click()miAsInteger'Fori=?ToList1、ListCount-1IfList1、Selected(i)=TrueThen'?=List1、List(i)EndIfNextiEndSubPrivateSubForm_Load()List1、AddItem"Item1"List1、AddItem"Item2"List1、AddItem"Item3"List1、AddItem"Item4"EndSub(4)For语句循环变量的起始值为0。(5)列表框的Text属性为最后一次选中的表项的文本。(6)修改这两处的代码。参考代码如下:OptionExplicitPrivateSubC1_Click()DimiAsIntegerFori=0ToList1、ListCount-1IfList1、Selected(i)=TrueThenText1、Text=List1

内容来自淘豆网www.taodocs.com转载请标明出处.