1、国家二级 VB机试（上机操作）模拟试卷 323及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Label1的标签，标签的宽和高分别为 2000、 300，有边框，并利用属性窗口设置适当的属性，使其标题 “等级考试 ”居中显示，并使标签的外观如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名称为 Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添 加三个命令按钮，名称分别为 Command1、 Command2、Co
2、mmand3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生文件夹下有两个图标文件，其名称分别为 “Mist34 ico”和 “Mise37 ico”。程序运行时，单击 “黑桃 ”按钮，则在图像框中显示黑桃图案 (Misc37 ico文件 )；单击 “红桃 ”按钮，则在图像框中显示红桃图案 (Misc34 ico文件，如图所示 )；单击 “清除 ”按钮则清除图像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。 注意：要求程序中不得使用变量，每个事件过程 中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 f
3、rm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有一个标签 Label1，请添加一个单选按钮数组，名称为 Op1，含三个单选按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “飞机 ”、 “火车 ”、 “汽车 ”，再添加一个名称为 Text1的文本框。窗体文件中已经给出了 Op1的 Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得 在程序运行时单击 “飞机 ”或 “火车 ”单选按钮时，在 Textl中显示 “我坐飞机去 ”或 “我坐火车去 ”，单击 “汽车 ”单选按钮时，在 Text1中显示 “我开
4、汽车去 ”，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp， Forml窗体中有一个文本框，名称为 Textl；请先在窗体上添加两个框架控件，名称分别为 F1、 F2，标题分别为 “性别 ”、 “身份 ”；然后在 F1中添加两个单选按钮控件 Op1、 Op2，标题分别为 “男 ”、 “女 ”；其次在 F2中添加两个单 选按钮控件 op3、 Op4，标题分别为 “学生 ”、 “教师 ”；最后再添加一个命令按钮，名称为 C1，标题为 “确定 ”，如图所示。请编写适当的事件过程，使得运行时，在 F1、F2中各选一个单
5、选按钮，然后单击 “确定 ”按钮，就可以按照下表把结果显示在文本框中。 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是： a2+b2=c2。例如， 3、 4、 5就是一个满足条件的整数组合 (注意： a， b， c分别为 4， 3， 5与分别为 3， 4， 5被视为同一个组合，不应该重复计算 )。编写程
6、序，统计均在 60以内的三个数满足上述关系的整数组合的个数，并显示在标签 Label1中。 注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试 卷 323答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图 3 32所示。程序中用到的控件及属性见表 3 47。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置
7、控件的属性。程序中涉及的控件及属性见表 3 48。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Command1_Click() Imagel Picture = LoadPicture(App path ” Misc 34 ico”)加载图片 End Sub Private Sub Command2_Click() Image1 Picture =LoadPi cture(App path&” Misc37 ico”) End Sub Private Sub Command3_Click() Set Image1 Picture=Nothing清除 Image
8、l中的图片 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件，按照题目要求建立单选按钮数组，如图 3 9所示。步骤 2：按照题目要求建立其他控件并设置其属性，见表 3 4。步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Opl_Cl ick(Index As Integer) Dim a As String , b As String l c AsString a=”我坐 ” b=”我开 ” Select Case Index 通过 Ind
9、ex值决定响应哪一个控件数组 Case 0 Text1 Text=a+Me opz(0) Caption+”去 ” Case 1 Textl Text=a+Me opl(1) Caption+”去 ” 当 Index值为 1时，选择 ”我坐 ” Case 2 Text1 Text=b+Me opl(2) Caption+”去 ” End Select End Sub 步骤 4：调试并运行程序，关闭程序 后按题目要求存盘。 (2)【操作步骤】步骤 1：打开本题工程文件，按照题目要求建立框架控件并设置其属性，如图 3 10所示。步骤 2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性
10、见表 3 5和表 3 6。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub C1 Click() Text1 Text=”我是 ”首先确定不论选什么情况 Text1的内容一定以 ”我是 ”开头 If Op1 Value Then Text1 Text=Text1 Text op1 Caption Eise Textl Text=Textl TextOp2 Caption End If通过单选按钮的 Value值 (选择为 true，否则为 false)确认性别，最后把其 Caption值接至 Text1后 If Op3 Value Then Text1 Text=T
11、ext1 Text Op3 Caption Else Text1 Text=Text1 TextOp4 Caption End If确认身份，思路同上 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【 正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 Dim i As Integer Dim j As Integer Dim k As Integer For i=1 To 60 For j=1 To 60 For k=1 To 60 判断三个数是否满足勾股定律 If i2=j2+k2 Then m=m+1m为记录满足条件的个数 End If Next k Next j Next i Label1=m 2去掉相同的项 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
