1、二级 VISUAL+BASIC-459 及答案解析(总分：49.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上添加一个计时器控件，名称为 Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔 3 秒，调用 Timer1_Timer 过程一次。另外，请把窗体的标题没置为“计时器”。设计阶段的窗体界面如下图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。 （分
2、数：15.00）_(2).在名称为 Form1 的窗体上画一个文本框，名称为 Text1，无初始内容。请编写 Text1 的 Change 事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在窗体上输出一行文本框中的完整内容。程序运行界面如下图所示。 注意：保存时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。 （分数：15.00）_二、2 简单应用题(总题数：1，分数：20.00)1.在窗体上有一个名为 Label1 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一
3、个标题为“输出”的命令按钮，如下图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。 要求：依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按 sj3.vbp 和 sj3.frm文件名存盘。 （分数：20.00）_三、3 综合应用题(总题数：1，分数：-1.00)2.注意：
4、下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp 及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即“号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有三个 Label 控件和两个名称分别为 COMSTART 和 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数 ITEM(A，N)其功能是由数字 A 组成的不多于 N 位数的整数，并利用该函数求 8+88+888+8888 的和结果写入考生文件夹下的 sjt5
5、.dat 文件中。执行完毕后，“开始”按钮变成“完成”，且无效(变灰)。如图 9-6 所示。 （分数：-1.00）_二级 VISUAL+BASIC-459 答案解析(总分：49.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上添加一个计时器控件，名称为 Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔 3 秒，调用 Timer1_Timer 过程一次。另外，请把窗体的标题没置为“计时器”。设计阶段的窗体界面如
6、下图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。 （分数：15.00）_正确答案：()解析：计时器控件的 Interval 属性，表示两个计时器事件之间的时间间隔，其值以毫秒(0.001 秒)为单位，题目要求每 3 秒产生一个计时器事件，那么 Interval 属性应该设置为 3000。窗体的标题由窗体的Caption 属性设置。 根据题意，新建“标准 EXE”工程，将一个计时控件添加到窗体中，然后将其 Interval 属性设置为3000(单位是毫秒)，单击 (2).在名称为 Form1 的窗体上画一个文本框，名称为 Text1，无
7、初始内容。请编写 Text1 的 Change 事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在窗体上输出一行文本框中的完整内容。程序运行界面如下图所示。 注意：保存时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。 （分数：15.00）_正确答案：()解析：根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Text1、Text 属性为空，双击 Text1 进入代码编写窗口，当 Text1 变换时调用 Text1_Change 函数，代码如下： Private Sub Text1_Change() Print
8、Text1.Text End SUb 单击 二、2 简单应用题(总题数：1，分数：20.00)1.在窗体上有一个名为 Label1 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如下图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。 要求：依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符“”，把
9、程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按 sj3.vbp 和 sj3.frm文件名存盘。 （分数：20.00）_正确答案：()解析：单选按钮的标题由 Caption 属性设置，判断单选按钮的状态通过 Value 属性来实现。如果单选按钮被选中，则 Value 值为 1；没选中，Value 值为 0。 根据题意，将 3 个单选按钮控件、一个命令按钮和一个标签添加到窗体中，单选按钮的名称分别为Option1、Option2 和 Option3，Caption 属性分别为“汉语”、“英语”和“德语”，命令按钮的名称为C
10、ommand1、Caption 属性为“输出”，标签的名称为 Label1，Caption 属性为空。双击 Command1 进入代码编写窗口，利用 Ifelse 语句进行判断，补充后的具体代码如下： Private Sub Command1_Click() If Option1. Value =True Then Label1. Caption =“我的母语是“+Option1. Caption Else If Option2. Value =True Then Label1. Caption =“我的母语是“+Option2. Caption Else Label1. Caption =“
11、我的母语是“+Option3. Caption End If End If End Sub 单击 三、3 综合应用题(总题数：1，分数：-1.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp 及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即“号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有三个 Label 控件和两个名称分别为 COMSTART 和 COMEXIT，标题分别为“开始”和“退出”的命令按钮。
12、编写函数 ITEM(A，N)其功能是由数字 A 组成的不多于 N 位数的整数，并利用该函数求 8+88+888+8888 的和结果写入考生文件夹下的 sjt5.dat 文件中。执行完毕后，“开始”按钮变成“完成”，且无效(变灰)。如图 9-6 所示。 （分数：-1.00）_正确答案：()解析：解析 控件在运行时是否可用由 Enabled 属性设置。当 Enabled 为 True 时，控件在运行时可用，当 Enable 为 False 时，控件在运行时不可用(灰色)；单击命令按钮触发其 Click 事件，其标题由Caption 属性设置；Str$函数将数字转换为字符串。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 9-3。
