1、国家二级 VB机试（上机操作）模拟试卷 198及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Labell的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示 “等级考试 ”，并使标签的外观如图 2 173所示。运行后的窗体见图 2 173。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sit1 frm。(2)在名称为 Forml的窗体上画一个名称为 lmagel的图像框，有边框，并可以自动调整
2、装入图片的大小以适应图像框的尺寸；再画三个命令按钮，名称分别为 Command1、 Command2、Command3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生目录下有两个图标文件，其名称分别为 “Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “红桃 ”按钮，则在图像框中显示红桃图案 (即 Misc34 ico文件，如图 2 174所示 )；单击“黑桃 ”按钮，则在图像框中显示黑桃图案 (即 Misc37 ico文件 )：单击 “清除 ”按钮，则 清除图像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。 注意：要求程序中不得使用变量，每
3、个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sil2 vbp，窗体文件名为 sjt2.frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上有一个矩形和一个圆，还有垂直和水甲滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边 线上，如图 2 140(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 2 140(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和稗序，但程序不完整，请去掉程序中
4、的汴释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sit4 vbp。窗体中已经给出了所有控件，如图 2 141所示。运行时，单击 “发射 ”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离 (用坐标值表示 )、所用时问 (单位为秒 )分别显示在标签Label1和 Label2中；单击 “保存 ”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4 txt文件中。 文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修
5、改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序功能为：在文本框 Textl中输入一个正整数 N后，单击 “计算 ”按钮，则计算 11+22+33+N N，并将计算结果显示在 Text2中。程序中的函数 f可以计算 mm的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算 N=8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=
6、8时的结果，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 198答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画三个单选按钮，并设置它的相关属性，其属性及值如表 3 93所示。 步骤 2：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 394在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写三个命令按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Imagel Picture = L0
7、adPicture(App Path ” MiSC34 iCO”) End Sub Private Sub Command2一 Click() Imagel Picture = LoadPicture(App Path ”MiSC37 iCO”) End Sub Private Sub Command3一 Click() Imagel PiCture=LoadPicture() End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生 文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “
8、”，将问号 “?”改为正确的内容。 参考代码： HScrolll Max=Shape2 Width+Shape2 LeftShapel Width VScrolll Max； Shape2 Height+Shape2 TopShapel Height Shapel Left=HScr0111 Value Shapel.Top=VScr0111 步骤 2：按要求将文件保存至考生文件夹中 。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： TimeR1 Enabled： Tru
9、e Timerl Enabled=False d=dImagel Top t=t+1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，先单击 “发射 ”按钮，计算完毕后单击 “存盘 ”按钮，最后单击窗体右上角的关 闭按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： Private Sub CommandlClick() =考生编写程序开始 = Dim i， j As Integer， k As Long i=Textl Text k=0 For j=1 To i k=k+f(j) Next Text2 Text=k =考生编写程序结束 = Open App Path ” out5 dat”ForOutput As#1 Print#1， Text1， Text2 Close#1 End Sub 步骤 2；在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： s=1 S=S m f=s 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行稗序，在文本框中输入 8， 单击 “计算 ”按钮。
