1、国家二级 VB机试（上机操作）模拟试卷 353及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画两个名称分别为 Framel、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Framel中画两个单选按钮，名称分别为 Optionl、Option2，标题分别为 “10号字 ”、 “20号字 “，且标题显示在单选按钮的左边；在Frame2中画一个名称为 Checkl的复选框，标题为 “下划线 ”。运行后的窗体如图3 174所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体
2、上从上到下画两个文本框，名称分别为 Text1、 Text2；再画一个命令按钮，名称为 Command1，标题为 “选中字符数是 ”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 “按钮，则在 Text2中显示选中的字符个数 (如图 3 175所示 )。请编写按钮的 Click事件过程。要求：不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体上有一个命令按钮Command1(标题为 “下一个 ”
3、)。 要求：在窗体上建立一个单选按钮数组 Optionl，含4个单选按钮，标题分别为 “选项 1”、 “选项 2“、 “选项 3”、 “选项 4”，初始状态下， “选择 1”为选中状态。如图 3 190所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第一个 单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控件，如图 3 1
4、91所示。在 Text1文本框中输入一个任意的字符串 (要求串的长度 10)，然后选择组合框中的三个截取运算选项之一。单击 “计算 “按钮，将截取运算后的结果显示在 Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 vbsii5 vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2+b2=c2。例如， 3、 4、 5就是一个满足条件的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3，
5、4， 5被视为同一个组合，不应该重复计算 )。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Lbl1中，运行时程序界面如图 3 146所示。注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把 修改后的文件按原文件名存盘。 程序源码： Public Sub save(1 As Control)Open App Path “ out5 txt“ For Output As #1 Print #1， 1 Caption Close #1 End Sub 国家二级 VB机试（上机操作）模拟试卷
6、353答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性， 步骤 2：打开代码编辑窗口，编写以下事件过程。 参考代码： Private Sub Command1 Click() Text2 Text=Form1 Text1 SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题只需按题目在窗体中画出控件，并设置相关属性即可。 (2)要在 Text2中显示 Te
7、xt1中选中的字符个数，需编写语句将 Text1的SelLength属性返回值赋值给 Text2。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，按要求画出控件数组并设置属性。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Private Sub Command1_Click() For k=0 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
8、 Optionl(n) Value=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sill4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Select Case Combol ListIndex tmpStr=Mid(Trim(Text1 Text)， 3， 4) Text2 Text=tmpStr 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题在命令按钮的单击事件过程中，首先利用 For循环语句 (循环变量 k的初值为 0，终值为 3)逐一检查单选按钮
9、数组中的每个元素是否被选中，若选中则用变量 n记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选择，变量 n增 1；接着判断增 1后的 n值是否为 4，若是则将 n的值设置为 0；最后设置索引号为 n的单选按钮被选中。 (2)本题源程序的中心设计思想是：将文本框 Text1中的字符串按 组合框中所选要求进行截取并放入文本框 Text2中。源程序以组合框列表项的索引号 (即 List1ndex属性值 )作为 Select Case语句的判断表达式，故第一个 ?处应为Combol ListIndex；组合框中第三项要求截取第 3 6个字符，其实就是从字符串的第三个字符开
10、始，截取 4个字符，故 Mid函数的第 2、三个参数应为 3和 4；最后的 ?处是将截取结果显示在文本框中，故应为 tmpStr。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 vbsj5 vbp，在码编辑窗口的指定位置输入代码 。参考代码： Private Sub Command1_Click() =考生编写程序开始 = Dim i As Integer， j As Integer Dim n As Integer For i=1 To 5 9 For j=i To 60 If Sqr(i*i+j*j)=Int(Sqr _ (i*i+j*j)And Sqr _ (i
11、*i+j*j)键运行程序，单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 本题可通过一个嵌套的 For循环，来统计满足题目要求的整数组合的个数。其中，外循环变量 i的取值范围为 1 60，内循环变量 j的取值范围为 i60(这样可避免出现重复的组合 )。通过表达式： Sqr(i*i+j*j)=Int(Sqr(i*i+j*j)是否成立来判断 Sqr(i*i+j*j)的值是否为整数，并通过表达式： Sqr(i*i+j*j)=60是否成立来判断 Sqr(i*i+j*j)的值是否在 60以内，当两个条件同时满足时，此时的 i、 j及Sqr(i*i+j*j)即为满足题目要求的整数组合，记录组合个数的变量 n加一。循环结束，将 n值显示在标签 Label1中。
