1、VB 机试-试卷 34 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)新建一个工程，包含两个窗体，窗体文件名为 sjllfrm 和 sjl2frm，名称分别为 Forml 和Form2，Forml 上包含一个计时器 Timerl，两个窗体上均包含一个标签。运行后，在 Forml 的标签上显示“祝您”，时间为 3 秒，3 秒后，Forml 消失，Form2 出现，在标签上面显示“考试成功”。程序中不得使用任何变量，程序运行时的窗体界面如图 231 所示。 注意：保存时必须存放在考生文件夹下，窗体文件
2、名为 sj11frm 和 sj12frm 工程文件名为 sj1vbp。 (2)在窗体上绘制一个命令按钮，名称为Commandl、标题为“剪切粘贴”两个名称分别为 Textl 和 Text2 的文本框控件。请编写适当的事件过程，使得程序在运行时，单击“剪切粘贴”按钮，Textl 中的内容将在 Text2 中显示，同时将 Text1 中的内容删除。程序中不得使用任何变量，程序运行时的窗体界面如图 232 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在名称为 Forml 的窗体中画一个名称为 Textl 的文本框，再添加一个
3、名称为 Timer1 的计时器。请设置适当的控件属性并编写适当的事件过程，使得程序在运行时，每隔 3 秒钟文本框中的数字加 1，如图623 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sj3vbp，窗体文件名为 sj3frm。 (2)在考生文件夹下有一个工程文件 sj4vbp 和窗体文件sj4frm，要求程序运行后，单击可以选择列表中的多项。而如果单击“输出”按钮，则在 Labell 上输出所有选中的列表项，如图 624 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在名称为 Forml 的
4、窗体上绘制三个名称为 Labell、Label2、Label3 的控件和两个名称分别为 COMSTART和 COMEXIT、标题分别为“开始”和“退出”的命令按钮。编写函数 Item(A，N)，其功能是由数字 A 组成的不多于 N 位数的整数，利用该函数求 6666666666 的值并把结果写入考生文件夹下的 outdat 文件中。单击完毕，“开始”按钮变为“完成”，且无效，如图 666 所示。 （分数：2.00）_VB 机试-试卷 34 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)新建一个
5、工程，包含两个窗体，窗体文件名为 sjllfrm 和 sjl2frm，名称分别为 Forml 和Form2，Forml 上包含一个计时器 Timerl，两个窗体上均包含一个标签。运行后，在 Forml 的标签上显示“祝您”，时间为 3 秒，3 秒后，Forml 消失，Form2 出现，在标签上面显示“考试成功”。程序中不得使用任何变量，程序运行时的窗体界面如图 231 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj11frm 和 sj12frm 工程文件名为 sj1vbp。 (2)在窗体上绘制一个命令按钮，名称为Commandl、标题为“剪切粘贴”两个名称分别为 Textl 和
6、 Text2 的文本框控件。请编写适当的事件过程，使得程序在运行时，单击“剪切粘贴”按钮，Textl 中的内容将在 Text2 中显示，同时将 Text1 中的内容删除。程序中不得使用任何变量，程序运行时的窗体界面如图 232 所示。 （分数：2.00）_正确答案：(正确答案： (1)本题主要考查窗体设计和 Timer 控件的使用。根据题意，新建“标准 EXE”工程，将一个 Label 添加到窗体 Forml 中，其 Caption 属性为“祝您”，再添加一个 Timer 控件，设置其Interval 属性为 3 000 毫秒，名称为 Timerl，再添加一个名为 Form2 的窗体，并添加一
7、个标签，其Caption 属性为“考试成功”。在 Forml 的 Timerl 控件中编写如下代码： Private Sub Timerl_Timer() FormlHide Form2Show 调用 Form2 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个 Command 控件和两个 Text 控件添加到窗体上，Command 的名称为Commandl、Caption 属性为“剪切粘贴”，Text 的名称分别为 Textl 和 Text2，Text 属性都为空。双击Commandl 命令按钮， 编写如下代码： Private Sub C
8、ommandl_Click() Text2Text=TextlText在Text2 中显示 Textl 的内容 TextlText“清空 Textl 中的内容 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在名称为 Forml 的窗体中画一个名称为 Textl 的文本框，再添加一个名称为 Timer1 的计时器。请设置适当的控件属性并编写适当的事件过程，使得程序在运行时，每隔 3 秒钟文本框中的数字加 1，如图623 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sj3vbp，窗
9、体文件名为 sj3frm。 (2)在考生文件夹下有一个工程文件 sj4vbp 和窗体文件sj4frm，要求程序运行后，单击可以选择列表中的多项。而如果单击“输出”按钮，则在 Labell 上输出所有选中的列表项，如图 624 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个文本框控件和一个计时控件添加到窗体中，文本框的名称为 Textl、Text 属性为“0”，Timer 的名称为 Timerl、Interval 属性为 3 000(毫秒)。双击 Timerl，进入代码窗口，编写如下代码： Private Sub Timerl_Timer()
10、TextlText=Val(TextlText)+1 每执行一次数值加 1 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个 List 控件、一个标签和一个命令按钮添加到窗体中，列表框的名称为Listl，在其 List 属性中添加以下 6 项：“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，每输入一个后按“Ctrl+Enter”组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，标签的名称为 Labell、Caption 属性为空，命令按钮的名称为 Commandl、Caption 属性为“输出”。双击 C
11、ommandl 进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String Dim i As Integer str=“ For i=0 To ListlListCount-1 利用 for 循环来逐个判断 List项是否被选中 If Listl Selected(i) =True Then str=str+Listl List(i) +vbCrLf如果被选中，则放入到 str 字符串中 End If Next i Labell Caption =str在 Labell 中输出字符串 End Sub 单击 )解析：三、综合应用
12、题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在名称为 Forml 的窗体上绘制三个名称为 Labell、Label2、Label3 的控件和两个名称分别为 COMSTART和 COMEXIT、标题分别为“开始”和“退出”的命令按钮。编写函数 Item(A，N)，其功能是由数字 A 组成的不多于 N 位数的整数，利用该函数求 6666666666 的值并把结果写入考生文件夹下的 outdat 文件中。单击完毕，“开始”按钮变为“完成”，且无效，如图 666 所示。 （分数：2.00）_正确答案：(正确答案：本题主要考查标签控件的使用和循环程序设计思想。控件是否可用通过其 Enable属性设置，当 Enable 属性为 True 时控件可用，当 Enable 为 False 时控件不可用(灰色)；命令按钮的标题通过 Caption 属性设置；Str$函数将数字转换为字符串。 建立界面并设置控件属性。程序中用到的控件及其属性见下表： )解析：
