1、二级 VISUAL+BASIC 机试-38 及答案解析(总分：50.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用。1在一个工程文件 ylc5.vbp，工程中已有一个 Aver 函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图 17 所示。提供的函数过程如下：Function Aver(arr()As Integer)As DoubleAver=arr (0)+arr(1)+arr(2)+arr(3)+arr(4)End Function注意：存盘时必须存放在考生文件夹下，工程文件
2、名为 ylc5.vbp，窗体丈件名为 ylc5.frm。（分数：25.00）_2.有一个工程文件 ylc6.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图 18 所示。（分数：25.00）_二级 VISUAL+BASIC 机试-38 答案解析(总分：50.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用。1在
3、一个工程文件 ylc5.vbp，工程中已有一个 Aver 函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图 17 所示。提供的函数过程如下：Function Aver(arr()As Integer)As DoubleAver=arr (0)+arr(1)+arr(2)+arr(3)+arr(4)End Function注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc5.vbp，窗体丈件名为 ylc5.frm。（分数：25.00）_正确答案：(操作步骤(1)在 Visual Basic 集
4、成环境中执行“文件”“打开工程”命令，在对话框中选择 ylc6.vbp 工程文件，单击“打开”按钮。(2)选择工具箱的 TextBox 控件，在窗体上创建名称为 Text1、Text2、Text3、Text4 和 Text5 的五个文本框控件，标题都设置为空。(3)通过工具箱选择命令按钮，创建标题为“求和”，名称为 C1 的命令按钮。2行为编码(1)编写 Command1 命令按钮的 Click 事件过程，代码如下：Private Sub Command1_Click()定义 Double 型求和变量 dnumDim dnum As Double定义数组 arrDim arr(0 To 4)A
5、s Integer使数组元素赋得其值arr(0)=Text1.Textarr(1)=Text2.Textarr(2)=Text3.Textarr(3)=Text4.Textarr(4)=Text5.Text调用函数过程 Aver，返回求得的和dnum=Aver(arr()清除窗体的显示内容Form1.Cls将求得的总数显示在窗体上Form1.Print(“求得的总数是:“& dnum)End Sub(2)按 F5 键运行该程序。3存盘保存执行“文件”“保存工程”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。)解析：解析 (1)本题考查对函数的调用数值的计算。通过 5 个
6、文本框得到输入的整数，调用题目中提供的函数过程得到它们的和，最后通过 Print 方法显示在窗体上。(2)注意函数过程调用，数值计算，窗体文本的显示。(3)Command1 的 Click 事件中使用文本框接收 5 个输入的数据，然后调用已有的函数过程 Aver 得到求得的和后，通过窗体的 Print 方法显示。在显示前使用了 Cls 方法，清除以前的显示内容，使应用可以多次运用，而窗体不至于显得混乱。2.有一个工程文件 ylc6.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并
7、且显示“文本框中的数值太大”；如果输入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图 18 所示。（分数：25.00）_正确答案：(操作步骤(1)在 Visual Basic 集成环境中选择“文件”“打开工程”命令，在对话框中选择 ylc6.vbp 工程文件，单击“确定”按钮打开。(2)选择工具箱中的 TextBox 控件，在窗口上拖动，创建该控件命名为 Text1，设置属性为空。(3)选择工具箱中的 CommandButton 控件，在窗口中拖动并画出该控件。在属性编辑框命名为 Command1，标题设置为“移动”。(
8、4)选择工具箱中的 HScrollBar 控件，在窗口上拖动创建该控件，命名为 HScroll1，在属性窗口根据题目的要求设置 Value 属性值为 0。(5)题目要求在移动到最左或最右边时，停止移动并显示提示信息。因此，在属性中设置它的最大最小值，即设置 Max 属性为 256，设置 Min 属性的值为-256。2行为编码Cormnand1 的 Click 事件，代码如下：Private Sub Command1_Click()Dim nCount As IntegernCount=CInt(Text1. Text)当前值与最大值比较If (nCount=HScroll1.Max) Then
9、HScroll1.Value=HScroll1.Max信息提示框提示MsgBox(“文本框中的数字太大“)Else当前值与最小值比较If (nCount=HScroll1.Min) ThenHScroll1.Value=HScrell1.Min信息提示框提示MsgBox(“文本框中的数字太小“)Else把当前值赋给滚动条HScroll1.Value=nCountEnd IfEnd IfEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。)解析：解析 (1)本题考查考生对 HScrollBar 相关属性的设置，包括对 HScrollBar 控件的最大、最小值的设置，滚动设置，以及判断语句的运用和实现显示用户提示信息。(2)注意 HScrollBar 控件的最大、最小值设置，滚动条的值设置，CommandButton 控件的 Click 事件处理的功能。(3)在每次单击“移动”按钮后，将文本框中的数值与 HScrollBar 的 Max 属性值和 Min 属性值进行比较。若超出 HScrollBar 的值域范围则弹出太大或太小提示信息，否则移动滚动条。
