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

《【计算机类职业资格】二级VISUAL+BASIC机试4及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC机试4及答案解析.doc（5页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 机试 4 及答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，通过属性窗口设置文本框属性，在文本框中显示“WWB”，如图 7-1 所示；再建立一个名称为 Cmd1，标题为“清除”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信

2、息。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为sjt1.vbp。 (2)在名称为 Form1 的窗体上建立两个名称分别为 Cmd1 和 Cmd2，标题分别为“输入”和“连接”的命令按钮。如图 7-2 所示。要求程序运行后，单击“输入”按钮，可通过输入对话框输入两个字符串，存入字符串变量 a 和 b 中(a 和 b 定义为窗体变量)，如果单击“连接”按钮，则把两个字符串连接为一个字符串(顺序不限)并在信息框中显示出来，如图 7-3 所示，在程序中不得使用任何其他变量。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt

3、2.vbp。 （分数：30.00）_二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1)在窗体上建立一个名称为 Text1 的文本框，然后建立两个主菜单，标题分别为“学分等级”和“帮助”，名称分别为 vbMenu 和 vbHelp，其中“学分等级”菜单包括标题为“等级 A”、“等级 B”和“等级 C”三个子菜单，名称分别为vbMenu1、vbMenu2 和 vbMenu3。要求程序运行后，如果在“学分等级”的下拉菜单中选择“等级 A”，则在文本框内显示 “85 分以上”：如果选择 “等级 B”，则在文本框内

4、显示 “75 分至 85 分”；如果选择“等级 C”，则在文本框内显示 “60 分至 75 分”。程序中不能使用任何变量，直接显示字符串。程序运行界面如图 7-4 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3frm，工程文件名为 sjt3vbp。 (2)在考生文件夹中有文件 sjt4.vbp 及其窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为 Text1 的文本框；两个复选框，名称分别为Ch1 和 Ch2，标题分别为“足球”和

5、“乒乓球”；一个名称为 C1，标题为“确定”命令按钮。要求程序运行后，如果只选中 Ch1，单击“确定”命令按钮，则在文本框中显示 “我喜欢足球”；如果只选中 Ch2，单击“确定”命令按钮，则在文本框中显示“我喜欢乒乓球”；如果同时选中 Ch1 和 Ch2，然后单击“确定”命令按钮，则在文本框中显示“我喜欢足球和乒乓球”：如果 Ch1 和 Ch2 都不选，然后单击“确定”命令按钮，则在文本框中什么都不显示。程序运行界面如图 7-5 所示。 （分数：40.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文

6、件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Forml 的窗体上有一个文本框，名称为 Textl，MultiLine 属性为 Tree，ScrollBars 属性为 2；两个命令按钮，名称分别为Cmd1 和 Cmd2，标题分别为“读入数据”和“计算保存”，如图 7-6 所示。要求程序运行后，如果单击“读入数据”，按钮，则读入“intxt”文件中的 100 个整数，放入一个数组中(数 组下界为 1)，同时在文本框中显示

7、出来；如果单击“计算保存”按钮，则计算数组中前 30 个数的平均值 (结果四舍五入为整数)，并把结果在文本框 Text1 中显示出来，同时把结果存入考生文件夹中的文件“out.txt”中。(在考生的文件夹下有标准模块 mode.bas，其中的 putdata 过程可以把结果存入指定的文件)。 注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，计算结果存入 out.txt 文件，否则没有成绩。 （分数：30.00）_二级 VISUAL+BASIC 机试 4 答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分

8、数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，通过属性窗口设置文本框属性，在文本框中显示“WWB”，如图 7-1 所示；再建立一个名称为 Cmd1，标题为“清除”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为sjt1.vbp。 (2)在名称为 Form1 的

9、窗体上建立两个名称分别为 Cmd1 和 Cmd2，标题分别为“输入”和“连接”的命令按钮。如图 7-2 所示。要求程序运行后，单击“输入”按钮，可通过输入对话框输入两个字符串，存入字符串变量 a 和 b 中(a 和 b 定义为窗体变量)，如果单击“连接”按钮，则把两个字符串连接为一个字符串(顺序不限)并在信息框中显示出来，如图 7-3 所示，在程序中不得使用任何其他变量。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。 （分数：30.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 命令按钮的标题由

10、Caption属性设置，单击命令按钮触发 Click 事件；将文本框的 Text 属性设置为空，就可以清除文本框中显示的内容。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 7-1。 第二步：编写程序代码。 参考代码： Private Sub Cmd1_Click() Text1.Text=“ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 命令按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件：程序用到的 MsgBox 函数和 InputBox 函数。 M

11、sgBox 函数在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。 语法 MsgBox(prompt，buttons，title，helpfile，context) Prompt 必需的。字符串表达式，作为显示在对话框中的消息。如果 prompt 的内容超过一行，则可以在每一行之间用回车符(Chr(13)、换行符(Chr(10)或是回车与换行符的组合(Chr(13) & Chr(10)将各行分隔开来。 Buttons 可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。 Title 可选的。在对话

12、框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。 Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。 Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。 Input 函数返回 String，它包含以 Input 或 Binary 方式打开的文件中的字符。 语法：Input(number，#filenumber) number 必要的。任何有效的数值表达式，指定要返回的字符个数。 filenumber 必要的。任何有效的文件号。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及

13、其属性见表 7-2。 第二步：编写程序代码。 参考代码： Option Explicit Dim a As String Dim b As String Private Sub Cmd1_Click() a=InputBox(“输入第一个字符串：“， ，“第一个串“) b=InputBox(“输入第二个字符串：“， ，“第二个串“) End Sub Private Sub Cmd2_Click() MsgBox a & b，vbOKOnly End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹

14、”均为 c：/wexam/25160001。 (1)在窗体上建立一个名称为 Text1 的文本框，然后建立两个主菜单，标题分别为“学分等级”和“帮助”，名称分别为 vbMenu 和 vbHelp，其中“学分等级”菜单包括标题为“等级 A”、“等级 B”和“等级 C”三个子菜单，名称分别为vbMenu1、vbMenu2 和 vbMenu3。要求程序运行后，如果在“学分等级”的下拉菜单中选择“等级 A”，则在文本框内显示 “85 分以上”：如果选择 “等级 B”，则在文本框内显示 “75 分至 85 分”；如果选择“等级 C”，则在文本框内显示 “60 分至 75 分”。程序中不能使用任何变量，直

15、接显示字符串。程序运行界面如图 7-4 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3frm，工程文件名为 sjt3vbp。 (2)在考生文件夹中有文件 sjt4.vbp 及其窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为 Text1 的文本框；两个复选框，名称分别为Ch1 和 Ch2，标题分别为“足球”和“乒乓球”；一个名称为 C1，标题为“确定”命令按钮。要求程序运行后，如果只选中 Ch1，单击“确定”命令按钮，则在文本框中

16、显示 “我喜欢足球”；如果只选中 Ch2，单击“确定”命令按钮，则在文本框中显示“我喜欢乒乓球”；如果同时选中 Ch1 和 Ch2，然后单击“确定”命令按钮，则在文本框中显示“我喜欢足球和乒乓球”：如果 Ch1 和 Ch2 都不选，然后单击“确定”命令按钮，则在文本框中什么都不显示。程序运行界面如图 7-5 所示。 （分数：40.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在 Visual Basic 中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为 1

17、：文本框内容用 Text 属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 7-3。 三、B3 综合应用题/B(总题数：1，分数：30.00)3.下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Forml 的窗体上有一个文本框，名称为 Textl，MultiLine 属性为 Tree，ScrollBars 属性

18、为 2；两个命令按钮，名称分别为Cmd1 和 Cmd2，标题分别为“读入数据”和“计算保存”，如图 7-6 所示。要求程序运行后，如果单击“读入数据”，按钮，则读入“intxt”文件中的 100 个整数，放入一个数组中(数 组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中前 30 个数的平均值 (结果四舍五入为整数)，并把结果在文本框 Text1 中显示出来，同时把结果存入考生文件夹中的文件“out.txt”中。(在考生的文件夹下有标准模块 mode.bas，其中的 putdata 过程可以把结果存入指定的文件)。 注意：文件必须存放在考生文件夹下，窗体文件名为

19、sjt5.frm，工程文件名为 sjt5.vbp，计算结果存入 out.txt 文件，否则没有成绩。 （分数：30.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框显示的内容由 Text属性设置，Multiline 属性决定文本框是否可多行显示；按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件。题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 input#语句读取数据。另外需要注意的是对文件操作完后，一定要关闭文件。解题步骤： 第一步：建立界面并设置属性。程序中用到的控件及其属性见表 7-4。 第二步：编写程序代码

20、。 程序提供的代码： Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim ? As Integer Open “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text & i(j) & Space(5) Next ? #1 End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 30 temp =

21、temp + i(j) ? temp = temp / 30 Text1.Text = temp putdata “out.txt“, temp End Sub 参考代码： Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer Open “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub Pr

22、ivate Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 30 temp = temp + i(j) Next temp = temp / 30 Text1.Text = temp putdata “out.txt“, temp End Sub 标准模块 mode.bas 的代码: Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = “/“ & t_FileName Open App. Path& sFile For Output As #1 Print #1, t_Str Close #1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。