1、VB机试模拟试卷 114及答案与解析 一、基本操作题（ 30分） 1 (1)新建一个工程，包含两个窗体，窗体文件名为 sjll frm和 sjl2 frm，名称分别为 Forml和 Form2， Forml上包含一个计时器 Timerl，两个窗体上均包含一个标签。运行后，在 Forml的标签上显示 “祝您 ”，时间为 3秒， 3秒后， Forml消失，Form2出现，在标签上面显示 “考试成功 ”。程序中不得使用任何变量，程序运行时的窗体界面如图 231所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj11 frm和 sj12 frm工程文件名为 sj1 vbp。 (2)在窗体上绘
2、制一个命令按钮，名称为 Commandl、标题为 “剪切粘贴 ”两个名称分别为 Textl和 Text2的文本框控件。请编写适当的事件过程，使得程序在运行时，单击 “剪切粘贴 ”按钮， Textl中的内容将在 Text2中显示，同时将 Text1中的内容删除。程序中不得使用任何变量，程序运行时的窗体界面如图 232所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体中画一个名称为 Textl的文本框，再添加一个名称为Timer1的计时器。请设置适当的控件属性并编写适当的事件过程，
3、使得程序在运行时，每隔 3秒钟文本框中的数字加 1，如图 623所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj3 vbp，窗体文件名为 sj3 frm。 (2)在考生文件夹下有一个工程文件 sj4 vbp和窗体文件sj4 frm，要求程序运行后，单击可以选择列表中的多项。而如果单击 “输出 ”按钮，则在 Labell上输出所有选中的列表项，如图 624所示。注 意：修改列表框的适当属性，使得运行时可以多选并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。 三、
4、综合应用题（ 30分） 3 在名称为 Forml的窗体上绘制三个名称为 Labell、 Label2、 Label3的控件和两个名称分别为 COMSTART和 COMEXIT、标题分别为 “开始 ”和 “退出 ”的命令按钮。编写函数 Item(A， N)，其功能是由数字 A组成的不多于 N位数的整数，利用该函数求 6666666666的值 并把结果写入考生文件夹下的 out dat文件中。单击完毕， “开始 ”按钮变为 “完成 ”，且无效，如图 666所示。VB机试模拟试卷 114答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查窗体设计和 Timer控件的使用。根据
5、题意，新建“标准 EXE”工程，将一个 Label添加到窗体 Forml中，其 Caption属性为 “祝您 ”，再添加一个 Timer控件，设置其 Interval属性为 3 000毫秒，名称为 Timerl，再添加一个名为 Form2的窗体，并添加一个标签，其 Caption属性 为 “考试成功 ”。在Forml的 Timerl控件中编写如下代码： Private Sub Timerl_Timer() Forml Hide Form2 Show 调用 Form2 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 Command控件和两个
6、 Text控件添加到窗体上， Command的名称为 Commandl、 Caption属性为 “剪切粘贴 ”， Text的名称分别为 Textl和 Text2， Text属性都为空。双击 Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Text2 Text=Textl Text在 Text2中显示 Textl的内容 Textl Text“清空 Textl中的内容 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件和一个计时控件添加到窗
7、体中，文本框的名称为 Textl、 Text属性为 “0”， Timer的名称为Timerl、 Interval属性为 3 000(毫秒 )。双击 Timerl，进入代码窗口，编写如下代码： Private Sub Timerl_Timer() Textl Text=Val(Textl Text)+1 每执行一次数值加1 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个 List控件、一个标签和一个命令 按钮添加到窗体中，列表框的名称为 Listl，在其 List属性中添加以下 6项： “Iteml”、 “Item2”、 “Item3”、 “Item4”、 “Item
8、5”和 “Item6”，每输入一个后按 “Ctrl+Enter”组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，标签的名称为 Labell、 Caption属性为空，命令按钮的名称为 Commandl、 Caption属性为 “输出 ”。双击 Commandl进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String Dim i As Integer str=“ For i=0 To Listl ListCount-1 利用 for循环来逐个判断 List项是否被选中 If Listl Selected(i)
9、=True Then str=str+Listl List(i)+vbCrLf如果被选中，则放入到 str字符串中 End If Next i Labell Caption=str在 Labell中输出字符串 End Sub 单击按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查标签控件的使用和循环程序设计思想。控件是否可用通过其 Enable属性设置，当 Enable属性为 True时控件可用，当 Enable为 False时控件不可用 (灰色 )；命令按钮的标题通过 Caption属性设置； Str$函数将数字转换为字符串。 建立界面并设置控件属性。程
10、序中用到的控件及其属性见下表： 打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Option Explicit Private Sub Cmdl_Click() Dim A As Integer Dim N As Integer， J As Integer， Sum As Single A=6： N=4 For J=N To l Step-l If J=N Then Sum=Item(A， J) Else Sum+Sum-Item(A， J) End If Next J Print“Sum=“； Sum Open App Path&“ ”&“out dat“For Output As#l Print#1， Sum Close#1 Cmdl Caption=“完成 “ Cmdl Enabled=False End Sub Function Item(A， N) Dim P As String， Q As String， S As Single Dim i As Integer， H As Single P=“ For i=1 TO N Q$=Str$(A) P$=P$+Q$ Next i S=Val(P$) H=H+S Item=HEnd FunctionPrivate Sub Crod2 Click() EndEnd Sub
