国家二级VB机试（上机操作）模拟试卷342
基本操作题
1.(1)在名称为Form1的窗体上画一个名称为Framel、标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Checkl、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态， “广州”为未选状态，“巴黎”为灰色状态，如图3．117所示。请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件picl．bmp，如图3．118所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1)步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个框架，然后依次在框架中画出三个复选框。
步骤3：分别设置框架和各复选框的相关属性，其属性及值如表4-70所示。
[*]
步骤4：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE\\
解析：(1)本题只需按要求画出框架以及框架中的复选框，并设置其Value属性。
(2)本题需分别在图片框和窗体的Click事件过程中，用LoadPicture()函数为图像框加载或清除图片。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，其功能是：1)单击“读数据”按钮，则把考生文件夹下in3．dac文件中的100个按升序排列的整数读入到数组a中，同时显示在Text1文本框中；
2)单击“查找”按钮，则提示用户输入查找的数，并利用二分法在数组a中查找该数，若查找成功，则在Text2文本框中显示该数在数组中的位置，否则显示查找失败。
提示：二分法查找的思路是，将查找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。
要求：请将窗体的标题设置为“二分法查找”，并将“查找”命令按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。如图3—186所示的是运行时输入数值68的查找结果。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图3一187所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
(1)步骤1：打开本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
m=(low+high)＼2
high=m-1
low=m+1
Loop Until low > high
If flag=1 Then
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：打开本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
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：按要求将文件保存至考生文件夹中。
解析：(1)在本题中首先假设待查找数组的最小下标值为low，最大下标值为high，则数组正中的元素下标m为(low+high)＼2。然后进行判断，如果a(m)的值等于待查找的值，则视为找到，令变量flag的值为1并退出循环；否则若a(m)大于x，则应该在左半部分查找，此时low不变，high的值为m-1；a(m)小于x，则应该在右半部分查找，此时high不变，low的值为m+1。这样一直到low<high为止退出循环，循环结束后判断旗帜变量flag的值，若其为l则意味着找到了待查找数据，否则为没有找到。
(2)本题源程序在Form MouseDown事件过程中，先判断当前按下的是否为鼠标左键，若为左键，则将全局变量flag的值设置为True，因此该变量类型应该为逻辑型；在Form MouseUp事件过程中，判断若弹起的是鼠标左键，则令flag为False，这样的话如果鼠标左键保持按住不放时flag的值就一直为True。在Form MouseMove事件中，如果flag为True(意味着按住鼠标左键)，则调用Circle方法画一个圆。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是：
①如果单击“读数据\\
步骤1：打开考生文件夹下的工程文件sjt5．vbp。
步骤2：编写“合并”按钮的单击事件过程。参考代码：
Private Sub Command2_Click()
;考生编写程序开始
ia=1：ib=1：iC=1
Do While ia<=30 And ib<=30
Tf a(ia) <b(ib)Then
c(ic)=a(ia)：ia=ia+1
Else
c(ic)=b(ib)：ib=ib+1
End Tf
ic=ic+1
Loop
Do While ia<=30
c(ic)=a(ia)：ia=ia+1：ic=ic+1
Loop
Do While ib<=30
C(ic)=b(ib)：ib=ib+1：ic=ic+1
Loop
’考生编写程序结束
’以下程序将合并后的数组C显示在Text3中
For k=1 To 60
Text3=Text3+Str(c(k))+Space(2)
Next k
End S1．1b
步骤3：运行程序，单击“读数据”按钮，然后单击“合并”按钮获得结果，然后通过窗体右上角的“关闭”按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
解析：根据题意，要求实现两个数组的有序合并，可以设置三个变量ia、ib、ic用于标识当前分别在三个数组中的当前元素下标，初值均为1；接下来进行循环，分别比较a(ia)和bob)的大小，若a(ia)<b(ib)，则将a(ia
本文档预览：3600字符，共3750字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
