1、国家二级 VB机试（上机操作）模拟试卷 301及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个名称为 CmdChange、标题为 “改变颜色 ”的命令按钮，窗体标题为 “设置窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 3142所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文 件名为 vbsj1 frm。 (2)在名称为 Form1的窗体
2、上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmd1(标题为 “设置 ”)和 Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0LargeChange=50SmallChange=10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 3143所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体文件名为 vbsj2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsj3 vbp，相应的窗体文件为 vbsj3 frm，在窗
3、体上有一个标题为 “计算 ”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组 arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图 3144所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标相除所得的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在 Function Fun()和 End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。说明：数组 arr中共有4
4、0个元素， “数组 arr中每个元素与其下标相除所得的和 ”，是指： arr(1) 1+arr(2) 2+arr(3) 3+arr(40) 40程序源码： End SUbFunction Fun(a() As Single)As Single由考生编写 =End FunctionPrivate Sub cmdCal C1iCk()Dim arr， arr2(40)As Singlearr=Array(12 5， 65 4， 56， 73， 46 23， _58 25，83 49， 96， 27 3， 36 78， _29 26， 89 4， 34 7， 45 4， 56 9， _67 4，78
5、， 98， 87 5， 76 8， 34 6， _55 8， 64 7， 43 7， 99 4， 84 7，_66 2， 23 9， 55 5， 44 1， 33 2， _43 5， 41 2， 28 3， 78 6， 98 3，_6 1， 73 6， 49 3， 48 3)For i=1To UBound(arr)arr2(i)=arr(i)Next ir=Fun(arr2()txtResul-t Text=Str(r)SaveDataEnd SubSub SaveData()Open“out3 txt“For Output As#1rint#1， txtResult TextCloSe1E
6、nd Sub(2)在考生文件夹下有一个工程文件 vbsj4 vbp。程序运行后，如果单击 “开始 ”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片完全移出窗体 的右边界时，立即再从窗体的左边界开始重新移动，若单击 “停止 ”按钮，则图片停止移动，如图 3145所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdStart_Click()Tmr1 Enabled=True
7、End SubPrivate Sub cmdStop Click()Tmr1 Enabled=?End SubPrivate Sub Form Load()Hsb1 Min=0Hsb1 Max=Me WidthTmr1 Interval=?End SubPrivate Sub Tmr1_Timer()Pic1 Left=Pic1 Left+200IfPic1 Left ?ThenPic1 Left=?End IfHScroll1 Value=Pic1 Left 三、综合应用题 3 在考生目录下有一个工程文件 vbsj5 vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2
8、+b2=c2。例如， 3、 4、 5就是一个满足条件的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3， 4， 5被视为同一个组合，不应该重复计算 )。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签： Lbl1中，运行时程序界面如图 3146所示。注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。程序源码： Public Sub save(l As Control)Open App Path&“ out5 txt“For_Outlout As
9、#1Print#1， 1 CaptionClose #1End Sub 国家二级 VB机试（上机操作）模拟试卷 301答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程，在窗 体 Form1中画一个命令按钮，设置相关属性，其属性及值如表 483所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。参考代码： Private Sub cmdChange_Click()BackColor=&HFF&End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，按表 484在窗体中画出控件并设置
10、其相关属性。 步骤 2：打开代码编辑窗口，编写水平滚动条的 Change事件过程。参考代码： Private Sub Cmd1_Click()Vsb1 Max=Form1 HeiqhtVsb1 Min=0Vsb1 LargeChange=50Vsb1 SmallChange=10End SubPrivate Sub Vsb1_Change()Print Vsb1 ValueEnd Sub步骤3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题需在命令按钮的单击事件过程中，通过语句设置窗体的 BackColor属性值为 “&HFF&”。 第 2小题：本题其实就是在命令按钮的单击事
11、件过程中用代码来设置水平滚动条的属性，并且在水平滚动条的 Change事 件过程中，用 Print方法把表示水平滚动条滑块位置的 Value属性值输出到窗体上。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件夹下的工程文件 vbsj3 vbp。 步骤 2：进入代码编辑窗口，在 Function Fun()和 End Function之间输入以下代码。 参考代码： Function Fun(a()As Single)As Single Dim sum As Single Dim i As Integer For i=LBound(a)To UBound(a) sum=sum
12、+a(i) i Next Fun=sum End Function 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹下的工程文件 vbsj4 vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Tmr1 Enabled=False Tmr1 Interval=500 If Pic1 Left Me Width Then Pic1 Left=0 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：由本题所提供源 程序可知，要求编写一个求数组中各元素与其下标相除所得的和，并在文本框中显示出来的
13、函数。设计思路：利用 For循环浯句，将数组中各元素除以其下标 (表达式为： a(i) i)的值累加入一个变量 (如sum)。循环变晕的初值和终值可分别通过函数 Lbound(a)和 Ubound(a)获得。 第 2小题：本题源程序利用计时器的 Timer。事件来控制图片的移动，因此单击“开始 ”按钮启动计时器，而单击 “停止 ”按钮就是要停止计时器。在计时器的Timer事件过程中，通过每次使图片框的 Left属性值增量 200实现移动，并让水平滚动条滑 块的位置随图片框的 Left属性值变化。当图片完全移出窗体的右边界(即 Pic1 Left Me Width)时，则重新从窗体左边界开始移动
14、，即Pic1 Left=0。由于题目要求不能在设计阶段修改控件属性，要想在单击 “开始 ”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的 Interval属性，即Tmr1 Interval=500。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 vbsj5 vbp，在码编辑窗口的指定位置输入代码。 参考代码： Private Sub Command1_Click() =考生编写程序开始 = Dim i As Integer， j As Integer Dim n As Integer For i=1To59 For j=i To60 If Sqr(i*i+j
15、*j)=Int(Sqr_ (i*i+j*j)And Sqr_ (i*i+j*j) =60Then n=n+1 End If Next Next Lbl1 Caption=n =考生编写程序结束 = 不要改动以下内容 save Label1 End Sub 步骤 2：按 F5键运行程序，单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 本题可通过一个嵌套的 For循环，来统计满足题目要求的整数组合的个数。其中，外循环变量 i的取值范闱为 1 60，内循环变量 j的取值范围为 i60(这样可避免出现重复的组合 )。通过表达式： Sqr(i*i+j*j)=Int(Sqr(i*i+j*j)是否成立来判断 Sqr(i*i+j*j)的值是否为整数，并通过表达式： Sqr(i*i+j*j) =60是否成立来判断 Sqr(i*i+j*j)的值是否在 60以内，当两个条件同时 满足时，此时的 i、 j及 Sqr(i*i+j*j)即为满足题目要求的整数组合，记录组合个数的变量 n加一。循环结束，将 n值显示在标签 Label1中。
