1、VB机试模拟试卷 73及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Form1的窗体中绘制一个名称为 Labell的标签，其标题为空，BorderStyle属性为 1；再添加一个名称为 Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔 1秒钟加 2。程序运行效果如图 1-1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sj1 vbp，窗体文件名为 sj1 frm。 (2)在窗体上设置一个文本框，名称为 Text1，再添加一个命令按钮，名称为 Commandl，标题为 “当前时间日期切换 “；每次单击按钮时， Text1就显
2、示出当前时间，再单击一次， Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图 1-2所示。注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2 vbp与 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有工程文件 sj3 vbp及其窗体文件 sj3 frm，该程序是不完整的。在窗体上有一个文本框，名称为 Textl，一个列表框，名称为 List1，一个命令按钮 ，名称为 (Command1、标题为 “复制 ”。要求程序运行后，在列表框中自动建立5个列表项，分别为 “Temp1”、 “Ternp2”、
3、 “Temp3”、 “Temp4”、 “Temp5”如果选择列表框中的一项，则单击 “复制 ”按钮时，可以把该项复制到文本框中，如图 83所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符(即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹中有工程文件 sj4 vbp及其窗体文件 sj4 frm，该程序是不完整的。在窗体上有四个复 选框，名称分别为 Checkl、 (“heck2、 Check3和 Check4，标题分别为 “足球 ”、 “篮球 ”、 “羽毛球 ”和 “排球 ”，一个标签，名称为 Label1，还有一个命令按
4、钮，名称为 Command1，标题为 “选择结果 ”。要求程序运行后，如果选中某个复选框，当单击 “选择结果 ”命令按钮时，则显示相应的信息。例如，如果选中 “足球 ”和“羽毛球 ”复选框，单击 “选择结果 ”命令按钮后，在标签上显示 “我喜欢的运动是足球羽毛球 ”，如图 84所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，其窗体上有一个文本框，名称为Textl；有 3个命令按钮，名称分别为 Commandl、 C
5、ommand2和 Command3，标题分别为 “输入 ”、 “计算显示 ”和 “保存 ”，程序运行时的窗体界面如图 255所示。在给定程序中有一个函数过程 isPrimeNum。其功能是判断参数是否为素数，如果是素数，则返回 True，否则返回 False。 请将程序中有问号的地方替换为相应的代码使 得在运行时，单击 “输入 ”按钮，弹出 “输入 ”对话框以便输入整数，单击 “计算显示 ”按钮，则找出小于输入参数的最大素数，并显示在Text1中；单击 “保存 ”按钮，则把 Textl中的计算结果存人考生文件夹下的out5 txt文件中。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为
6、正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改 isPrimeNum函数过程和控件的属性，必须把计算结果通过 “存盘 ”按钮存入 out5 txt文件中，否则无 成绩。 VB机试模拟试卷 73答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)计时器的 Interval属性用于设置每次触发计时器的 Timer事件的时间间隔，单位为毫秒。 Enabled属性控制计时器是否开始启用， True表示启用，False表示不启用。 根据题意，新建 “标准 EXE”工程，将一个标签和一个计时器控件添加到窗体中，
7、标签的名称为 Labell、 Caption属性为 “0”， Timer的名称为Timerl、 Interval属性为 “1000”。设置完成后双击 Commandl进入代码窗口，编 写如下代码： Private Sub Timer1_Timer() Labell Caption=Val(Labell Caption)+2 每过一个间隔计数加 2 End Sub单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中文本框的名称为 Text1、 Text属性为空，命令按钮的名称为 Command1、 Caption属性为“当前时
8、间 /日期切换 ”。双击 Commandl进入代码窗口，编写如下代码： Dim i As Integer Private Sub Commandl_Click() If i=0 Then Text1 Text=Date i=1显示标识， 1表示显示的是日期 Else Text1 Text=Time i=00表示显示的是时间 End If End Sub Private Sub Form_Load() Text1 Text=Time i=0 End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，在窗体空白处单击
9、右键，选择菜单编辑器添加以下菜单项： 单击 “确定 ”按钮，单击 按钮运行程序，并按要求保存即可。 (2)根据题意，新建“标准 EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称设置为 Framel、 Caption属性设置为框架、 Height、 Width属性分别设置为 2 500、 3 500，将文本框的 Text属性设置为文本框， Left、 Top属性分别设置为 500、 1 000。单击 按钮运行程序并按要求保存。 二、简单应用题 (1)向列表框中添加项目可以用 AddItem方法，也可以在属性窗口中设置。但题目中要求程序运行后自动添加，所以这里应该用代码实现。列表
10、框的 Text属性为最后一次选中的表项的文本，也就是要显示在文本框中的。补充后的代码如下： Private Sub Form_Load() Listl AddItem“Templ“ 加入元素 1 Listl AddItem“Temp2“ 加入元素2 Listl AddItem“Temp3“ Listl Addltem“Femp4“ Listl AddItem“Temp5“ End Sub Private Sub Commandl_Click() Textl Text=Listl Text 将 Listl中选中的文本赋值给Textl的文本 End Sub 单击 按钮运行程序，并按要求保存。 (2
11、)单击命令按钮触发 Click事件，本题程序中主要是判断复选按钮的状态和在标签上显示复选按钮的Caption属性值，判断复选按钮的状态可以通过 Value属性来实现。如果复选按钮被选中，则 Value值为 1，否则 Value值为 0。把复选按钮的 Caption属性值赋给标签的 Caption属性即可显 示相应的文字。补充后的代码如下： Private Sub Commandl_Click() Dim str As String str=“我喜欢的运动是 “ If Check1 Value Then sty=str+Checkl Caption Else Str=Str End If If
12、Check2 Value Then str=str+Check2 Caption Else Str=Str End If If Check3 Value Then str=str+Check3 Caption Else str=str End If If Check4 Value Then str=str+Check4 Caption Else str=Str End If Labell Caption=str End Sub Private Sub Form Load() Labell Caption=“ End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【
13、正确答案】 素数的判断准则就是看该数是否除了 1及其本身外无其他约数 (即从 2到 n-1之间没有可以将其整除的数 )即可。文本框用 Text属性来显示计算结果，其形式为：文本框名 Text=显示内容。将数据写入文件可用命令 Write#或Print#，本程序中用的是后者，其形式为： Print#文件号， 输出列表 。 根据题意，将一个文本框控件和 3个命令按钮添加到窗体中，文本框的名称为 Textl， Text属性为空，命令按钮的名称分别为 Commandl、 Command2和 Command3， Caption属性分别为 “输入 ”、 “计算显示 ”和 “保存 ”。双击 Commandl
14、进入代码窗口，编写如下代码： Dim a As Integer Dim res As Integer Private Sub Commandl_Click() a=Val(InputBox(“输入参数： “) 弹出输入对话框 End Sub Private Sub Command2_Click() While isPrimeNum(a)=False如果输入参数不是素数则继续循环 a=a-1 Wend Textl Text=a将获得的素数在 Text1中显示出来 End Sub Function isPrimeNum(num As Integer)As Boolean判断输入是否为素数 isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False End If Next i End Function Private Sub Command3 Click() Open App Path” out5 txt”For Output As #1 Write#1， a Close#1 End Sub单击 按钮运行程序，并按要求保存。
