1、二级 VISUAL+BASIC-33-1 及答案解析(总分：49.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：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）_二、B2 简单应用题/B(总题数：1，分数：20.00)1.在窗体上有一个名为 Label1 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德
3、语”；再添加一个标题为“输出”的命令按钮，如下图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。 要求：依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按 sj3.vbp 和 sj3.frm 文件名存盘。 （分数：20.00）_三、B3 综合应用题/B(总题数：1，分数：
4、-1.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有三个 Label 控件和两个名称分别为 COMSTART 和 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数 ITEM(A，N)其功能是由数字 A 组成的不多于 N 位数的整数，并利用该函数求 8+88+888+8888的和结果写入考生文件
5、夹下的 sjt5.dat 文件中。执行完毕后，“开始”按钮变成“完成”，且无效(变灰)。如图 9-6 所示。 （分数：-1.00）_二级 VISUAL+BASIC-33-1 答案解析(总分：49.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：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).在名称为 F
7、orm1 的窗体上画一个文本框，名称为 Text1，无初始内容。请编写 Text1 的 Change 事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在窗体上输出一行文本框中的完整内容。程序运行界面如下图所示。 注意：保存时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。 （分数：15.00）_正确答案：(根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Text1、Text属性为空，双击 Text1 进入代码编写窗口，当 Text1 变换时调用 Text1_Change 函数，代码如下： Private Sub
8、 Text1_Change() Print Text1.Text End SUb 单击*按钮运行程序，并按要求保存。)解析：二、B2 简单应用题/B(总题数：1，分数：20.00)1.在窗体上有一个名为 Label1 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如下图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。 要求：依次添加单选按钮标题为“汉语”、“英语”、“
9、德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按 sj3.vbp 和 sj3.frm 文件名存盘。 （分数：20.00）_正确答案：(单选按钮的标题由 Caption 属性设置，判断单选按钮的状态通过 Value 属性来实现。如果单选按钮被选中，则 Value 值为 1；没选中，Value 值为 0。 根据题意，将 3 个单选按钮控件、一个命令按钮和一个标签添加到窗体中，单选按钮的名称分别为 Option1、Option2 和 Opti
10、on3，Caption 属性分别为“汉语”、“英语”和“德语”，命令按钮的名称为 Command1、Caption 属性为“输出”，标签的名称为Label1，Caption 属性为空。双击 Command1 进入代码编写窗口，利用 Ifelse 语句进行判断，补充后的具体代码如下： Private Sub Command1_Click() If Option1.UValue/U=True Then Label1.UCaption/U=“我的母语是“+Option1.UCaption/U Else If Option2.UValue/U=True Then Label1.UCaption/U=“
11、我的母语是“+Option2.UCaption/U Else Label1.UCaption/U=“我的母语是“+Option3.UCaption/U End If End If End Sub 单击*按钮运行程序，并按要求保存。)解析：三、B3 综合应用题/B(总题数：1，分数：-1.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为
12、 Form1 的窗体上有三个 Label 控件和两个名称分别为 COMSTART 和 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数 ITEM(A，N)其功能是由数字 A 组成的不多于 N 位数的整数，并利用该函数求 8+88+888+8888的和结果写入考生文件夹下的 sjt5.dat 文件中。执行完毕后，“开始”按钮变成“完成”，且无效(变灰)。如图 9-6 所示。 （分数：-1.00）_正确答案：(解析 控件在运行时是否可用由 Enabled 属性设置。当 Enabled 为 True 时，控件在运行时可用，当 Enable 为 False 时，控件在运行时不可用(灰色
13、)；单击命令按钮触发其 Click 事件，其标题由Caption 属性设置；Str$函数将数字转换为字符串。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 9-3。 * Option Explicit Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A As Integer, N As Integer, J As Integer, Sum As Single A= 8: N= 4 For J = 1 To N Sum = Sum + Item(A, J) Next J
14、Print “Sum=“; Sum Open App. Path Sum Open App. Path & “ & “sjt5.dat“ For Output As #1 Print #1, Sum Close #1 COMSTART.Caption = “完成“ COMSTART.Enabled = False End Sub Function Item(A, k) Dim P As String, Q As String, S As Single Dim i As Integer, H As Single p = “ For i = 1 To k Q$ =Str$ (A) P$ = P$ + Q$ Next i S = Val (P$) H = H + S Item = H End Function 第二步：调试并运行程序。 第三步：按题目要求存盘。)解析：
