1、二级 VISUAL+BASIC-471 及答案解析(总分：13.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：15.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为 Text1 其宽、高分别为 1500 和 300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord 窗口”。运行时的窗体如下图所示。 注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。 （分数：15.00）
2、_二、2 简单应用题(总题数：1，分数：-1.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在考生文件夹下有工程文件 sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即“号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下： 在窗口中有一个名称为 Image1 的图像框，一个名称为 Timer1 的计时器，一个名称为 HScroll1 的滚动条，还有一个名称为 C1，标题为“开始”的命令按钮。要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间
3、隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。程序运行界面如图 12-5 和图 12-6 所示。 (2) 在考生文件夹下有工程文件 sjt4.vbp 及窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即“号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下： 在窗体中有一个名为 Image1 的图像框，还有两个命令按钮，名称分别是 C1 和 C2，标题分别是“放大”和“缩小”。要求程序运行后，点击 C1 按钮，则图像框变大；点击 C2 按钮，则图像框变小。程序运行界面如图 12-7 所示。 （分数：
4、-1.00）_三、3 综合应用题(总题数：1，分数：-1.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”：两个文本框名称分别为为 Text1 和 Text2，其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。 程序给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在 Text1 中输入口令后，单击“确定”按钮，如
5、果输入的是“123456”则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图 19-5 所示的错误提示对话框，并且 Text2 中的数字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：-1.00）_二级 VISUAL+BASIC-471 答案解析(总分：13.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：15.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为 Text1
6、 其宽、高分别为 1500 和 300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord 窗口”。运行时的窗体如下图所示。 注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。 （分数：15.00）_正确答案：()解析：新建一个名为 Form1 的窗体。 单击工具箱中的 Label 控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为 Lab1，Caption属性为“请输入密码”。 单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置
7、该文本框名称为Text1；在属性窗口设置其 Width 属性为 1500，Height 属性为 300，设置 PasswordChar 属性为“*”。 按要求保存文件即完成本题。二、2 简单应用题(总题数：1，分数：-1.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在考生文件夹下有工程文件 sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即“号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下： 在窗口中有一个名称为 Image1 的图像框，一个名称为 Tim
8、er1 的计时器，一个名称为 HScroll1 的滚动条，还有一个名称为 C1，标题为“开始”的命令按钮。要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。程序运行界面如图 12-5 和图 12-6 所示。 (2) 在考生文件夹下有工程文件 sjt4.vbp 及窗体文件 sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即“号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下： 在窗体中有一个名为 Image1 的图像框，还有两个命令按钮，名称分
9、别是 C1 和 C2，标题分别是“放大”和“缩小”。要求程序运行后，点击 C1 按钮，则图像框变大；点击 C2 按钮，则图像框变小。程序运行界面如图 12-7 所示。 （分数：-1.00）_正确答案：()解析：解析 时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应程序代码，Interval属性决定时间间隔的长短，以毫秒为单位，所以要改变两个图片交替的速度可将滚动框的 Value 值赋值给Interval 属性即可：当时钟控件的 Enabled 属性为 True 时，时钟控件才起作用，当为 False 时该控件不起作用。所以要使开始的时候图片不改变，将 Timer 控件的 E
10、nabled 属性设置为 False，单击命令按钮要使图片开始改变时，将时钟控件的 Enabled 属性设置为 True；程序运行时用 LoadPicture()方法在图形框里装入图形，其格式为： 图形框Picture=LoadPicture(图形文件名)。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 12-3。 表 12-3 控 件 属 性 设 置 值 按纽 Name Caption C1 开始 图象框 Name Image1 计时器 Name Timer1 滚动框 Name HScroll1 第二步：编写程序代码。 程序提供的代码： Private Sub C1
11、_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() “Timer1.?=1000-HScroll1.? End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then “Image1.Picture=?(“2.ico“) i=1 Else “Image1.Picture=?(“1.ico“) i=0 End If End Sub 参考代码： Private Sub C1_Click() Timer1.Enabled=True End Sub P
12、rivate Sub HScroll1_Change() Timer1.Interval=1000-HScroll1.Value End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then Image1.Picture=LoadPicture(“2.ico“) i=1 Else Image1.Picture=LoadPicture(“1.ico“) i=0 End If End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2) 解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 按钮标题由 C
13、aption 来设置；在“属性”窗口中通过 Picture 属性来设置图像框的图片。控件的大小由Width 属性和 Height 属性来设置，Width 决定控件的宽，Height 决定控件的高度，可在属性窗口中直接设置，也可在程序运行中用代码来设置。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性设置见表 12-4。 表 12-4 控 件 属 性 设 置 值 按钮 Name Caption C1 放大 按钮 Name Caption C2 缩小 图像框 Name Image1 第二步：编写程序代码。 程序提供的代码： Private Sub C1_Click() If
14、Image1.Height 3000 Or Image1.Width3000 Then “Image1.Height=Image1.?+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height1000 Or Imagel.Width1000 Then Image.Height=Image1.Height-500 “Image1.Width=Image1.Width ? 500 End If End Sub 参考代码： Private Sub C1_Click() If Ima
15、ge1.Height3000 Or Image1.Width3000 Then Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height1000 Or Image1.Width1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End Sub 第三步：调试并运行程序 第四步：按题目要求存盘三、3 综合应用题(总题数：
16、1，分数：-1.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”：两个文本框名称分别为为 Text1 和 Text2，其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。 程序给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在 Text1 中输入口令后，单击“确定”按钮，如果输入的是“123456”则在 Text1
17、 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图 19-5 所示的错误提示对话框，并且 Text2 中的数字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：-1.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在文本框里显示的内容通过 Text 属性设置，其形式为： 文本框名.Text=显示的内容 要使文本框内容显示为“*”，需将 PasswordChar 属性设置为“*”。 程序中用到的 MsgBox 语句用法为： MsgBox 提示，
18、按钮，标题 在程序运行时控件是否可操作由 Enabled 属性设置，当该属性为 True 时控件可操作，为 False 时不可操作。若 3 次都入错误，禁止再次输入，将文本框的 Enabled 属性置为 False 即可。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表 19-6。 表 19-6 控 件 属 性 设 置 值 文本框 Name Text Text1 空 文本框 Name Text Text2 3 命令按钮 Name Caption C1 确定 标签 Name Caption L1 口令 标签 Name Caption L2 输入次数 第二步：编写程序代码
19、。 程序提供的代码： PriVate Sub C1_CliCk() “ If ? = “123456“ Then Text1.Text=“口令正确“ “ TeXt1.?=“ Else Text2.Text=TeXt2.Text-1 “ If TeXt2.Text? Then MsgBox“第“& (3-Text2.Text) &“次口令错误，请重新输入“ Else MsgBox“3 次输入错误，请退出“ “ Text1.Enabled=? End If End If End Sub 参考代码： Private Sub C1_Click() If Text1.Text=“123456“ Then Text1.Text=“口令正确“ TeXt1.PasswordChar=“ Else Text2.Text=TeXt2.Text-1 If TeXt2.Text0 Then MsgBox“第“ & (3-Text2.Text) & “次口令错误，请重新输入“ Else MsgBox“3 次输入错误，请退出“ Text1.Enabled=False End If End If End SUb 第三步：调试并运行程序。 第四步：按题目要求存盘。
