【计算机类职业资格】二级VISUAL+BASIC机试58及答案解析.doc

1、二级 VISUAL+BASIC 机试 58 及答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 C:/wexam/25160002。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上建立 1 个名称为 Op1 的单选按钮数组，含 3 个单选按钮，它们的标题依次为“选择 1”、“选择 2”和“选择 3”，其下标分别为 0、1 和 2，初始状态下，“选择 2”为选中状态。运行后的窗体如图 26-1 所示。 注意；存盘时必须存放在考

2、生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2)在窗体上建立 1 个二级菜单，第一级含两个菜单项，标题分别为“编辑”和“帮助”，名称分别为 edit 和 help。其中“编辑”菜单含有 3 个子菜单，其标题依次为“剪切”、“复制”和“粘贴”，名称分别为 cut、copy 和 paste，如图 26-2 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 C:/wexam/2516000

3、2。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，两个窗体文件，文件名分别为 sjt31.frm 和 sjt31.frm。此工程实现的功能是，在运行时只显示名为 Form2 的窗体，单击 Form2 上的 C2 按钮，则显示名为 Form1 的窗体；单击 Form1 上的 C1 按钮，则Form1 的窗体消失。这个程序并不完整，要求： 把 Form2 设为启动窗体；把 Form1 上按钮的标题改为“隐藏”，把 Form2 上按钮的标题改为“显示”。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面

4、如图 26-3 所示。 注意：工程文件和窗体文件仍以原来的文件名存盘。 (2) 在考生文件夹下有一个工程文件 sjt4.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。程序运行界面如图 26-4 所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属

5、性。最后把修改后的程序以原来的文件名存盘。 （分数：40.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 C:/wexam/25160002。 在考生文件夹下有一个工程文件sjt5.vbp 在名称为 Form1 的窗体上画一个文本框，名称为 Text1，允许多行显示：再画 3 个命令按钮，名称分别为 C1、C2 和 C3，标题分别为“输入”、“转换”和“存盘”，如图 26-5 所示。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入 in5.txt 文件(文件中只有字母和空格)，放入 Text1 中；单击“转换”按

6、钮，则把 Text1 中的所有小写字母转换为大写字母；单击“存盘”按钮，则把 Text1 中的内容存入 out5.txt 文件中。 注意：去掉程序中的注释符，把程序中的?改为正确的内容，考生必须把转换后的内容用“存盘”按钮存入 out5.txt 文件，否则无成绩。考生的工程文件以文件名 sjt5.vbp 存盘，窗体文件以文件名 sjt5.frm 存盘。 （分数：30.00）_二级 VISUAL+BASIC 机试 58 答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 C:/wexam/251600

7、02。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上建立 1 个名称为 Op1 的单选按钮数组，含 3 个单选按钮，它们的标题依次为“选择 1”、“选择 2”和“选择 3”，其下标分别为 0、1 和 2，初始状态下，“选择 2”为选中状态。运行后的窗体如图 26-1 所示。 注意；存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2)在窗体上建立 1 个二级菜单，第一级含两个菜单项，标题分别为“编辑”和“帮助”，名称分别为 edit 和 help。其中“编辑”菜单含有 3

8、 个子菜单，其标题依次为“剪切”、“复制”和“粘贴”，名称分别为 cut、copy 和 paste，如图 26-2 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_正确答案：()解析：解析 在窗体上建立好控件后，设置控件的属性。建立控件数组由多种方法，考生可以采取任何一种来建立单选按钮数组。要使“选择 2”为选中状态，则应该将该控件的 Value 属性值设置 True。Value 属性用来表示单选按钮的状态，它的值可以是 True 或False，当设置为 True 时，该单选按钮为选中，否则没有选中。解题步骤：

9、第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表 26-1。表 26-1 控 件 属 性 设置值单选按钮NameCaptionIndexOp1“选择 1“0单选按钮NameCaptionIndexValueOp1“选择 2“1True单选按钮NameCaptionIndexOp1“选择 3“2第二步：调试并运行程序。第三步：按题目要求存盘。(2) 解析 在 Visual Basic 中，菜单通过“菜单编辑器”窗口来建立。解题步骤：第一步：建立界面并设置对象属性。程序中用到的控件及其属性见表 26-2。表 26-2控 件 属 性 设置值菜单 名称标题 Edit“编辑“菜单 名称标题

10、 Cut“剪切“内缩符号 1菜单名称标题内缩符号Copy“复制“1菜单名称标题内缩符号Paste“粘贴“1菜单 名称标题 Help“帮助“第二步：调试并运行程序。第三步：按题目要求存盘。二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 C:/wexam/25160002。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，两个窗体文件，文件名分别为 sjt31.frm 和 sjt31.frm。此工程实现的功能是，在运行时只显示名为 Form2 的窗体，单击 Form2 上的 C2 按钮，则显示名为 Form1 的窗体；单击 Form1 上的 C

11、1 按钮，则Form1 的窗体消失。这个程序并不完整，要求： 把 Form2 设为启动窗体；把 Form1 上按钮的标题改为“隐藏”，把 Form2 上按钮的标题改为“显示”。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图 26-3 所示。 注意：工程文件和窗体文件仍以原来的文件名存盘。 (2) 在考生文件夹下有一个工程文件 sjt4.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且

12、显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。程序运行界面如图 26-4 所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。 （分数：40.00）_正确答案：()解析：解析 在窗体建立好控件后，先设置控件属性，再事件过程。命令按钮的标题通过 Caption 属性修改。单击命令按钮触发 Click 事件。在多窗体中，可以指定启动窗体，方法是：点击“工程”菜单下的“工程

13、属性”命令，打开“工程属性”对话框，然后单击“启动对象”栏右端的箭头，下拉显示当前工程中的所有窗体的列表，单击要作为启动窗体的对象名，然后单击“确定”按钮，即可把所选窗体设置为启动窗体。要使窗体显示或隐藏可以设置窗体的 Visible 属性，设置为False 时，窗体隐藏设置为 True 时，窗体显示。解题步骤：第一步：建立界面并设置控件属性。程序提供了需要的控件，只需修改这些控件属性即可。Form1 用到的控件及其属性见表 26-3。表 26-3 控 件 属 性 设置值按钮 NameCaption C1“隐藏“Form2 用到的控件及其属性见表 26-4。表 26-4控 件 属 性 设置值按

14、钮 NameCaption C2“显示“建立好控件后，将窗体 Form2 设置为启动窗体。第二步：编写程序代码。题目提供的代码：窗体 1 的代码：Private Sub C1_Click()Form1.Visible = ?End Sub窗体 2 的代码：Private Sub C2_Click()Form1.visible = ?End Sub第三步：调试并运行程序。第四步；按题目要求存盘。(2)解析 滚动条能表示的最大值有 Max 属性设置，最小值由 Min 属性设置。滚动条的当前值由 Value 属性设置。当 Value 值大于 Max 属性或小于 Min 属性值时，用 Msgbox 语

15、句生成消息框。解题步骤：第一步：编写程序代码：题目提供代码：Private Sub C1_Click()If HS1.Value + Text1.Text HS1.? ThenMsgBox “文本框中的数值太大“ElseIf HS1.Value + Text1.Text ? ThenMsgBox “文本框中的数值太小“Else? = HS1.Value + Text1.TextEnd IfEnd Sub参考代码：Private Sub C1_Click()If HS1.Value + Text1.Text HS1.Max ThenMsgBox “文本框中数值太大“ElseIf HS1.Valu

16、e + Text1.Text HS1.Min ThenMsgBox “文本框中的数值太小“ElseHS1.Value = HS1.Value + Textl.TextEnd IfEnd Sub第二步；调试并运行程序。第三步：按题目要求存盘。三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 C:/wexam/25160002。 在考生文件夹下有一个工程文件sjt5.vbp 在名称为 Form1 的窗体上画一个文本框，名称为 Text1，允许多行显示：再画 3 个命令按钮，名称分别为 C1、C2 和 C3，标题分别为“输入”、“转换”和“存盘”，如图

17、26-5 所示。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入 in5.txt 文件(文件中只有字母和空格)，放入 Text1 中；单击“转换”按钮，则把 Text1 中的所有小写字母转换为大写字母；单击“存盘”按钮，则把 Text1 中的内容存入 out5.txt 文件中。 注意：去掉程序中的注释符，把程序中的?改为正确的内容，考生必须把转换后的内容用“存盘”按钮存入 out5.txt 文件，否则无成绩。考生的工程文件以文件名 sjt5.vbp 存盘，窗体文件以文件名 sjt5.frm 存盘。 （分数：30.00）_正确答案：()解析：解析 窗体上建立好控件后，先

18、设置控件属性，再编写事件过程。要使文本框允许多行显示，应将其 MultLine 属性设置为 True。文本框的 Text 属性设置为空。命令按钮的标题通过 Caption 属性设置，单击命令按钮触发 Click 事件。进行读文件的操作在“输入”按钮的 Click 事件过程中完成。将文件 in5.txt 以顺序文件输入方式打开，将读取的字符串赋值给文本框的 Text 属性。文件的操作一般按照如下步骤进行：打开或建立文件；进行读/写操作；关闭文件。要将字符串的小写字母转换成大写字母，可以有 UCase 函数实现。UCase 函数将小写字母转换成大写字母 0。其语法格式为：UCase(string)

19、string 不要参数为任何有效的字符串表达式。只有小写的字母会转成大写：原本大写或非字母之字符保持不变。解题步骤：第一步：建立控件并设置对象属性。程序中用到的控件及其属性见表 26-5。表 26-5 控 件 属 性 设置值文本框NameTextMultiLineText空白True按钮 Name标题 C1“输入“按钮 Name标题 C2“转换“按钮 Name标属 C3“存盘“第二步：编写程序代码。程序所提供的代码：Private Sub C1_Click()Open App.Path & “/in5.txt“ For Input AS #1Do While Not EOF(1)Input #

20、1, ?Text1.Text = mystringLoopClose #1End SubPrivate Sub C2_Click()Text1.Text = ?End SubPrivate Sub C3_Click()Open App.Path & “/out5.txt“ For Output As #2Print #2, Text1.?Close #2End Sub参考代码：Private Sub C1_Click()Open App.Path & “/in5.txt“ For Input As #1Do While Not EOF(1)Input #1, mystringText1.Text = mystringLoopClose #1End SubPrivate Sub C2_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click()Open App.Path & “/out5.txt“ For Output As #2Print #2, Text1.TextClose #2End Sub第三步：调试并运行程序第四步：按题目要求存盘