1、二级 VISUAL+BASIC 机试-78 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图 24-1 所示。要
2、求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 Form1 的窗体上画两个命令按钮，如图 24-2 所示，其名称分别为 Cmd1 和 Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2 倍。程序的运行情况如图 24-3 所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数
3、：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 C：/wexam/25160002。(1) 在考生文件夹下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是产生 30 个01000 的随机整数，放入一个数组中，然后输出其中的最大值。程序运行后，单击命令按钮(名称为 Command1，标题为“输出最大值”，如图 24-4 所示)，即可求出其最大值，并在窗体上显示出来。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。
4、最后把修改后的文件按原文件名存盘。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 C：/wexam/25160002。在考生文件夹下有一个工程文件 sjt5.vbp，相应的窗体文件为 sjt5.frm，此外还有一个名为 datain.txt的文本文件，其内容如下：42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31程序运行后，单击窗体，将把文件 datain.txt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行 5 列的矩阵形
5、式显示出来，并输出矩阵左上-右下对角线上的数据，如图 24-5 所示。（分数：30.00）_二级 VISUAL+BASIC 机试-78 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字
6、体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图 24-1 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 Form1 的窗体上画两个命令按钮，如图 24-2 所示，其名称分别为 Cmd1 和 Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2 倍。程序的运行情况如图 24-3 所示。要求：不得使用任何变量。注意：存盘时必须
7、存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：(解析 在窗体上建立好控件后，设置控件的属性。在 Visual Basic 中，文本框的多行显示由 MultiLine 属性设置，垂直滚动条由 ScrollBars 属性设置，文本框中显示信息由 Text 属性设置，字体由 Font 属性设置。窗体的标题由 Caption 属性设置。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 24-1。表 24-1控 件 属 性 设 置 值文本框MultiLineScrollBarsTextFontTrue2-Vert
8、ical程序设计黑体 规则 三号窗体 Caption 设置文本框属性第二步：调试并运行程序。第三步：按题目要求存盘。(2) 解析 在窗体上建立控件后，先设置控件的属性，再编写事件过程。单击命令按钮触发 Click 事件。利用按钮的 Height 和 Width 属性，来改变按钮的大小；利用按钮的Left 和 Top 属性，来改变按钮的位置。解题步骤：第一步：建立控件并设置其属性。程序中用到的控件及其属性见表 24-2。表 24-2控 件 属 性 设 置 值按钮 Caption Cmd1按钮 Caption Cmd2第二步：编写程序代码。参考代码：Option ExplicitPrivate S
9、ub Cmd1_Click()Cmd1.Left=0Cmd1.Top=0End SubPrivate Sub Cmd2_Click()Cmd2.Height=Cmd2.Height*2Cmd2.Width=Cmd2.Width*2End Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、2 简单应用题(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 C：/wexam/25160002。(1) 在考生文件夹下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是产生 30 个01000 的随机整数，放入一个数组中，然后输
10、出其中的最大值。程序运行后，单击命令按钮(名称为 Command1，标题为“输出最大值”，如图 24-4 所示)，即可求出其最大值，并在窗体上显示出来。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：40.00）_正确答案：(解析 首先在循环语句中对数组赋值，使用 Rnd 函数和 Int 函数生成 01000 随机整数。在数组求最大值中，定义一个变量，用来存放数组中的最大值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循环让变量和数组中的每个元素进
11、行逐个比较，每次比较后变量中保存两个数中最大的数，循环结束后，变量中存放的数即为最大值。Int 函数是将参数转换成整数。Rnd 函数返回小于 1，但大于或等于 0 的值，其语法格式为：Rnd(number)可选的 number 参数是 Single 或任何有效的数值表达式。number 的值决定了 Rnd 函数生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1) *Rnd+lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。解题步骤：第一步：阅读题目提供的程序。
12、程序提供的代码：Option Base 1Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As IntegerRandomizeFor i=1 To 30arrN(i)=Int(Rnd * ?)Next i?=arrN(1)For i=2 To 30If ? ThenMax=arrN(i)End IfNext iPrint MaxEnd Sub第二步：修改程序代码。参考代码：Option Base 1Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As I
13、ntegerRandomizeFor i=1 To 30arrN(i)=Int(Rnd * 1000)Next iMax=arrN(1)For i=2 To 30If MaxarrN(i) ThenMax=arrN(i)End IfNext iPrint MaxEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 本题要求的是 1000 以内能被 5 或 7 整除的数的个数。在 Visual Basic 中，使用 Mod 运算符来判断一个数是否可以被另一个数整除，如果计算结果为 0，则表示可以整除，否则不能整除。解题步骤：第一步：阅读题目提供的程序。程序提供的代码：Sub
14、 SaveData()Open App.Path Mat(i, j) ;Next jPrintNext iPrintPrint “左上-右下对角线上的数为：“For i=1 To NFor j=1 To MIf ? Then Print Tab (5 * j) ; Mat(i, j) ;Next jNext iEnd Sub第二步：修改程序代码。参考代码：Option Base 1Private Sub Form_Click()Const N=5Const M=5Dim Mat (M, N)Dim i, jOpen App.Path Mat(i, j) ;Next jPrintNext iPrintPrint “左上-右下对角线上的数为：“For i=1 To NFor j=1 To MIf i=j Then Print Tab (5 * j) ; Mat(i, j) ;Next jNext iEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。)解析：
