国家二级VB机试（上机操作）模拟试卷539
基本操作题
1.请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Command1、标题为“打开”的命令按钮，然后画一个名称为CD1的通用对话框（如图1－189所示），编写适当的事件过程，使得运行程序时，单击“打开”命令按钮，则弹出打开文件对话框。在属性窗口中设置通用对话框的适当属性，使得对话框中显示的文件类型第一项为“所有文件”，第二项为“*.DOC”，默认的过滤器为.DOC文件。
注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个文本框，名称为Text1，其初始内容为0；画一个命令按钮，名称为C1，标题为“开始计数”；再画一个名称为T1的计时器。要求在开始运行时不计数，单击“开始计数”按钮后，使文本框中的数每秒加1。在命令按钮的适当事件过程中加入语句：T1.Enabled=True，并编写适当的事件过程实现这个功能，要求只能写一条语句。运行时的窗体如图1－190所示。
第1小题
【操作步骤】
步骤1：新建一个“标准 EXE”工程，在窗体Form1中加入一个命令按钮，其相关属性设置如表2－90所示。
[*]
步骤2：选择【工程】→【部件】命令，将弹出的“部件”对话框，如图2－2所示，从列表中选中“MicroSoftCommon Dialog Control6.0”项目，单击“确定”按钮。
[*]
步骤3：双击工具箱新添加的通用对话框（CommonDialog）图标，在窗体中加入一个通用对话框，其相关属性设置如图2－3所示。也可右击窗体中的通用对话框，选择【属性】命令，在打开的“属性页”对话框中设置其相关属性，如图2－3所示。
[*]
步骤4：双击窗体Form1中的“打开”按钮，在打开的代码编辑窗口中，输入如下代码：
参考代码：
Private Sub Command1_Click()
CD1.ShowOpen
End Sub
步骤5：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，如表2－91在窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码窗口中加入以下代码：
参考代码：
Private Sub C1_Click()
T1.Enabled = True
End Sub
Private Sub T1_Timer()
Text1.Text = Text1.Text + 1
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生文件夹下有一个工程文件sjt3.vbp，它 包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。请把Form1上按钮的标题改为“结束”，把Form2上按钮的标题改为“显示”，并将Form2设为启动窗体，将Form1设为不显示。该程序实现的功能是：在程序运行时显示Form2窗体，单击Form2上的“显示”按钮，则显示Form1窗体；若单击Form1上的“结束”按钮，则关闭Form1和Form2，并结束程序运行。
请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。正确
程序运行后的界面如图1－191所示。
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有一个名为P1 的图片框；一个单选按钮数组，含三个单选按钮，标题分别为“正方形”、“椭圆形”、“圆形”；还有一个标题为“显示”的命令按钮。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”，如图1－192所示。
第1小题
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，然后将按钮C1的Caption 属性设置为“结束”，将按钮C2的Caption 属性设置为“显示”。
步骤2：选择【工程】→【工程属性】命令打开“工程属性”对话框，设置Form2为启动窗体。
步骤3：打开Form2和Form1的代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Load Form1
Form1.Visible = True
步骤4：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，程序界面如图2－4所示。
[*]
步骤2：依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表2－92所示。
[*]
步骤3：双击“显示”命令按钮，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
If Op1 (k).Value = True Then
Call draw(k)
P1.Print \\
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5.vbp。运行程序时，在文本框中输入一个素数，然后单击“查找”命令按钮，找出小于给定素数的三个最大的素数，并显示在标签控件数组Label1中，如图1－193所示。
【操作步骤】
步骤1：打开本题对应工程文件sjt5.vbp。
步骤2：双击窗体Form1上的“查找”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：
参考代码：
Dim i As Integer
Dim n As Integer
Dim counter As Integer
本文档预览：3600字符，共4143字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
