1、二级 VISUAL+BASIC 机试-12 及答案解析(总分：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.要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function 之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：30.00）_二级 VISUAL+BASIC 机试-12 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.0
4、0)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图 24-1 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 For
5、m1 的窗体上画两个命令按钮，如图 24-2 所示，其名称分别为 Cmd1 和 Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2 倍。程序的运行情况如图 24-3 所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：(解析 在窗体上建立好控件后，设置控件的属性。在 Visual Basic 中，文本框的多行显示由 MultiLine
6、 属性设置，垂直滚动条由 ScrollBars 属性设置，文本框中显示信息由 Text 属性设置，字体由 Font 属性设置。窗体的标题由 Caption 属性设置。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 24-1。表 24-1控 件 属 性 设 置 值文本框MultiLineScrollBarsTextFontTrue2-Vertical程序设计黑体 规则 三号窗体 Caption 设置文本框属性第二步：调试并运行程序。第三步：按题目要求存盘。(2) 解析 在窗体上建立控件后，先设置控件的属性，再编写事件过程。单击命令按钮触发 Click 事件。利用按钮的 H
7、eight 和 Width 属性，来改变按钮的大小；利用按钮的Left 和 Top 属性，来改变按钮的位置。解题步骤：第一步：建立控件并设置其属性。程序中用到的控件及其属性见表 24-2。表 24-2控 件 属 性 设 置 值按钮 Caption Cmd1按钮 Caption Cmd2第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Cmd1_Click()Cmd1.Left=0Cmd1.Top=0End SubPrivate Sub Cmd2_Click()Cmd2.Height=Cmd2.Height*2Cmd2.Width=Cmd2.Width*2En
8、d Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、2 简单应用题(总题数：1，分数：40.00)2.要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function 之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。（分数：40.00）_正确答案：(解析 首先在循环语句中对数组赋值，使用 Rnd 函数和 Int 函数生成 01000 随机整数。在数组求最大值中，定义一个变量，用来存放数组中的最大值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循环让变量和数组中的每个元素进行逐个比较，每次比较后变量中保存两个数中最
9、大的数，循环结束后，变量中存放的数即为最大值。Int 函数是将参数转换成整数。Rnd 函数返回小于 1，但大于或等于 0 的值，其语法格式为：Rnd(number)可选的 number 参数是 Single 或任何有效的数值表达式。number 的值决定了 Rnd 函数生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1) *Rnd+lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。解题步骤：第一步：阅读题目提供的程序。程序提供的代码：Option Base 1
10、Private 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 IntegerRandomizeFor i=
11、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 SaveData()Open App.P
12、ath 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第三步：调试并运行程序。第四步：按题目要求存盘。)解析：
