1、VB机试模拟试卷 88及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体 Forml上画一个名称为 Textl的文本框和一个名称为 Labell的标签，程序运行时，在文本框 Textl中输入字符，文本框中的字符将值赋到 Labell中。注意，本程序代码中不得使用任何变量。程序运行时的窗体界面如图 50l所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为sil vbp。 (2)在窗体 Forml中画一个文本框，名称为 Textl、内容为空。要求设置适当的控件属性，使得程序运行时，可 以多行显示且具备垂直滚动条。要求程序中不得有任何变量。程序运行时的窗体
2、界面如图 50一 2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上绘制两个名称分别为 Labell和 Label2的标签，标题分别为 “项数 ”和 “新添 ”；绘制两个名称分别为 Textl和 Text2的文本框，没有初始内容；绘制一个名称为 Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于 5个，内容任意 )；再绘制两个命令按 钮，名称分别为 Commandl和Command2、标题分别为 “添加 ”和 “项数 ”，运行界面如图 383所示。在运行时，向
3、Textl中输入字符，单击 “添加 ”按钮后，则 Textl中的内容作为一个列表项被添加到组合框的列表中；单击 “项数 ”按钮，则在窗体上显示组合框中列表项的个数。请编写两个命令按钮的 Click事件过程。 注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为 sj3 vbp，窗体文件名为sj3 frm。 (2)在考生文件夹下有 1个工程文件 sj4 vbp，该程序用来对在上面 文本框中输入的英文字母串 (称为 “明文 ”)加密，加密结果 (称为 “密文 ”)显示在下面的文本框中。加密的方法是：选中 1个单选按钮，单击 “加密 ”按钮后，根据选中的单选按钮后面的
4、数字 n，把明文中的每个字母改为它前面的第 n个字母 (“a”前面的字母认为是 “z”， “Z”后面的字母认为是 “A”)，如图 384所示。注意：窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分 ） 3 在考生文件夹下有一个工程文件 sj5 vbp，其窗体上有一个文本框，名称为Textl；有三个命令按钮，名称分别为 Commandl、 Command2和 Command3，标题分别为 “输入 ”、 “计算显示 ”和 “保存 ”，运行界面
5、如图 455所示。在给定程序中有一个函数过程 isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回 False。 请将程序中有问号 (即 “?”)的地方替换为相应的代码，使得在运行时，单击 “输入 ”按钮，弹出 “输入 ”对话框，单击 “计算显示 ”按钮，则找出大于输人参 数的最小素数，并显示在 Textl中；单击 “保存 ”按钮，则把 Textl中的计算结果存入考生文件夹下的 out5 txt文件中。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按
6、原文件名存盘。考生不得修改 isPrimeNum函数过程和控件的属性，必须把计算结果通过 “保存 ”按钮存入 out5 txt文件中，否则无成绩。 VB机试模拟试卷 88答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本 题考查控件画法、文本框的属性及其 Change事件。文本框的Text属性设置或返回其显示的文本内容，当在文本框中输入文本时将触发其Change事件。根据题意，新建 “标准 EXE”工程，将一个标签和一个文本框控件添加到窗体中，标签的名称为 Labell、 Caption属性为空，文本框的名称为 Textl、Text属性为空。双击 Textl进入代码窗口，编写如
7、下代码： Private Sub Textl_Change() Labell Caption=Textl Text将 Textl中的文本在 Labell中显示出来 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查文本框多种属性的设置。文本框 (TextBox)一般用于接收或显示输入输出的信息。文本框的 Text属性设置或返回其显示的文本内容； MultiLine属性设置文本框是否允许以多行显示文本，值为 True表示允许，值为 False表示不允许； ScrollBars属性设置文本框是否有水平或垂直滚动条， 0、 1、 2、 3四种值： 0表示没有滚动条 (默认值 )； 1
8、表示只有水平滚动条； 2表示只有垂直滚动条； 3表示有水平和垂直滚动条，设置 0以外的值时 MultiLine属 性值必须为 True。 根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、 MultiLine属性为 True、 ScrollBar控件为2。单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将两个文本框控件、两个命令按钮、两个标签和一个 ComboBox控件添加到窗体中，文本框的名称分别为Textl和 Text2、 Text属性都为空，命令按钮的名称分别为 Comm
9、andl和Command2、 Caption属性分别为 “添加 ”和 “项数 ”，标签的 Caption属性分别为 “项数 ”和 “新添 ”， ComboBox的名称为 Comb01， Style设为 2。 AddItem方法用来向组合框中添加一个表项，其格式为：组合框 AddItem列表项 索引 。 ListCount属性返回组合框中列表项的个数。 双击 Commandl，进入代码编写窗口，具体代码如下： Private Sub Commandl Click()单击添加 Comb01 AddItem Text2 Text向Comb01中添加 Text2的文本 End Sub Private
10、Sub Command2_Click() 单击项数 Textl Text=Comb01 ListCount将 Comb01的项数赋给 Textl End Sub 单击 按钮运行程序，并按要求保存。 (2)本题首先要确定移动的位数，移动的位数是由单选按钮的 Caption属性确定的，然后要确定循环的次数，循环的次数是由输入字母的个数来确定的。对于字符串，需要对字符进行逐个处理。使用 Asc()函数来获得字符的 ASCII码， Chr()函数将 ASCII码转 换成字符，先获得移位后的 ASCII码值，保证符合条件，然后再转换成字符。 Mid函数的格式为： Mid(字符串， P， n)，表示从第
11、P个字符开始，向后截取 n个字符， P和 n都是算术表达式。 Mid函数的第三个变量可以省略，这样将从第 P个字符开始向后截取到字符串的结尾。 双击Commandl进入代码编写窗口，具体代码如下： Private Sub Commandl_Click() Dim str As String Dim tmp As String Dim i As Integer Dim ind As Integer If Optionl Value=True Then ind=1 当选中 Optionl时，则移 1位 ElseIf Option2 Value=True Then ind=2当选中 Option2时
12、，则移 2位 Else ind=3当选中Option3时，则移 3位 End If str=“ For i=1 To Len(Textl Text) tmp=Mid(Textl Text， i， 1)一个一个读人字符 If Asc(tmp)=Asc(“A“)Then当输人为字母时加密 If Asc(trap)=Asc(“a“) Then tmp=Chr(Asc(tmp)-ind-Asc(“a“)+26)Mod 26+Asc(“a“) 右移 ind位，以 26为循环周期 Else当输入为大写字母时 tmp=Chr(Asc(tmp)-ind-Asc(“A“)+26)Mod 26+Asc(“A“)
13、右移 ind位，以 26为循环周期 End If End If str=str+tmp将字符串连起来 Next i Text2 Text=str在 Textl中显示加密后的字符串 End Sub 单击 按钮运行程序 ，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 判断一个数是否为素数就是看该数是否除了 1及其本身外别无其他约数 (即从 2到 n-1之间没有可以将其整除的数 )即可，从 Function函数中可知，变量 isPrimeNum用于保留判断数是否是素数的结果，值为 True表示是素数，值为False表示不是素数。文本框通过 Text属性显示计算结果，其形式为：文本框名
14、 Text=要显示的内容。将数据写入文件可用命令 Write#语句或 Print#语句，本程序中用的是前者，其形式为： Write#文件号， 输出列 表 。 根据题意，将一个文本框控件和 3个命令按钮添加到窗体中，文本框的名称为 Textl， Text属性为空，命令按钮的名称分别为 Commandl， Command2和 Command3， Caption属性分别为“输入 ”、 “计算显示 ”和 “保存 ”。双击 Commandl进入代码窗口，编写如下代码： Dim a As Integer Dim res As Integer Private Sub Commandl Click() a=V
15、al(InputBox(“输入参数： “) 弹出输入对话框 End Sub Private Sub Command2_Click() While isPrimeNum(a)=False如果输入参数不是素数则继续循环 a=a+1 Wend Textl Text=a将获得的素数在 Textl中显示出来 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&“out txt“For Output As#1 Write#l， a Close#1End Sub单击 按钮运行程序，并按要求保存。
