admin 管理员组

文章数量: 1184232


2024年3月11日发(作者:java资料百度网盘下载)

一、基本操作题

下面出现的“考生文件夹”均为c:wexam20060001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

1.在窗体上建立一个二级菜单,该菜单含有“文件”和“帮助”两个主菜单项(名称分别

为vbFile和vbHelp),其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名

称分别为vbOpen、vbClose和vbExit)。只建立菜单,不必定义其事件过程。

注意:保存时必须存放在考生文件夹下,窗体文件名为,工程文件名为。

2.在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和

“不喜欢”的命令按钮。编写适当的事件过程,要求程序运行后,如果单击“喜欢”命令按

钮,则在窗体上显示“数理化”;如果单击“不喜欢”命令按钮,则在窗体上显示“政史地”。

程序中不能使用任何变量,直接显示字符串。

注意:保存时必须存放在考生文件夹下,窗体文件名为,工程文件名为。

一、基本操作题答案

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:wexam20060001。

1.在考生文件夹中有工程文件及其窗体文件,该程序是不完整的,请在有

“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'”号),但不能修改其

他部分。保存时不得改变文件名和文件夹。

本题描述如下:

在窗体上有一个列表框,名称为List1;一个文本框,名称为Text1;一个命令按钮,名称为

C1,标题为“复制”。要求程序运行后,在列表框中自动建立4个列表项,分别为Item1、

Item2、Item3和Item4。如果选择列表框中的一项,单击“复制”按钮,就可以把该项复制

到文本框中。

2.在考生文件夹中有工程文件及其窗体文件,该程序是不完整的,请在有

“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'”号),但不能修改其

他部分。保存时不得改变文件名和文件夹。

在窗体上有3个复选框,名称分别为Ch1、Ch2和Ch3,标题分别为“体育”、“音乐”和“美

术”,还有一个命令按钮,名称为C1,标题为“显示”。要求程序运行后,如果选中某个复

选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美术”

复选框,单击“显示”命令按钮后,在窗体上显示“我的爱好是体育美术”。

二、简单应用题答案

1.【解析步骤】(1)首先按要求打开给定工程文件及其窗体文件。

(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 unt - 1

If ed(i) = True Then

'? = (i)

End If

Next i

End Sub

Private Sub Form_Load()

m "Item1"

m "Item2"


本文标签: 窗体 文件 显示 控件