全国计算机vb软件,[计算机软件及应用]全国计算机VB上机题库及答案全.doc

[计算机软件及应用]全国计算机VB上机题库及答案全.doc

第一套上机题题干166

一、基本操作题

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

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。窗体的标题为"按钮窗口"。运行后的窗体如图1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

【操作步骤】

步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1

(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2

【操作步骤】

步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

表2

步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。

参考代码：

Private Sub Shape1_Click()

Me.Sha1.Shape = 1

End Sub

Private Sub Shape2_Click()

Form1.Sha1 = 3

End Sub

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。请编写适当的事件过程，使得在运行时，单击"确定"按钮后实现下面的操作：

①根据选中的单选按钮，在Text1中显示"我是男生"或"我是女生"。

②根据选中的复选框，在Text2中显示"我的爱好是体育"、"我的爱好是音乐"或"我的爱好是体育音乐"，如图3所示。

注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击"确定"按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。

图3

步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。

步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表3所示。

表3

步骤3：打开代码编辑窗口输入如下代码：

参考代码：

Private Sub C1_Click()

Dim a As String

a = "我是"

If Op1.Value Then

Text1.Text = a & Op1.Caption

Else

Text1.Text = a & Op2.Caption

End If

a = "我的爱好是"

If Ch1.Value = 1 Then

Text2.Text = a & Ch1.Caption

a = Text2.Text

End If

If Ch2.Value = 1 Then

Text2.Text = a & Ch2.Caption

End If

End Sub

步骤4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击"确定"按钮，然后单击窗体右上角的关闭按钮结束程序。

(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有一个名称为List1的列表框，名称为Timer1的计时器，名称为Label1的标签，如图4所示。请通过属性窗口向列表框添加四个项目，分别是"第一项"、"第二项"、"第三项"、"第四项"。程序运行后，将计时器的时间间隔设置为1秒钟，每一秒钟从列表框中取出一个项目显示在Label1的标签中，首先显示"第一项"，然后，依次显示"第二项"、"第三项"、"第四项"，如此循环。

在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加List1中的项目，去掉程序中的注释符，把程序中的？改为正确的内容。

注意：考