1、VB 机试模拟试卷 22 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1) 在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Label2，标题分别为 “书名 ”和 “作者 ”)、两个文本框 (名称分别为 Text1和 Text2， Text属性均为空白 )和一个命令按钮 (名称为Command1，标题为 “显示 ”)，如图 22-1所示。然后编写命令按钮的 Click事件 过程。程序运行后，在两个文本框中分别
2、输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图 22-2所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2) 在名称为 Form1的窗体上画一个垂直滚动条 (名称为 VScroll1)和一个水平滚动条 (名称为 HScroll1)，如图 22-3所示。在属性窗口中对两个滚动条设置如下属性： Min 1500 Max 6000 LargeChange 200 SmallChange 50 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小窗体。运
3、行后的窗体如图 22-4所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 C： wexam25160002。 (1) 在考生文件夹下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是产生 30个 01000的随机整数，放入一个 数组中，然后输出其中的最大值。程序运行后，单击命令按钮 (名称为 Command1，标题为 “输出最大值 ”，如图 24-4所示 )，即可求出其最大值，并在窗体上显示出来。这个程序不完整，
4、请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2) 在考生文件夹下有一个工程文件 sjt4.vbp，相应的窗体文件为 sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 0 1000范围内能被 5整除或能被 7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被 5整除或能被 7整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Func
5、tion Fun()和 End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 C： wexam25160002。 在考生文件夹下有一个工程文件 sjt5.vbp，窗 体上二有两个文本框，名称分别为 Text1和 Text2，都可以多行显示。还有 3个命令按钮，名称分别为 C1、 C2和 C3，标题分别为 “取数 ”、 “排序 ”和 “存盘 ”。 “取数 ”按钮的功能是把考生文件夹下的 in5.dat文件中的 50个整数读到数组中，并在 Text1中显示出来； “排序 ”按钮的功能是对这 50
6、个数按升序排序，并显示在 Text2中； “存盘 ”按钮的功能是把排好序的 50个数存到考生文件夹下的 out5.dat文件中。程序运行界面如图 23-5所示。 在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符， 把程序中的 ?改为正确的内容，并编写 “排序 ”按钮的 Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 VB 机试模拟试卷 22 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 标签和命令按钮的标题各自的 Caption属
7、性来设置，文本框显示的内容由 Text属性设置，窗体的标题由其 Caption属性来设置。在 Visual Basic中可以用 “+”或 “&”运算符将两个字符串连接起 来。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 22-1。第二步：编写程序代码。 参考代码： option Explicit rivate Sub Command1_C1ick() Form1.Caption=Text1+“,“+Label2+“+Text2 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 窗体的大小由
8、其 Width属性和 Height属性设置 ，分别决定窗体的宽和高；用滚动条的值来设置窗体的宽和高，只要将窗体的Width属性和 Height属性和滚动条的 Value值联系起来即可。解题步骤： 第 步：建立界面并设置控件属性。程序中用到的控件及其属性见表 22-2。第二步：编写程序代码。 参考代码： Option Explicit Private Sub HScroll1_Change() Form1 Width=HScroll1 End Sub Private Sub VScroll1_Change() Form1.Height=VScroll1.Value End Sub 第三步：调试并
9、运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 首先在循环语句中对数组赋值，使用 Rnd函数和 Int函数生成 01000随机整数。在数组求最大值中，定义一个变量，用来存放数组中的最大值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循环让变量和数组中的每个元素进行逐个比较，每次比较后变量中保存两个数中最大的数，循环结束后，变量中存放的数即为最大值。 Int函数是将参数转换成整数。 Rnd函数返回小于 1，但大 于或等于 0的值，其语法格式为： Rnd(number) 可选的 number参数是 Single或任何有效的数值表达式。 number的值决
10、定了 Rnd函数生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式： Int(upperbound-lowerbound+1) *Rnd+lowerbound) 这里， upperbound是随机数范围的上限，而 lowerbound则是随机数范围的下限。解题步骤： 第一步：阅读题目提供的程序。 程序提供的代码： Option Base 1 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Max As Integer Randomize For i=1 To 30 arrN(i)=Int(Rnd * ?) Next
11、i ?=arrN(1) For i=2 To 30 If ? Then Max=arrN(i) End If Next i Print Max End Sub 第二步：修改程序代码。 参考代码： Option Base 1 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Max As Integer Randomize For i=1 To 30 arrN(i)=Int(Rnd * 1000) Next i Max=arrN(1) For i=2 To 30 If Max arrN(i) Then Max=arrN(i) End
12、 If Next i Print Max End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)本题要求的是 1000以内能被 5或 7整除的数的个数。在 Visual Basic中，使用Mod运算符来判断一 个数是否可以被另一个数整除，如果计算结果 为 0，则表示可以整除，否则不能整除。解题步骤： 第一步：阅读题目提供的程序。 程序提供的代码： Sub SaveData() Open App.Path &“& “outtxt.txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun()
13、 End Function Private Sub Command1_Click() d=Fun() Text1.Text=d SaveData End Sub 第二步 编写程序代码。 参考代码： Sub SaveData() Open App.Path & “ & “outtxt.txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() Dim temp As Integer Dim i As Integer For i=0 To 1000 If i Mod 5=0 Or i Mod 7=0 Then
14、 . temp=temp+1 End If Next i Fun=temp End Function Private Sub Command1_Click() d=Fun() Text1.Text=d SaveData End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 首先理清程序提供代码的思路，然后修改程序并编写代码。 从程序提供的代码中可以看出，整型数组 a的使用范围是本窗体中的所有事件过程，用来存放从文件中读取的数据。在排序中，使用双重循环，外循环每踞环一次，确定内循环循环的次数，内循环就是把本次循环中最大的数，放在数组的最
15、后面，这样就可以实现对这 50个数的升序排序。解题步骤： 第一步：分析题目提供的代码。 Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer， ch As String Open “in5.dat“ For Input AS #1 ch=“ “ For k=1 To 50 Input #1, ? ch=ch+Str(a(k) ) +“ “ Next k Close #1 Text1.Text= ? End Sub Private Sub C3_Click() Open “out5.dat“ For Output As #1 P
16、rint #1, Text2.Text Close #1 End Sub 第二步：编写程序代码。 参考代码： Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer, ch As String Open “in5.dat“ For Input As #1 ch=“ For k=1 To 50 Input #1, a(k) ch=ch+Str(a(k) ) +“ “ Next k Close #1 Text1.Text=ch End Sub Private Sub C2_Click() Dim t As Integer, i As
17、 Integer, j As Integer Dim ch As String ch=“ For i=50 To 2 Step -1 For j=1 To 49 If a(j) a(j+1) Then t=a (j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50 ch=ch+Str(a(j) ) +“ “ Next j Text2.Text=ch End Sub Private Sub C3_Click() Open “out5.dat“ For Output As #1 Print #1, Text2.Text Close #1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
