1、国家二级 VB机试（上机操作）模拟试卷 399及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 CmdChange、标题为“改变颜色“的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 3142所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1vbp，窗体文件名为 vbsj
2、1frm。 (2)在名称为 Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmd1，标题为“设置”)和 Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max窗体高度 Min0 LargeChange50 SmallChange10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3143所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vbsj3vbp，相应的窗体文件为 vbsj3frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框
3、。程序运行后，单击命令按钮，即可计算出数组 arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 3144所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标相除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组 arr中共有 40个元素，“数组 arr中每个元素与其下标相除
4、所得的和”，是指：arr(1)1arr(2)2arr(3)3arr(40)40 (2)在考生文件夹下有一个工程文件 vbsi4vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图 3145所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 vbsj5vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是：a 2 b 2 c 2
5、 。例如，3、4、5 就是一个满足条件的整数组合(注意：a，b，c 分别为4，3，5 与分别为 3，4，5 被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Lb11中，运行时程序界面如图 3146所示。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 399答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 CmdChange、标题为“改变颜色“
6、的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 3142所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1vbp，窗体文件名为 vbsj1frm。 (2)在名称为 Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmd1，标题为“设置”)和 Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max窗体高度 Min0 LargeChange50 SmallChange10 如果移动垂直
7、滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3143所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画一个命令按钮，设置相关属性，其属性及值如表 483所示。 步骤 2：打开代码编辑窗口，编写按钮的Click事件过程中。参考代码： Private Sub cmdChange_Click() BackCoiorHFF End Sub 步骤3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表484在窗体中画出控件并设置其相关属性。 )解析：二、简单
8、应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vbsj3vbp，相应的窗体文件为 vbsj3frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 3144所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标相除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序
9、运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组 arr中共有 40个元素，“数组 arr中每个元素与其下标相除所得的和”，是指：arr(1)1arr(2)2arr(3)3arr(40)40 (2)在考生文件夹下有一个工程文件 vbsi4vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图 3145所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00
10、）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 vbsj3vbp。 步骤 2：进入代码编辑窗口，在 Function Fun()和 End Function 之间输入以下代码。参考代码： Function Fun(a() As Single)As Single Dim sum As Single Dim i As Integer For iLBound(a)To UBound(a) sumsuma(i)i Next FunSum End Function 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 v
11、bsj4vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符“”将问号“?”改为正确的内容。参考代码： Tmr1EnabledFalse Tmr1Interval500 If Pic1LeftMeWidth Then Pic1Left0 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 vbsj5vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是：a 2 b 2 c 2 。例如，3、4、5 就是一个满足条件的整数组合(注意：a，b，c 分别为4，3，5 与分别为 3，4，5 被视为同一个组合，不应该
12、重复计算)。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Lb11中，运行时程序界面如图 3146所示。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 vbsj5vbp，在码编辑窗口的指定位置输入代码。参考代码： Private Sub Command1_Click() 考生编写程序开始 Dim i As Integer，j As Integer Dim n As Integer For i1 To 59 For ji To 60 If Sqr(i*ij*J)Int(Sqr_ (i*ij*j)And Sqr (i*ij*j)60 Then nn1 End If Next Next Lb11Captionn 考生编写程序结束 不要改动以下内容 Save Labe11 End Sub 步骤2：按F5键运行程序，单击“计算”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
