1、国家二级 VB机试（上机操作）模拟试卷 175及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个图片框，名称为 Pl，高为 1800，宽为 1700，通过属性窗口把图形文件 picl bmp放到图片框中 (如图 2 193所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Forml的窗体上画两个文奉框，名称分别为 Text1、 Text2，都显示垂直 滚动条和水平滚动条，都可以显示多行文本；再画一个命令按钮，名
2、称为 C1，标题为 “复制 ”(如图 2 194所示 )。请编写适当的事件过程，使得存运行时，在 Textl中输入文本后，单击 “复制 ”按钮，就把Text1中的文本全部复制到 Text2中。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2,frm。二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体上有一个命令按钮Commandl(标题为 “下一个 ”)。 要求：在窗体上建立 一个单选按钮数组 Optionl，含4个单选按钮，标题分别为 “选项 1”、 “选项 2”、 “选项 3”、 “选项 4”，初
3、始状态下， “选择 1”为选中状态。如图 2 104所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第一个单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体 上已经画出所有控件，如图2 105所示。在 Text1文奉框中输入一个任意的字符串 (要求串的长度 10)，然后选择组合框中的三个截取运算选项之一。单击 “计算 ”按钮，将截取运算后的结
4、果显示在 Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生目录下有一个上程文件 vbsi5 vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2+b2=c2。例如， 3、 4、 5就是一个满足条件的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3 4， 5被视为同一个组合，不应该重复计算 )。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Lbll中，运行时程序界面如图 2 5
5、7所示。注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示让标签中，甭则无成绩。最后把修改后的文件按原文件名存髓。 国家二级 VB机试（上机操作）模拟试卷 175答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程如表3-101在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Forml中加入两个文本框和一个命令按钮，并分别设置它们的相关属性，其属性及值如表 3-102。
6、步骤3：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub C1一 Click() Text2 Text=Textl Text End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件sjt3 vbp，如表 3 59在窗体中用 “复制 ”和 “粘贴 ”命令画出包含 4个元素的单选数组并设置属性。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为止确的内容。 参考代码： Private Sub CommandlClick() For k=0
7、To 3 If Optionl(k) Value Then n=k End If Next k Optionl(n) Value=FalSe n=n+1 If n=4 Then n=0 End If Optionl(n) Value=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件 sit4 vbp在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?改为正确的内容。 参考代码： Select case Comb01 ListIndex tmpStr=Mid(Trim(Textl Text)， 3， 4 Tex
8、t2 Text； tmpStr 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 vbsj5 vbp，在码编辑窗口的指定位置输入代码： 参考代码： Private Sub CommancllClick() =考生编写程序开始 = Dim i As Integer Dim j As Integer Dim n As Integer For i=1 To 59 For j=i To 60 Tf Sqr(i*i+j*j)=Tnt(Sqr一 (i*i+j*j)And Sqr一 (i*i+j*j)键运行程序。单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
