国家二级VB机试（上机操作）模拟试卷301
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—142所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。
(2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmd1(标题为“设置”)和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：Max=窗体高度Min=0LargeChange=50SmallChange=10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3—143所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2．vbp，窗体文件名为vbsj2．frm。
第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．Heiqht
Vsb1．Min=0
Vsb1．LargeChange=50
Vsb1．SmallChange=10
End Sub
Private Sub Vsb1_Change()
Print Vsb1．Value
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为“&HFF&”。
第2小题：本题其实就是在命令按钮的单击事件过程中用代码来设置水平滚动条的属性，并且在水平滚动条的Change事件过程中，用Print方法把表示水平滚动条滑块位置的Value属性值输出到窗体上。
简单应用题
2.(1)在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．frm，在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组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 Pic1．Left＞Me．Width Then
Pic1．Left=0
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：由本题所提供源程序可知，要求编写一个求数组中各元素与其下标相除所得的和，并在文本框中显示出来的函数。设计思路：利用For循环浯句，将数组中各元素除以其下标(表达式为：a(i)／i)的值累加入一个变量(如sum)。循环变晕的初值和终值可分别通过函数Lbound(a)和Ubound(a)获得。
第2小题：本题源程序利用计时器的Timer。事件来控制图片的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中，通过每次使图片框的Left属性值增量200实现移动，并让水平滚动条滑块的位置随图片框的Left属性值变化。当图片完全移出窗体的右边界(即Pic1．Left＞Me．Width)时，则重新从窗体左边界开始移动，即Pic1．Left=0。由于题目要求不能在设计阶段修改控件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即Tmr1．Interval=500。
综合应用题
3.在考生目录下有一个工程文件vbsj5．vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签：Lbl1中，运行时程序界面如图3—146所示。
步骤1：打开考生文件夹下的工程文件vbsj5．vbp，在码编辑窗口的指定位置输入代码。
参考代码：
Private Sub Command1_Click()
’===考生编写程序开始====
Dim i As Integer，j As Integer
Dim n As Integer
For i=1To59
For j=i To60
If Sqr(i*i+j*j)=Int(Sqr_
(i*i+j*j))And Sqr_
(i*i+j*j)＜=60Then
n=n+1
End If
Next
Next
Lbl1．Caption=n
’===考生编写程序结束====
’不要改动以下内容
sav
本文档预览：3600字符，共3985字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
