国家二级VB机试（上机操作）模拟试卷488
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(＆HFF＆)。运行程序后的窗体如图3－142所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。
(2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmd1(标题为“设置”)和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：
Max＝窗体高度
Min＝0
LargeChange＝50
SmallChange＝10
如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3—143所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4－83所示。
[*]
步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。参考代码：
Private Sub cmdChange_Click( )
BackColor＝＆ HFF ＆
End Sub
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按表4－84在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：
Private Sub Cmd1_Click( )
Vsb1．Max＝Form1．Height
Vsb1．Min＝0
Vsb1．LargeChange＝50
Vsb1．SmaliChange＝10
End Sub
Private Sub Vsb1_Change( )
Print Vsb1．Value
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．filaa，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3－144所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
第1小题
【操作步骤】
步骤1：打开考生文件夹下的工程文件vbsj3．vbp。
步骤2：进入代码编辑窗口，在Function Fun( )和End Function之间输入以下代码。参考代码：
Function Fun(a( ) As Single) As Single
Dim sum As Single
Dim i As Integer
For i＝LBound(a) To UBound(a)
sum＝sum＋a(i)／i
Next
Fun＝sum
End Function
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件夹下的工程文件vbsj4．vbp。
步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Tmr1．Enabled＝False
Tmr1．Interval＝500
If Picl．Left＞Me．Width Then
Picl．Left＝0
步骤3：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在考生目录下有一个工程文件vbsjl5．vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2＋b2＝c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签Lbl1中，运行时程序界面如图3－146所示。
【操作步骤】
步骤1：打开考生文件夹下的工程文件vbs．i5．vbp，在码编辑窗口的指定位置输入代码。参考代码：
Private Sub Command1_Click( )
’＝＝＝考生编写程序开始＝＝＝＝
Dim i As Integer，j As Integer
Dim n As Integer
For i＝1 To 59
For j＝i To 60
If Sqr(i*i＋j*j)＝Int(Sqr_
(i*i＋j*j)) And sqr_
(i*i＋j*j)＜＝60 Then
n＝n＋1
End If
Next
Next
Lbl1．Caption＝n
’＝＝＝考生编写程序结束＝＝＝＝
’不要改动以下内容
save Label1
End Sub
步骤2：按＜F5＞键运行程序，单击“计算”按钮。
步骤3：按要求将文件保存至考生文件夹中。
解析：
本文档预览：3600字符，共3504字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
