1、二级 VISUAL+BASIC-45 (1)及答案解析(总分：13.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为 Text1 其宽、高分别为 1500 和 300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord 窗口”。运行时的窗体如下图所示。 注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为sj1.frm。 （分数：15
2、.00）_二、B2 简单应用题/B(总题数：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）_三、B3 综合应用题/B(总题数：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-45 (1)答案解析(总分：13.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标签上显示“请输入密码”；在标签的右边绘制一个
6、文本框，名为 Text1 其宽、高分别为 1500 和 300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord 窗口”。运行时的窗体如下图所示。 注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为sj1.frm。 （分数：15.00）_正确答案：(新建一个名为 Form1 的窗体。 单击工具箱中的 Label 控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为 Lab1，Caption 属性为“请输入密码”。 单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框
7、，在属性窗口设置该文本框名称为 Text1；在属性窗口设置其 Width 属性为 1500，Height 属性为 300，设置 PasswordChar 属性为“*”。 按要求保存文件即完成本题。)解析：二、B2 简单应用题/B(总题数：1，分数：-1.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp 及窗体文件 sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个名称为 Image1
8、 的图像框，一个名称为 Timer1 的计时器，一个名称为 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时该控件不起作用。所以要使开始的时候图片不改变，将 T
10、imer 控件的 Enabled 属性设置为 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=TrueEnd SubPrivate Sub HScroll1_Change()Timer1.?=1000-HScroll1.?End SubPrivate Sub Timer1_Timer()Static i As IntegerIf i=0 ThenImage1.Picture=?(“2.ico“)i=1ElseImage1.Picture=?(“1.ico“)i=0End IfEnd Sub参考代码：Private Sub C1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub HScroll1_Cha
12、nge()Timer1.Interval=1000-HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()Static i As IntegerIf i=0 ThenImage1.Picture=LoadPicture(“2.ico“)i=1ElseImage1.Picture=LoadPicture(“1.ico“)i=0End IfEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。按钮标题由 Caption 来设置；在“属性”窗口中通过 Picture 属性来设置图像框的
13、图片。控件的大小由Width 属性和 Height 属性来设置，Width 决定控件的宽，Height 决定控件的高度，可在属性窗口中直接设置，也可在程序运行中用代码来设置。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性设置见表 12-4。表 12-4 控 件 属 性 设 置 值按钮 Name Caption C1 放大按钮 Name Caption C2 缩小图像框 Name Image1第二步：编写程序代码。程序提供的代码：Private Sub C1_Click()If Image1.Height 3000 Or Image1.Width3000 ThenImag
14、e1.Height=Image1.?+500Image1.Width=Image1.Width+500End IfEnd SubPrivate Sub C2_Click()If Image1.Height1000 Or Imagel.Width1000 ThenImage.Height=Image1.Height-500Image1.Width=Image1.Width ? 500End IfEnd Sub参考代码：Private Sub C1_Click()If Image1.Height3000 Or Image1.Width3000 ThenImage1.Height=Image1.He
15、ight+500Image1.Width=Image1.Width+500End IfEnd SubPrivate Sub C2_Click()If Image1.Height1000 Or Image1.Width1000 ThenImage1.Height=Image1.Height-500Image1.Width=Image1.Width-500End IfEnd Sub第三步：调试并运行程序第四步：按题目要求存盘)解析：三、B3 综合应用题/B(总题数：1，分数：-1.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在考生文件夹下有一个工程文件sjt
16、5.vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”：两个文本框名称分别为为 Text1 和 Text2，其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。 程序给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确内容，使得在运行时，在 Text1 中输入口令后，单击“确定”按钮，如果输入的是“123456”则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图 19-5 所示的错误提示对话框，并且 Text2 中的数字减 1。最多
17、可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：-1.00）_正确答案：(解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。在文本框里显示的内容通过 Text 属性设置，其形式为：文本框名.Text=显示的内容要使文本框内容显示为“*”，需将 PasswordChar 属性设置为“*”。程序中用到的 MsgBox 语句用法为：MsgBox 提示，按钮，标题在程序运行时控件是否可操作由 Enabled 属性设置，当该属性为 True 时控件可操作，为 False 时不可操作。若 3 次都入错误，禁止
18、再次输入，将文本框的 Enabled 属性置为 False 即可。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表 19-6。表 19-6 控 件 属 性 设 置 值文本框 Name Text Text1 空文本框 Name Text Text2 3命令按钮 Name Caption C1 确定标签 Name Caption L1 口令标签 Name Caption L2 输入次数第二步：编写程序代码。程序提供的代码：PriVate Sub C1_CliCk() If ? = “123456“ ThenText1.Text=“口令正确“ TeXt1.?=“ElseTex
19、t2.Text=TeXt2.Text-1 If TeXt2.Text? ThenMsgBox“第“& (3-Text2.Text) &“次口令错误，请重新输入“ElseMsgBox“3 次输入错误，请退出“ Text1.Enabled=?End IfEnd IfEnd Sub参考代码：Private Sub C1_Click()If Text1.Text=“123456“ ThenText1.Text=“口令正确“TeXt1.PasswordChar=“ElseText2.Text=TeXt2.Text-1If TeXt2.Text0 ThenMsgBox“第“ & (3-Text2.Text) & “次口令错误，请重新输入“ElseMsgBox“3 次输入错误，请退出“Text1.Enabled=FalseEnd IfEnd IfEnd SUb第三步：调试并运行程序。第四步：按题目要求存盘。)解析：
