国家二级VB机试（上机操作）模拟试卷516
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画出包含三个命令按钮的控件数组，名称为cmd1，下标分别为0、1、2，Caption 分别为“开始”“停止”和“退出”，如图1－84（a）所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时，“停止”按钮不可见，“退出”按钮不可用，如图1－84（b）所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
（2）在名称为Form1的窗体上画两个名称分别为Command1和 Command2、标题分别为“打开”和“保存”的命令按钮，和一个名称为CD1 的通用对话框，如图1－85所示。请在属性窗口中设置CD1 的属性，使得打开通用对话框时，其初始路径是“C:\\\\”。再编写适当的事件过程，使得运行程序，分别单击“打开”或“保存”按钮时，相应地出现“打开”或“保存”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，如表2－23在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
[*]
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，选择【工程】：→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control6.0”项目，单击“确定”按钮。
步骤2：在窗体Form1上画一个通用对话框，其相关属性设置如表2－24所示。
[*]
步骤3：编写两个命令按钮的Click事件，加入下
面的代码：
参考代码：
Private Sub Command1_Click()
CD1.ShowOpen
’或 CD1.Action = 1
End Sub
Private Sub Command2_Click()
CD1.ShowSave
’或 CD1.Action = 2
End Sub
步骤4：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Combo1的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图1－86（a）所示，单击“输入正整数”按钮，通过输入对话框输入一个正整数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图 1－86（b）所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。
在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
（2）在考生目录下有一个工程文件sjt4.vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape 控件。请在属性窗口中将Shape1控件设置为圆形，并将其颜色设置为红色(颜色值为&H000000FF&)，如图1－87所示。
第1小题
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，将组合框的Style 属性设置为2。
步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Select Case Combo1.ListIndex
MsgBox Str(x) & f1(x)
MsgBox Str(x) & f2(x)
Private Function f2(ByVal x As Integer)
As String
If x Mod 7 = 0 Then
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，将Shape1控件的Shape 属性设置为3，将FillStyle 设置为0 和 FillColor 设置为&H000000FF&。
步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Private Flag As Boolean
Shape1.Top = Shape2.Top +
Shape2.Height – Shape1.Height
Shape1.Left = Shape2.Left +
Shape2.Width – Shape1.Width
步骤3：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在考生目录下已有一个工程文件sjt5.vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b 中。请编写程序，当单击“合并数组”按钮时，将a、b 数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找出a、c数组中元素的最大值，并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写代码。
参考代码：
Private Sub find(x() As Integer, t As
TextBox)
’======以下为考生编写的程序======
Max = x(1)
For i = 2 To UBound(x)
本文档预览：3600字符，共4009字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
