国家二级VB机试(上机操作)模拟试卷488(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷488 (题后含答案及解析)

全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题

基本操作题

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所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为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．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中实现，请编写该过程的代码。 要求：请勿改动程序中的其他部分，只在Function Fun( )和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。 说明：数组

arr有40个元素，“数组art中每个元素与其下标相除所得的和”，是指：arr(1)／1＋arr(2)／2＋arr(3)／3＋…＋arr(40)／40 (2)在考生文件夹下有一个工程文件vbsi4．vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图3－145所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

正确答案：第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：按要求将文件保存至考生文件夹中。