1、VB机试模拟试卷 97及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上，画一个文本框、一个命令按钮和一个计时器控件。文本框的名称为 Textl，命令按钮的名称为 Commandl、标题为 “暂停 ”。编写适当的事件过程，使得程序运行时，文本框从初始时就显示当前时间。当单击 “暂停 ”命令按钮后，时间将会停止不动。程序中不得使用任何变量。程序运行时的窗体界面如图 60一 1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjl frm，工程文件名为 sjl vbp。 (2)在名称为 Forml的窗体上，画一个文本框、一个命令按钮和一个标签。文本框的名称为
2、Textl，内容为 “模拟考试 ”。命令按钮的名称为 Commandl、标题为 “字数统计 ”，标签的名称为 Labell、 Caption属性为空。编写适当的事件过程，使得程序运行时，选择文本框中的几个字符，然后单击命令按钮，将所选择的字符数在 Labell上输出。程序中不得使用任何变量。程序运行效果如图 602所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在窗 体上绘制一个名称为 Textl的文本框，再绘制一个名称为 Cmdl、标题为“计算 ”的命令按钮，如图 443所示。要求程序运行后，单击命
3、令按钮，将计算100 200之间所有素数之和，并在文本框中显示结果，同时把结果存人文件out txt中 (在考生文件夹中有标准模块 mode bas，其中的 putdata过程可以把结果存入文件，而 isprime函数可以判断整数 X是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以把该模块文件添加到自己的工程中 )。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为sj3 vbp，结果存入 result txt文件，否则没有成绩。 (2)新建一个工程文件，在窗体 Forml上绘制一个列表框。名称为 Listl，并输入 3个表项 “6”、
4、 “21”、 “43”；绘制一个文本框，名称为 Textl。请编写适当的事件过程，使得程序运行时，在列表框内选中一个数字并双击，则计算出 1500以内能被该数整除的所有数之和，并在Textl中显示出来。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4 vbp与 sj4 frm。程序运行时的窗体 界面如图444所示。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为 Text1。内空；两个命令按钮的名称分别为 Command
5、1与 Command2、标题分别为 “读取 ”与“加密 ”；单选按钮的名称分别为 Optionl和 Option2，标题分别为 “3”和 “5”。单击“读取 ”，程序将读入考生文件夹下的文本文件 in5 txt，单击 “加密 ”，加密过的文本显示在 Text1中。根据单选按钮 中的不同的数字，加密的方法不同。例如选择Optionl则逐一把读入的字符串改为它前面的第 3个字母。程序运行时效果如图55所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名：和文件夹。 VB机试模拟试卷 97答案与解析 一、基
6、本操作题（ 30分） 1 【正确答案】 (1)本题考查控件的画法，命令按钮和计时器相关属性的设置及简单事件过程的编写。 标签的 Caption属性用来设置其显示的文本。计时器能够按设定的时间间隔 触发 Timer事件， Interval属性用来设置或返回计时器 Timer事件的时间间隔，单位为毫秒。计时器的 Enabled属性值为 True时，计时器控件有效，Timer事件发生；值为 False时，计时器控件无效， Timer事件不发生。 Time()是系统函数，用于返回系统当前的时间。 根据题意，新建 “标准 EXE”工程，将一个计时控件、一个命令按钮和一个文本框控件添加到窗体中， Time
7、r的名称为 Timerl，Command属性的名称为 Commandl、 Caption属性为 “暂停 ”，文本框的名称为Textl、 Text属性为空。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Timerl Interval=0 End Sub Private Sub Form_Load() Textl Text=Time() Timerl Interval=1000 End Sub Private Sub Timerl_Timer() Textl Text=Time() End Sub 单击 按钮运行程序，并按要求保存。
8、(2)本题考查文本框、命令按钮常用属性及简单事件。文本框 的 SelLength属性用来设置或返回所选择的字符数，在设计时不可用。 根据题意，新建 “标准 EXE”工程，将一个文本框控件、一个命令按钮和一个标签添加到窗体中，文本框的名称为 Textl、 Text属性为 “模拟考试 ”，命令按钮的名称为 Commandl、 Caption属性为 “字数统计 ”，标签的名称为 Labell、 Caption属性为空。双击 Commandl进入代码窗口编写如下代码： Private Sub Commandl_Click() Labell Caption=Textl SelLength End Sub
9、 单击按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)判断某数是否为素数，主要用到选择结构程序设计的思想。在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容通过 Text属性设置，命令按钮的标题通过 Captilon属性设置，单击命令按钮触发 Click事件。 建立菜单项。程序中用到的控件及其属性见下表： 打开工程资源管理器，在其空白处右键添加模块 mode bas(此文件已在考生文件夹里 )，模块代码如下： Option Explicit Sub putdata(t_FileName As String， T_Str As Vari
10、ant) Dim sFile As String sFile=“ “&t FileName Open App Path 8L sFile For Output As#1 Print#1， T Str Close#1 End Sub Function isprime(t_1 As Integer)As Boolean Dim J As Integer isprime=False For J=2 To t_I 2 Ift_I Mod J=0 Then Exit For Next J If Jt_I 2 Then isprime=True End Function 打开工程资源管理器，右击窗体，选择
11、查看代码项，在弹出的代码窗口输入代码如下： Private Sub Cmdl Click() Dim i As Integer Dim temp As Long temp=0 For i=100 To 200 If isprime(i)Then temp=temp+i End If Next i Textl Text=temp putdata“out txt“， temp End Sub 调试并运行程序。 按题目要求存盘。 (2)根据题意，新建 “标准 EXE”工程，将一个List控件和一个文本框控件添加到窗体中，列表框的名称为 Listl， List属性添加以下 3项： “6”、 “21”和
12、 “43”，文本框的名称为 Textl、 Text属性为空。双击 Listl进入代码窗口，编写如下代码： Private Sub Listl DblClick() Dim a As Integer Dim total As Long Dim i As Integer total=0 Fori=1 To 1500利用 For循环判断 11500之间的数能否被一个数整除 If i Mod Val(Listl List(Listl ListIndex)=0 Then如果该数能被选中的列表框的项的数整除 total=total+i则进行相加 End If Next i Textl Text=total
13、将结果显示在 Textl中 End Sub 单击按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 单选按钮组常用于提供唯一选择， Value属性值决定每个单选按钮的选中状态： False表示未选、 True表示选中， Caption属性用于设置或返回单选按钮的标题。 Chr函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode)。 charcode为必要参数，是一个用来识别某字符的 Long函数。 Mid$(字符串，起始位置 ，个数 )函数用于从字符串指定位置开始的含指定个数字符的字 符串； String(个数，字符 )
14、函数用于返回含指定个数字符的字符串；Asc(字符串 )函数用于返回字符串首字符的 ASCII码值。根据题意，将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中，文本框的名称为 Textl、Text属性为空，单选按钮的名称分别为 Optionl和 Option2， Caption属性分别为 “3”和 “5”，命令按钮的名称为 Commandl和 Command2， Caption属性分别为 “读取 ”和“加密 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim str As String Dim tmp As Str
15、ing Dim hum As Integer str=“ Open“App Path& in5 txt“For Input As#1 打开文件准备读取 While EOF(1)=False 判断是否读到文件尾 Input#1， tmp读取文件 str=str+trap 将渎取的文本连接起来放入 str中 Wend Close#l关闭文件 Textl Text str在 Textl中显示 str End Sub Private Sub Command2_Click() Dim str As String Dim trap As String Dim i As Integer Dim ind As
16、 Integer If Optionl Value=True Then ind=3当选中 Optionl时，则移 3位 ElseIf Option2 Value=True Then ind=5当选中 Option2时，则移 5位 End If str=“ For i=1 To Len(Textl Text) tmp=Mid(Text1 Text， i， 1) 一个一个读入字符 (Mid函数 ) If Asc(tmp)=Asc(“A“)Then If Asc(trap)=Asc(“a“)Then tmp=Chr(Asc(tmp)-ind-Asc(“a“)+26)Mod 26+Asc(“a“) Else当输入为大写字母时 tmp=Chr(Asc(tmp)-ind-Asc(“A“)+26)Mod 26+Asc(“A“) End If End If str=str +tmp 将字符串连起来 Next i Textl Text=str 在 Textl中将加密后的字符串显示出来 End Sub单击 按钮运行程序，并按要求保存。
