全国计算机二级VB上机题库(题+答案)word版

一、基本操作题

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

请根据以下各小题的要求设计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\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）进入代码窗口，得到如下程序代码：

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。

（5）列表框的Text属性为最后一次选中的表项的文本。

（6）修改这两处的代码。

参考代码如下：

Option Explicit

Private Sub C1_Click()

Dim i As Integer

For i = 0 To List1.ListCount - 1

If List1.Selected(i) = True Then

Text1.Text = 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

（7）调试并运行。

（8）按题目要求存盘。

2．【解析步骤】（1）在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性见表4-4。

表4-4

对象属性设置值

复选按钮Name Ch1

Caption 体育

复选按钮Name Ch2

Caption 音乐

复选按钮Name Ch2

Caption 美术

标签Caption 爱好

按钮Name C1

Caption 显示

（2）打开代码窗口，程序提供的代码如下：

Option Explicit

Private Sub C1_Click()

'Dim s As ?

s = "我的爱好是"