[计算机类试卷]国家二级VB机试（上机操作）模拟试卷108及答案与解析.doc

1、国家二级 VB机试（上机操作）模拟试卷 108及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Frame1中画两个单选按钮，名称分别为 Optionl、 Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在 Frame2中画一个名称为 Checkl的复选框，标题为 “下划线 ”。运行后的窗体如图 3 120所示。注意：存盘时必须存放在考生文件夹下，工程文件

2、名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上从上到下画两个文本框，名称分别为 Text1、 Text2；再画一个命令按钮，名称为 Commandl，标题为“选中字符数是 ”。程序运行时，在 Textl中输入若干字符，选中部分内容后，单击“选中字符数是 ”按钮，则在 Text2中显示选中的字符个数 (如图 3 121所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下， 工程文件名为sit2 vbp，窗体文件名为 sit2 frm。 二、简单应用题 2 (1)在名称为 F

3、orml的窗体中面一个名称为 L1的标签，其标题为 “0”， BordeiStyle属性为 1；再添加一个名称为 Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加 1。如图 3一 170所示的是程序刚启动时的情况。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sit4 vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击 “显示 ”按钮，则在窗体上输出所有选中的列表项(如图 3171所示 )。要求

4、：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序巾的 ?改为正确的内容，使其实现上述功能，但不得修改程序巾的其他部分。最后把修改后的程序以原来的文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 vbsj5.vbp，用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2+b2=c2。例如， 3、 4、 5就是一个 满足条件的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3， 4， 5被视为同一个组合，不应该重复计算 )。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Lbll中，运行时程序界面如图 3

5、 57所示。 注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。程序源码： Public Sub save(1 As Contr01) Open App Path& “out5 txt” ： For_ Output As#1 Print#1， 1 Caption Close #1End Sub 国家二级 VB机试（上机操作）模拟试卷 108答案与解析 一、基本操作题 1 【正确答案】 第 1小颢 【操作步骤】 步骤 1： 新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：

6、按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性， 步骤 2：打开代码编辑窗口，编写以下事件过程： 参考代码： Private Sub Commandl Click() Text2 Text=Forml Text 1 SelLength End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标 准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口编写计时器的事件过程。 参考代码： Private Sub Time

7、rl Timer() Ll = L1 + 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，将列表框的 MultiSelect属性值设置为 1 simple。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For i=0 To 11 ListCount1 If 11 Selected(i) =True Then 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 步骤 1:打开考生文件夹下的工程文件 vbsj5 vbp，在码编辑窗口的指定位置输入代码： 参考代码： Private Sub Commandl Click() =考生编写程序开始 = Dim i As Integer Dim 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*i+j*j)键运行程序，单击 “计算 ”按钮。 步骤 3：按要求将文件 保存至考生文件夹中。