1、国家二级 VB机试（上机操作）模拟试卷 252及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界而和代码 )。 (1)在名称为 Form1的窗体上画一个标签，其名称为 Label1，标题为 “等级考试 ”，BorderStyle属性为 1，可以根据标题自动调整人小：然后再画一个命令按钮，其名称和标题均为 Commandl，编写适当的事件过程。程序运行后，其界面如图 2-73(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图 2 73(b)所 示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1
2、vbp，窗体文件名为 sjt1 frm。(2)在名称为 Forml的窗休上画一个文本框，其名称为 Text1，初始内容为空白；然后再画三个单选按钮，其名称分别为 Op1、 Op2和 Op3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择中选按钮 Op1，则在文本框中显示 “颐和园 ”：如果选择单选按钮 Op2，则在文本框中显示 “兵马俑 ”；如果选择单选按钮 Op3，则在文奉框中娃示 “西湖 ”。程序的运行情况如图 2 74所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2
3、frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 1)单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个按升序排列的整数读入到数组 a中，同时显示在 Text1文本框中； 2)单击 “查找 ”按钮，则提示用户输入查找的数，并利用二分法存数组 a中查找该数，若查找成功，则在 Text2文本框中显示该数存数组中的位置，否则显示查找失败。 提示 ：二分法查找的思路是，将金找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。 要求：请将窗体的标题
4、设置为 “二分法查找 ”，并将 “查找 ”命令按钮的 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。如图 2 109所示的是运行时输入数值 68的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个上程义件 sjt4 vbp。运行程序，按下鼠标左键 ，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图 2 110所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的 ?改为止确的内容。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 在考生目
5、录下有一个上程文件 vbsi5 vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2+b2=c2。例如， 3、 4、 5就是一个满足条件的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3 4， 5被视为同一个组合，不应该重复计算 )。编写程 序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Lbll中，运行时程序界面如图 2 57所示。注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示让标签中，甭则无成绩。最后把修改后的文件按原文件名存髓。 国家二级 VB机试（上机操作）模拟试卷 2
6、52答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 43在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写以下事件过程。 参考代码： Private Sub Commandl一 Click() Commandl Capt ion=Labell Labell Visible=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程在窗体 Form1上画一个文本框和三个单选按钮，其属性及值如表 3-44所示。步骤 2：在代码编辑窗口
7、，编写三个单选按钮的单击事件过程。 参考代码： PriVate Sub OplClick() Textl=“颐和园 ” End Sub PriVate S ub Op2一 Click() Text1 Text=“兵马俑 ” End Sub PriVate Sub Op3 Click() Text1 Text=“西湖 ” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： m=(low+high)
8、2 high=m1 low=m+1 Loop Until lowhigh If flag=1 Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： Dim Flag As Boolean Private Sub FormMouseMove(Button AsInteger, Shift As Integer I X As Single tY As Single) Circle(X， Y)， 300 Flag=False 步骤 2：按要求将
9、文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 vbsj5 vbp，在码编辑窗口的指定位置输入代码： 参考代码： Private Sub CommancllClick() =考生编写程序开始 = Dim i As Integer Dim j As Integer Dim n As Integer For i=1 To 59 For j=i To 60 Tf Sqr(i*i+j*j)=Tnt(Sqr一 (i*i+j*j)And Sqr一 (i*i+j*j)键运行程序。单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
