【计算机类职业资格】国家二级VB机试（上机操作）-试卷125及答案解析.doc

1、国家二级 VB机试（上机操作）-试卷 125及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加两个名称分别为 Frame1、Frame2 的框架，标题分别为“字号”、“修饰”；在 Frame1中添加两个单选按钮，1 名称分别为 Option1、Option2，标题分别为“10 号字”、“20号字”，且标题显示在单选按钮的左边；在 Frame2中添加一个名称为 Checkl的复选框，标题为“下划线”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，丁程文件名保存为sjt1vbp，窗体文件名保存为

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

3、有一个工程文件 sjt3vbp。程序运行后，单击“读入数据”按钮，可将考生文件夹下 in3txt 文件中的所有英文单词读入，并在 Text1文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到 List1列表框中(如图所示)。 在 in3txt 文件中，每个单词之间用一个空格字符隔开，最后一个单词的后而没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件件sjt4vbp，窗体上已经添加所有控

4、件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔 01秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。 请完成以下工作： （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下自一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大十 2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24可以分解为 5和 19，也町以分解为 11和 13，要求取含有最

5、小素数的组合，如图所示)。要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入 23456，单击“分解为”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。（分数：2.00）_国家二级 VB机试（上机操作）-试卷 125答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 F

6、orm1的窗体上添加两个名称分别为 Frame1、Frame2 的框架，标题分别为“字号”、“修饰”；在 Frame1中添加两个单选按钮，1 名称分别为 Option1、Option2，标题分别为“10 号字”、“20号字”，且标题显示在单选按钮的左边；在 Frame2中添加一个名称为 Checkl的复选框，标题为“下划线”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，丁程文件名保存为sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上从上到下添加两个文本框，名称分别为 Text1、Text2；再添加一个命令按钮，名称为 Command1，

7、标题为“选中字符数是”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则选中的字符个数显示在 Text2中(如图所示)。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjtfrm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中的控件及属性见表 343。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界而，添加相

8、应的控件并设置控件的属性。程序中涉及的控件及属性见表 344。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行后，单击“读入数据”按钮，可将考生文件夹下 in3txt 文件中的所有英文单词读入，并在 Text1文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到 List1列表框中(如图所示)。 在 in3txt 文件中，每个单词之间用一个空格字符隔开，最后一个单词的后而没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中

9、的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件件sjt4vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔 01秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。 请完成以下工作： （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Commandl_Click() Dim st$ch$ Open AppPath&“in3t

10、xt“For Input As# 1打开文件 Do While Not EOF(1)文件指针是否到达文件末尾 Input #，ch迭到文件末尾返回 true，否则返回 false stst & ch将读出的数据加到原有数据末尾 Loop Close：&1关闭文件 Text1st将内容显示在文本框中 End Sub Private Sub Command2 Click() Dim st$，word$，c$ StText1 nLen(st) For k1 To n eMid(st，k，1)从st中依次取出 1个字符进行比较 If c“Then wordWord&c E1se List1AddIte

11、m word word“将word清空，为下一次作准备 End If Next List1AddItem word End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件，设置计时器 Inteval的属性为 100，将 Enabled属性设置为 False。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Timer1_Timer() P1LeftP1Left20 End Sub 需要考生编写的内容 Private Sub C1_Click() TimerlEnabledTrue End Su

12、b Private Sub C2 Click() Timer1EnabledFalse End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下自一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大十 2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24可以分解为 5和 19，也町以分解为 11和 13，要求取含有最小素数的组合，如图所示)

13、要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入 23456，单击“分解为”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 For il To Val(Text1Text)i 从 1开始，第一个找到的肯定就是满足条件的最小素数 If IsPrime(i)Alld IsPrime(Val(Text1Text)i)Then判定两个数是否都满足素数条件 Label1i IJabel2Val(TextlText)i Exit For End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：