1、国家二级 VB机试（上机操作）模拟试卷 408及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画 1个命令按钮，其名称为 C1，标题为 “等级考试 ”；再画 1个文本框，名称为 T1，如图 3184(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图 3184(b)所示。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt1 frm，工程文件名为sjt1 vbp。 (2)在名称为： F
2、orm1、标题为 “菜单演示 ”的窗体上画一个名称为Labe11、标题为空的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 3185(a)所示。 请编写适当的程序，使得选中 “输出窗体标题 ”菜单项时，就在标签中显示窗体标题；选中 “输出当前时间 ”菜单项时，在标签中显示当前系统时间 (如图 3185(b)所示 )。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2 frm， 工程文件名为 sjt2 vbp。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。其功能是： 1)单击 “读数据
3、 ”按钮，则把考生文件夹下 in3 dat文件中的 100个按升序排列的整数读入到数组 a中，同时显示在 Text1文本框中； 2)单击 “查找 ”按钮，则提示用户输入查找的数，并利用二分法在数组 a中查找该数，若查找成功，则在 Text2文本框中显示该数在数组中的位置，否则显示查找失败。 提示：二分法查找的思路是，将查找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在 数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。 要求：请将窗体的标题设置为 “二分法查找 ”，并将 “查找 ”命令按钮的 Click事件过程中的注释符去掉，把 “?”改为正确内容，以
4、实现上述程序功能。如图 3186所示的是运行时输入数值 68的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图 3187所示。给出的程序不完整 ，要求去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序功能为：在文本框 Text1中输入一个正整数 N后，单击 “计算
5、”按钮，则计算 11 22 33 NN，并将计算结果显示在 Text2中。程序中的函数 f可以计算 mm的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，并编写相应的程序，实现程 序的功能，并且必须在运行时计算 N 8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N 8时的结果，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 408答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设
6、置相应属性。 步骤 2：打开代码编辑窗口，编写文本框的 Change事件过程。参考代码： Private Sub T1_Change() C1 Visible False T1 Text C1 Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。 步骤 2：打开代码编辑窗口，编写两个底层菜单命令的单击事件过程。参考代码： Prirate Sub Clock_Click() Labe11 Caption Time End Sub Priva
7、te Sub Title_Click() Labe11 Caption Form1 Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件 sis vbp，在代码编辑窗口中，去掉程序中的注释符“”将问号 “?”改为正确的内容。参考代码： m (low high) 2 high m 1 low m 1 Loop Until low high If flaq 1 Then 步骤 2：按要求将文件保存至考生文件夹中 。 (2)【操作步骤】 步骤 1：打开本题工程文件 sjt4 vbp，在代码编辑窗口
8、中，去掉程序中的注释符“”，将问号 “?”改为正确的内容。参考代码： Dim Flag As Boolean Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single, Y As Single) Circle (X， Y)， 300 Flag False 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，在码编辑窗口的指定位置输入以下代码。参考代码： Private Sub Command1_Click(
9、) 考生编写程序开始 Dim i， j As Integer， k As Long i Text1 Text k 0 For j 1 To i k k f(j) Next Text2 Text k 考生编写 程序结束 Open App Path “ out5 dat“For Output As #1 Print： #1， Text1， Text2 Close #1 End Sub 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： s 1 s s*m f s 步骤 3：按 键运行程序，在文本框中输入 8，单击 “计算 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。
