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