国家二级VB机试（上机操作）模拟试卷549
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为cmdOpen的命令按钮，标题为“打开文件”，再画一个名称为cdlOpen的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为“打开文件”；设置适当属性，使对话框的“文件类型”下拉式组合框中有二行：“文本文件”、“所有文件”（如图1－236所示），默认的类型是“所有文件”。
②编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
（2）在名称为Form1的窗体上画一个图片框（名称为Pic1）、一个垂直滚动条（名称为Vsb1）和一个命令按钮（名称为cmdSet，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为pic1.jpg，位于考生目录下），图片框的宽度与图形的宽度相同，图片框的高度任意（如图1－237所示）。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
Min＝100
Max＝2400
LargeChange＝200
SmallChange＝20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图1－238所示。要求程序中不得使用任何变量。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，打开“部件”对话框，从其列表中选中“MicroSoft Common Dialog Control6.0”项目，单击“确定”按钮。
步骤2：在窗体Form1中加入一个命令按钮和一个通用对话框，其相关属性设置如表2－116所示。
[*]
步骤3：在代码编辑窗口中，编写“打开文件”按钮的单击事件过程：
参考代码：
Private Sub cmdOpen_Click()
cdlOpen.ShowOpen
End Sub
步骤4：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个图片框和一个水平滚动条，在属性设置窗口中设置其相关属性，属性及其值如表2－117所示。
[*]
步骤2：打开代码编辑窗口，分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。
参考代码：
Private Sub cmdSet_Click()
Vsb1.Min = 100
Vsb1.Max = 2400
Vsb1.LargeChange = 200
Vsb1.SmallChange = 20
End Sub
Private Sub Vsb1_Change()
Pic1.Height = Vsb1.Value
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生目录下有一个工程文件vbsj3.vbp，包含了所有控件和部分程序，如图1－239所示。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的工程文件vbsj3.vbp，依次选中窗体中的两个文本框，将其Alignment 属性值设置为1－Right Justify。
步骤2：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。
参考代码：
Private Sub cmdCal_Click()
Select Case cboFun.Text
Case \\
解析：
综合应用题
3.在考生文件夹下有一个工程文件vbsj5.vbp，其功能是：①单击“读数”按钮，则把考生文件夹下in5.dat文件中的100个0～999之间的整数读入数组a 中；②单击“计算”按钮，则对这100个数中的水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如153=13＋53＋33，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框txtResult中。
窗体中给出了所有控件（如图1－241所示）以及“读数”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口指定位置编写以下代码：
参考代码：
Dim sum As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
For i = 1 To 100
x = Int(a(i) / 100)
y = Int((a(i) – x * 100) / 10)
z = a(i) – x * 100 – y * 10
If a(i) = x ＾ 3 + y ＾ 3 + z ＾ 3 Then
sum = sum + a(i)
n = n + 1
End If
Next
txtResult.Text = Int(sum / n)
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按 ＜F5＞运行程序，先单击“读数”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。
解析：
本文档预览：3600字符，共3504字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
