1、VB 机试模拟试卷 17 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1) 在名称为 Form1的窗体上放置两个列表框，名称分别为 List1和 List2。在 List1中添加 “第一题 ”、 “第二题 ”“ 第八题 ”，并设置 MultiSelect属性为 2(要求在控件属性中设置实现 )。再放置一个名称为 Cmd1，标题为 “复制 ”的命令按钮。程序运行后，如果单击 “复制 ”按钮， 将 List1中选中的内容 (至少两项
2、)复制到 List2中。如果选择的项数少于 2项，用消息框提示 “请选择至少两项 ”。如图 17-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。 (2) 在名称为 Form1的窗体上放置一个名称为 Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示 (要求焦点在最右端 )。如图 17-2所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1)
3、在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 L1，请画一个单选按钮数组，名称为 Op1，含三个单选按钮，它们的 Index 属性分别为 0、 1和 2，标题依次为 “飞机 ”、 “火车 ”、 “汽车 ”，再画一个名称为 Text1的文本框。 窗体文件中已经给出了Op1的 Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在运行时单击 “飞机 ”或 “火车 ”单选按钮时，在 Text1中显示 “我 坐飞机去 ”或 “我坐火车去 ”，单击 “汽车 ”单选按钮时，在 Text1中显示 “我开汽车去 ”。程序运行界面如图 19-3所示。
4、注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2) 在考生文件夹下有一个工程文件 sjt4.vbp， Form1窗体中有一个文本框，名称为 Text1；请在窗体上画两个框架，名称分别为 F1和 F2，标题分别为 “性别 ”和 “身份 ”；在 F1中画两个单选按钮 Op1和 Op2，标题分别为 “男 ”和 “女 ”；在 F2中画两个单选按钮 Op3和 Op4，标题分别为 “学生 ”和 “教师 ”；再画一个命令按 钮，名称为 C1，标题为 “确定 ”。程序运行界面如图 19-4所示。 请编写适当的事件过程，使得在运行时，在 P1和 F2中各选一个单选按钮，然后单击 “确定
5、”按钮，就可以按照表 19-1把结果显示在文本框中。注意：考生不得修改窗体文件中已经存在的程序和 Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。三、综合应用题（ 30分） 3 下面出现的 “考生文件夹 ”均为 c： wexam25160001。 去掉程序中的注释符，把程序中的 ?改为正确 的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为 Text1；有两个命令按钮，名称分别为
6、 C1和 C2，标题分别为 “计算 ”、 “存盘 ”，如图， 18-5所示。在给定程序中有一个函数过程 isprime，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。 请将程序中有问号的地方替换为相应的代码，使得在运行时，单击 “计算 ”按钮，则找出大于 15000的第 1个 素数，并显示在Text1中；单击 “存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的 out5.txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过 “存盘 ”按钮存入 out5.txt文件中，否则无成绩。 VB 机试模拟试卷 17
7、答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 自列表框中添加项目可以用事件 AddItem事件，也可以在属性窗口中进行，但题目中要求是在属性窗口添加所以选择利用属性实现的。列表框 的 Text属性为最后一次选中的表项的文本，且每次一定要不少于两次，少于的话会用 msgbox给出提示。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-1。 第二步：编写程序代码 参考代码： Option Explicit Private Sub Cmd1_Click() Dim i As Integer, j As
8、Integer Dim a(8) As String For i=0 To List1.ListCount-1 If List1.Selected (i) Then a(i)=List1.List(i) j=j+1 End If Next i If j 2 Then MsgBox “请选择至少两项 “ Else List2.Clear For i=0 To List1.ListCount-1 If a(i) “ Then List2.AddItem a(i) Next End If End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件的属性
9、，再编写事件过程。 在 Text控件中输入文本时触发 Change事件，通过 Ucase函数来换成大写字母。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-2。参考代码： Private Sub Text1_Change() Text1.SelStart=Len(Text1.Text) Text1.Text=UCase(Text1.Text) End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 标签和单选按钮的标题均由各自的 Caption属性设置。程序中需要检测的单选按钮的状态，这可以通过 Valu
10、e属性来实现。如果单选按钮被选中，则Value值为 1； 否则 Value值为 0。当建立控件数组时，系统给每个元素赋一个惟一的索引号 (Index)，通过属性窗口的 Index 属性，可以知道该控件的下标是多少在文本框里显示内容通过 Text属性设置，其形式为： 文本框名 .Text=显示的内容 程序中用到了 Select Case语句，格式如下： Select Case 变量或表达式 (对于本题来说就是控件数组元素的下标 ) Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块2 Case Else 语句块 n+1 End Select 解题步骤：第一步： 建立界面并设置
11、控件属性。程序用到的控件及其属性见表 19-4。第二步：编写程序代码。 程序提供的代码： Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a=“我坐 “ b=“我开“ Select Case ? Case 0 Text1.Text=a+Me.Op1(0) .Caption+“去 “ Case 1 Text1.Text=?+Me.Op1(1) .Caption+“去 “ Case 2 Text1.Text=b+Me.Op1(2) .Caption+“去 “ End Select E
12、nd Sub 参考代码： Private Sub Op1 Click(Index As Integer) Dim a As String, b As String, c As String a=“我坐 “ b=“我开 “ Select Case Index Case 0 Text1.Text=a+Me.Op1(0) .Caption+“去 “ Case 1 Text1.Text=a+Me.Op1(1) .Caption+“去 “ Case 2 Text1.Text=b+Me.Op1(2) .Caption+“去 “ End Select End Sub 第三步：调试并运行程序。 第四步：按题目
13、要求存盘。 (2)在窗体上 建立好控件后，先设置控件属性，再编写事件过程。 命令按钮标题由Caption属性设置，单击命令触发 Click事件；单选按钮的标题由 Caption属性设置，程序中需要检测的单选按钮的状态，通过 Value属性来实现，如果单选按钮被选中，则 Value值为 1，否则 Value值为 0。在文本框中显示内容通过 Text属性实现，其形式为： 文本框名 .Text=显示的内容。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 19-5。第二步：编写程序代码。 参考代码： Private Sub C1_Click() Text1.Text=“我是 “
14、 If Op1.Value Then Text1.Text=Text1.Text & Op1.Caption Else Text1.Text=Text1.Text & Op2.Caption End If If Op3.Value Then Text1.Text=Text1.Text & Op3.Caption Else Text1.Text=Text1.Text & Op4.Caption End If End Sub Private Sub Form_Unload(Cancel As Integer) Open “out4.txt“ For Output As #1 Print #1, O
15、p1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 素数的判断准则就是看是否该数除了 1和其本身外别无其他约数(即从 2到 n-1之间没有可以将其整除的数 )即可，变量 flag是用于保留判断数是 否是素数的结果的，值有 True和 False两个 (从程序中可以看出 )所以应将其定义为布尔型 (Boolean)，并且在过程中判断完之后，将 flag的值赋给函数过程 isprime的名字。文本框通过 Text
16、属性显示计算结果，其形式为： 文本框名 .Text=要显示的内容 将数据写入文件可用命令 Write#语句或 Ptint#语句，本程序中用的是后者，其形式为： Pint#文件号， 输出列表 。解题步骤： 第一步：建立了界面并设置控件属性。程序用到的控件及其属性值见表 18-5。第二步：编写程序代码。 程序提供的代码： Private Function isprime(a As Integer) As Boolean Dim flag As? flag=True b%=2 Do While b% =Int(a/2) And flag If Int(a/b%)=a/b% Then flag=Fal
17、se Else b%=b%+1 End If Loop isprime= End Function Private Sub C1_Click() Dim i As Integer i=15O00 Do While Not isprime(i) i=i+1 Loop Text1.Text=i End Sub Private Sub C2_Click() Open “Out5.txt“ For Output As #1 Print #1, Text1.? Close #1 End Sub 参考代码： Private Function isprime(a As Integer) As Boolean
18、 Dim flag As Boolean flag=True b%=2 Do While b% =Int(a/2) And flag If Int(a/b%)=a/b% Then flag=False Else b%=b%+1 End If Loop isprime=flag End Function Private Sub C1_Click() Dim i As Integer i=15000 Do While Not isprime(i) i=i+1 Loop Text1.Text=i End Sub Private Sub C2_Click() Open “Out5.txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
