1、国家二级 VB 机试（上机操作）-试卷 73 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Frame1、标题为“框架”的框架，在框架内添加两个名称分别为 Option1、Option2 的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二顺”初始值设置为被选中，框架为不可用。，运行程序后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1 的窗体上添加一个_名称为 D
2、rivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel 的文件列表框，名称为 Label1、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1的标签。将窗体的标题设置为“文件系统控件”，如图所示。清编写适当的程序，使得这二个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Label2 中显示选中的文件名。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sj
3、t2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)：考生文件火下有一个上程文件 sjt3vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为 Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为 Cnmbbo1 的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sjt4vbp
4、。该程序的功能是计算 M!(M1)!(M2)!N!之和。窗体上有名称分别为 Text1、Text2 的两个文本框，用于接收输入的 M 和 N(要求 MN)。单击名称为 Commmld1、标题为“计算”的命令按钮，计算 M!(M1)!(M2)!N!的值，并将计算结果显示在标签 1blResult 中。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和榨件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjtvbp，功能是用
5、来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是：a 2 b 2 c 2 。例如，3、4、5 就是一个满足条件的整数组合(注意：a，b，c 分别为4，3，5 与分别为 3，4，5 被视为同一个组合，小应该重复计算)。编写程序，统计均在 60 以内的三个数满足上述关系的整数组合的个数，并显示在标签 Label1 中。 注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 73 答案解析(总分：6.00，做题时间：90 分钟)一、基本
6、操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Frame1、标题为“框架”的框架，在框架内添加两个名称分别为 Option1、Option2 的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二顺”初始值设置为被选中，框架为不可用。，运行程序后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1 的窗体上添加一个_名称为 Drivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel 的文件列表框，名
7、称为 Label1、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1的标签。将窗体的标题设置为“文件系统控件”，如图所示。清编写适当的程序，使得这二个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Label2 中显示选中的文件名。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界面，添加相应
8、的控件并设置控件的属性。程序中用到的控件及属性见表 338。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图 328 所示。 程序中用到的控件及属性见表 339 和表 340。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)：考生文件火下有一个上程文件 sjt3vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为 Command1、标题为“添加”的命令按钮，则将文本框中的数字添加
9、到名称为 Cnmbbo1 的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sjt4vbp。该程序的功能是计算 M!(M1)!(M2)!N!之和。窗体上有名称分别为 Text1、Text2 的两个文本框，用于接收输入的 M 和 N(要求 MN)。单击名称为 Commmld1、标题为“计算”的命令按钮，计算 M!(M1)!(M2)!N!的值，并将计算结果显示在标签 1blResult 中。 在给出的窗体文件中已
10、经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和榨件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1_C1ick() Combo1AddTtem Text1Text将 Text1 中的内容加入 Combol 中 Text1Text“同时将 Text1 内容清除 End Sub Private Sub Text1_KeyPr
11、ess(KeyAscii As Integer) If KeyAscii57 Or KeyAscii48 Then 数字的 Ascii 码值下界 MsgBox|“请输入数字!“ KeyAscii0清空 End If End Sub 步骤 3：调试并运行程序，关闭程 序后按题口要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案 Private Sub Commandl_lick() Dim m As Integer Dim n As Integer Dim s As Long Dim i As Integ
12、er mVal(Text1Text) 将文本框中的字符转换成教值型 nVal(Text2Text) s0 For im To nm tf(i)调用函数得到 N 的阶乘 sst Next iblResultCaptionS End Sub Private Function f f ByRe f x As Integer)As LongByRef 为传址传递 Dim t As Long t1 For i1 To x实现对数值进行阶乘运算 tt*i Next ft返回计算结果 End FunctiOn 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.
13、00)3.在考生文件夹下有一个工程文件 sjtvbp，功能是用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是：a 2 b 2 c 2 。例如，3、4、5 就是一个满足条件的整数组合(注意：a，b，c 分别为4，3，5 与分别为 3，4，5 被视为同一个组合，小应该重复计算)。编写程序，统计均在 60 以内的三个数满足上述关系的整数组合的个数，并显示在标签 Label1 中。 注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 Dim i As Integer Dim j As Integer Dim k As Integer For i1 To 60 For j1 To 60 For k1 To 60 判断三个数是否满足勾股定律 If i2j2k2 Then mm1m 为记录满足条件的个数 End If Next k Next j Next i Label1m2去掉相同的项 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
