国家二级VB机试（上机操作）模拟试卷408
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个命令按钮，其名称为C1，标题为“等级考试”；再画1个文本框，名称为T1，如图3—184(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图3—184(b)所示。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为：Form1、标题为“菜单演示”的窗体上画一个名称为Labe11、标题为空的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图3—185(a)所示。
请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时间(如图3—185(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。
(1)【操作步骤】
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。
步骤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
Private Sub Title_Click()
Labe11．Caption＝Form1．Caption
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。其功能是：
1)单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个按升序排列的整数读入到数组a中，同时显示在Text1文本框中；
2)单击“查找”按钮，则提示用户输入查找的数，并利用二分法在数组a中查找该数，若查找成功，则在Text2文本框中显示该数在数组中的位置，否则显示查找失败。
提示：二分法查找的思路是，将查找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。
要求：请将窗体的标题设置为“二分法查找”，并将“查找”命令按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。如图3—186所示的是运行时输入数值68的查找结果。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图3—187所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容。
(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，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
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.在考生文件夹下有一个工程文件sjt5．vbp。程序功能为：在文本框Text1中输入一个正整数N后，单击“计算”按钮，则计算11＋22＋33＋…＋NN，并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。
在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算N＝8时的结果。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算N＝8时的结果，否则无成绩。
【操作步骤】
步骤1：打开考生文件夹下的工程文件sjt5．vbp，在码编辑窗口的指定位置输入以下代码。参考代码：
Private Sub Command1_Click()
’＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝＝
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 ＆ \\
解析：
本文档预览：3600字符，共3416字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
