1、国家二级 VB机试（上机操作）模拟试卷 434及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “练习 ”的窗体上添加一个名称为 Famel、标题为 “效果 ”的框架。框架内含有三个复选框，其名称分别为 Chk1、 Chk2和 Chk3，标题分别为 “倾斜 ”、 “加粗 ”和 “下划线 ”。 程序运行后的窗体如图所示。要求：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗休文件名保存为sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Label1的标签，使其初始内容为空，且能根据其标 题内容自动调整标签的大小；再添加两个命令按钮，标题
2、分别为 “日期 ”和 “时间 ”，名称分别为Command1、 Command2。请编写两个命令按钮的 Click事件过程，使得单击 “日期 ”按钮时，标签内显示系统当前日期；单击 “时间 ”按钮时，标签内显示系统当前时间。如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjf2 vbp窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)考生文件夹下有一个工程文件 sjt3 vbp。程序 的功能是：通过键盘向文本框中输入数字。如果输入的是非数字字符，则提示输入错误，且文木框中不显示输入的字符。单击名称为 C
3、ommand1、标题为 “添加 ”的命令按钮，则将文本框中的数字添加到名称为 Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个丁程文件 sjt4 vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+N! 之和。窗体上有名称分别为 Text1、 Text2的两个文本框，用于接收输入的 M和 N(要求 M N)。单击名称为 Command1、标题为 “计算 ”的命令按钮，计算 M!+(M+1)!+(
4、M+2)!+N! 的值，并将计算结果显示在标签lblResult中。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程 文件 sjt5 vbp，考生文件夹下 in5 dat文件中保存有一篇英文短文。程序运行时，单击 “读取并统计 ”按钮，则按行读取 in5 dat文件的内容，并显示到文本框 Text1中，同时调用 Calculate过程统计每个英文字母 (不区分大小写 )及其出现的次数，并按字母顺序保存到二维数组 da
5、ta中，统计结束后，按字母顺序将统计结果显示到列表框 List1中 (字母用小写表示，且不含文中未出现的字母 )；单击 “保存 ”按钮，则保存结果。 “读取并统计 ”和 “保存 ”按钮的 Click事件过程已经给出，请编写 Calculate过程中的代 码以实现上述功能。程序运行界面示意图如图所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “读取并统计 ”，且必须单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 434答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 l：新建一个窗体，按照
6、题目要求建立控件，程序中用到的控件及属性见表 3 52。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 l：建立界面，添加相应控件并设置控件的属性。程序中用 到的控件及属性见表 3 53。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private sub commandl_Slick() Label1=Date用于返回系统当前日期 End Sub Private sub Command2_Click() Label1=Time用于返回系统当前时间 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)窗体的 Captio
7、n属性用来设置窗体的标题，框架的 Name和Caption属性用来设置框架的名称和标题，复选框的 Name和 Caption属性用来设置复选框的名称和标题。 (2)通过标签的 Name和 Caption属性设置标签的名称和标题， AutoSiz属性实现标题内容的自动调整，通过命令按钮的 Name和 Caption属性设置命令按钮名称和标题， Date()函数用于返回系统日期， Time()函数用于返回系统时间。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1Click() Combol AddItem Text1 Text 将 Text1中的内容加入 Combol中 Text1 Text=“同时将 Text1内容清除 End Sub Private Sub Text1 KeyPresS(KeyAscii As Integer) If KeyAscii57 Or KeyAscii=97 And ch 【试题解析】 Calculate过程中利用 For循环逐个取出文本字符串 s中的字符，然后将所有字符使用 LCase函数转换为小写，小写字母的 ASCII码取值范围为 65到 90之间，再将每个字母及其出现的次数存储到二维数组 d中。
