1、国家二级 VB机试（上机操作）模拟试卷 343及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画 1个命令按钮，其名称为 C1，标题为“等级考试“；再画 1个文本框，名称为 T1，如图 3184(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图 3184(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt1frm，工程文件名为 sjt1vbo。(2)在名称为 Form1、标题为“菜单演示”的
2、窗体上画一个名称为 Label1、标题为空的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 3-185(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时间(如图 3185(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2frm，工程文件名为sjt2vbp。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和
3、水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图3153(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 3。153(b)所示。垂直滚动条的情况与此类似。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗口有 2个名称分别为 Command1和 Command2、标题分别为“读数据“和“排序”的命令按钮，有 2个标题分别为“数组 A”和“数组 B”的标签。请将窗体标题设置为“完全平方
4、数排序”；再画 2个名称分别为 Text1和 Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 355 所示。程序功能如下： 1)单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100个正整数读入数组 A，并将它们显示在 Text1文本框中。 2)单击“排序”按钮，则首先将这 100个数中的所有完全平方数放入数组 B中，并将它们按降序排列显示在 Text2文本框中。 提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=122，所以 144就是一个完全平方数。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 343答案解析(总分：6
5、.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画 1个命令按钮，其名称为 C1，标题为“等级考试“；再画 1个文本框，名称为 T1，如图 3184(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图 3184(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt1frm，工程文件名为 sjt1vbo。(2)在名称为 Form1、标题为“菜单演示”的窗体上画一个名称为 Label1、标题为空的标签；再建立一个菜单，
6、各菜单项的属性设置见下表。窗体外观如图 3-185(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时间(如图 3185(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2frm，工程文件名为sjt2vbp。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置相应属性。 步骤2：打开代码编辑窗口，编写文本框的 Change事件过程。参考代码： Private Sub T1
7、_Change() C1Visible=False T1Text=C1Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。 步骤 2：打开代码编辑窗口，编写两个底层菜单命令的单击事件过程。参考代码： Private Sub Clock Click() Label1Caption=Time End Sub Private Sub Title Click() Label1Caption=Form1Caption End Sub 步骤 3：按要求将文件保存至考生
8、文件夹中。)解析：解析：(1)本题需在文本框的 Change事件中，改变 C1的 Visible属性以及为文本框的 Text属性赋值为命令按钮 C1的 Caption属性。 (2)本题除了按照要求设置控件的属性以及菜单之外，还需要编写菜单项事件，把窗体标题和当前时间显示在标签中。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如
9、图3153(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 3。153(b)所示。垂直滚动条的情况与此类似。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件下的本题工程文件 sjr3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： HScroll1Max=Shape2Width+ Shape2Left-Shape1Width VScroll1Max=Shape2Height+ Shape2Top-Shape1Height： Shape1Left=HScroll1Value Shape1Top=VScroll1 步骤 2：按要
10、求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： TimerlEnabled=True TimerlEnabled=False d=d-Image1Top t=t+1 步骤 2：按F5键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：(1)本题在窗体加载过程中初始化水平滚动条和垂直滚动条的 Min属性和 Max属性值，以使其能与圆形 Shape1所能到达的左边界、右边
11、界、上边界、下边界一致，其中：HScroll1Max=Shape2Width+Shape2Left-Shape1Width，VScrolllMax=Shape2Height+Shape2Top-Shape1Height。当水平或垂直滚动条移动时，通过在其 Change事件过程中设置 Shape1的 Left属性值或 Top属性值与滚动条的 Value属性值一致即可。 (2)本题通过计时器来控制航天飞机移动。单击“发射”按钮时启动计时器(即TimerlEnabled=True)，并记录下此时航天飞机(Imagel)上部的坐标值(d=Image1Top)；在计时器的Timer事件过程中，每次让航天
12、飞机向上移动 50的 a倍(a 为实现航天飞机加速移动的系数)，如果移动后航天飞机己全部进入云中(即 ImagelTop+ImagelHeight=Image2Top+Image2Height-200)，则通过停止计时器(即 TimerlEnabled=False)来停止航天飞机上移，并将此时飞行距离 d(d=dImagelTop)显示在标签 Label1中，飞行时间(t*TimerlInterval1000)显示在标签 Label2中。如果航天飞机还没全部进入云中，则加速系数增加 01，并用变量 t记录一次飞行时间(t=t+1)。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下
13、有一个工程文件 sjt5vbp，窗口有 2个名称分别为 Command1和 Command2、标题分别为“读数据“和“排序”的命令按钮，有 2个标题分别为“数组 A”和“数组 B”的标签。请将窗体标题设置为“完全平方数排序”；再画 2个名称分别为 Text1和 Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 355 所示。程序功能如下： 1)单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100个正整数读入数组 A，并将它们显示在 Text1文本框中。 2)单击“排序”按钮，则首先将这 100个数中的所有完全平方数放入数组 B中，并将它们按降序排列显示在 T
14、ext2文本框中。 提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=122，所以 144就是一个完全平方数。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹下的工程文件 sjt5vbp，在码编辑窗口的指定位置输入以下代码。参考代码： 考生编写的代码 n=0 For k=1 To 100 If a(k) 0 Then d=Sqr(a(k) If Int(d)=d Then n=n+1 ： b(n) =a(k) End If End If Next 步骤 2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Call sor
15、t(b，n) 步骤 3：按F5键运行程序，单击“读数据”按钮，然后单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。)解析：解析：程序设计思路：通过 For循环逐一取出数组 a中的 100个元素，依次判断每个元素是否是完全平方数。判断完全平方数的过程只需要将该数组元素开平方根以后取整，若其和数组元素开平方根的结果相等，则意味着该数组元素的平方根是一个整数，该数为完全平方数，将该数放入数组 b中。sort 过程的作用是将数组进行排序，该过程有两个参数，第一个参数为待排序的数组，第二个参数为要排序的元素个数，根据题意为数组 b排序的语句为 Call sort(1)，n)。
