国家二级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版点下载