1、二级 VISUAL+BASIC 机试-79 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.在窗体上画两个文本框，名称分别为 T1、T2，初始情况下均为空白，编写适当的事件过程。程序运行后，如果在 T1 中输入字符，则所输入的字符立即在 T2 中显示出来，并把小写字母转换为相应的大写字母，如图 11 所示。要求：程序中不得使用任何变量。注意：存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在窗体上画二个文本框，名称为 Text1 和 Text2，内容为空；再画二个标签，名称分别为 L1 和 L2，标题分别为“
2、输入 A，B，C：”和“AB+C”；再画一个命令按钮，名称为 C1，标题为“运算”。编写适当的程序。程序运行时，在文本框 Text1 中输入用逗号隔开的 3 个整数 A、B、C，单击“运算”按钮，则计算出 AB+C 的值，显示在文本框 Text2 中。程序运行结果如图 12 所示。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.在考生文件夹下有一个工程文件 sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入
3、的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图21 所示。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。2在考生文件夹下有一个工程文件 sjt4.vhp，相应的窗体文件为 sjt4.frm。在窗体上有 2 个命令按钮、1 个标签和 1 个计时器，其名称分别为 Command1、Command2、Label1 和 Timer1，如图 22 所示。程序运行后，在命令按钮 Command1 中显示“开
4、始”，在命令按钮Command2 中显示“停止”，在标签中用字体大小为 16 的粗体显示“热烈欢迎”(标签的 AutoSize 属性为True)，同时把计时器的 Interva1 属性设置为 50，Enabled 属性设置为 False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动 20，如图23 所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。（分数：40
5、.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个过程文件 sjt5.vbp，窗体上有两个图片框，名称为 P1、P2，分别用来表示信号灯和汽车，其中在 P1 中轮流装入“黄灯.ico”、“红灯.ico、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器 Timer1 和 Timer2，Timer1 用于变换信号灯，黄灯 1 秒，红灯 2 秒，绿灯 3 秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程
6、序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm 文件内容如下：Dim a%,b As BooleanPrivate Sub C1_Click() Timer2.Enabled=?b=TrueEnd SubPrivate Sub Timer1_Timer()a=a+1If a6 Thena=1End IfSelect Case aCase 1P1.Picture=LoadPicture(“黄灯.ico“ )Case 2,3P1.Picture=L
7、oadPicture(“红灯.ico“)Case 4,5,6 P1.Picture=LoadPicture(“?“)If b Then Timer2.Enabled=TrueEnd SelectEnd SubPrivate Sub Timer2_Timer()If (a4) And (P2.LeftP1.Left And P2.LeftP1.Left+P1.Width)Or P2.Left=100 Then Timer2.Enabled=?Else P2.Move? 10,P2.Top,P2.Width,P2.HeightEnd IfEnd Sub（分数：30.00）_二级 VISUAL+BA
8、SIC 机试-79 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.在窗体上画两个文本框，名称分别为 T1、T2，初始情况下均为空白，编写适当的事件过程。程序运行后，如果在 T1 中输入字符，则所输入的字符立即在 T2 中显示出来，并把小写字母转换为相应的大写字母，如图 11 所示。要求：程序中不得使用任何变量。注意：存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在窗体上画二个文本框，名称为 Text1 和 Text2，内容为空；再画二个标签，名称分别为 L1 和 L2，标题分别为“输入 A，B，C：”和“A
9、B+C”；再画一个命令按钮，名称为 C1，标题为“运算”。编写适当的程序。程序运行时，在文本框 Text1 中输入用逗号隔开的 3 个整数 A、B、C，单击“运算”按钮，则计算出 AB+C 的值，显示在文本框 Text2 中。程序运行结果如图 12 所示。（分数：30.00）_正确答案：( 启动 Visual Basic，在窗体上画两个文本框。 按 F4 键激活属性窗口，在属性窗口中设置文本框的属性，见表 1。表 1控件 属性 设置值文本框 1 名称Text T1(空白)文本框 2 名称Text T2(空白) 编写命令按钮的 Click 事件过程：Private Sub T1_change()
10、T2. TextUCase(T1. Text)End Sub2 对象主要属性设置如表 2 所示。表 2对象 对象名 属性名 属性值窗体 Form1 Caption 数据处理命令按钮 C1 Caption 运算文本框 Text1文本框 Text2标签 L1 Caption 输入 A,B,C:标签 L2 Caption AB+C= 分析：按试题要求在窗体上画两个文本框、两个标签和一个单选按钮，并分别将它们的属性按表 2 的内容进行设置。Split()函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串。Val()函数返回包含于字符串内的数字，字符串中是一个适当类型的数值。CStr()函数将
11、一数值转换为字符串。 编程代码：Private Sub C1_Click()Dim aaSplit(Text1.Text,“,“)Text2.TextCStr(Val(a(0)* Val(a(1)+Val(a(2)End Sub)解析：二、2 简单应用题(总题数：1，分数：40.00)2.在考生文件夹下有一个工程文件 sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过
12、了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图21 所示。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。2在考生文件夹下有一个工程文件 sjt4.vhp，相应的窗体文件为 sjt4.frm。在窗体上有 2 个命令按钮、1 个标签和 1 个计时器，其名称分别为 Command1、Command2、Label1 和 Timer1，如图 22 所示。程序运行后，在命令按钮 Command1 中显示“开始”，在命令按钮Command2 中显示“停止”，在标签中用字体大小
13、为 16 的粗体显示“热烈欢迎”(标签的 AutoSize 属性为True)，同时把计时器的 Interva1 属性设置为 50，Enabled 属性设置为 False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动 20，如图23 所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。（分数：40.00）_正确答案：( 建立界面和设置控件属性。题目提供了程序用到的
14、控件及其属性。如下表 3 所示。表 3对象 属性 设置值文本框 NameText Text10命令按钮 NameCaption C1“移动“滚动条Name1MinMaxHS11100 编写程序代码题目提供的代码：Private Sub C1_Cliek() If HS1. Value+Text1. TextHS1.? ThenMsgBox“文本框中的数值太大“ Elself HS1. Value+Text1.Text? ThenMsgBox“文本框中的数值太小“Else ? = HS1. Value+Text1. TextEnd IfEnd Sub修改后的参考代码Private Sub C1_
15、Cliek()If HS1. Value+Text1. TextHS1. Max ThenMsgBox“文本框中的值太大“ElselIf HS1. Value+Text1. TextHS1.Min ThenMsgBox“文本框中的数值太小“ElseHS1. Value=HS1. Value+Text1. TextEnd IfEnd Sub 按题目要求存盘2修改完成后的代码如下：Private Sub Form_Load()Command1. Caption=“开始“Command2. Caption=“停止“Timer1.Interval=50Timer1.Enabled=FalseLabel
16、1.Caption=“热烈欢迎“Label1.AutoSize=TrueLabel1.FontSize=16Label1.FontBold=TrueEnd SubPrivate Sub Command1_Click()Command1.Caption=“继续“Timer1.Enabled=TrueCommand1.Enabled=FalseComrnand2.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled=FalseCommand2.Enabled=FalseCommand1.Enabled=TrueEnd SubPr
17、ivate Sub Timer1_Timer()If Label1.LeftWidth ThenLabel1. Left=Label1. Left+20ElseLabel1.Left=0End IfEnd Sub)解析：三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个过程文件 sjt5.vbp，窗体上有两个图片框，名称为 P1、P2，分别用来表示信号灯和汽车，其中在 P1 中轮流装入“黄灯.ico”、“红灯.ico、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器 Timer1 和 Timer2，Timer1 用于变换信号灯，黄灯 1 秒，红灯 2 秒，绿灯 3
18、 秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm 文件内容如下：Dim a%,b As BooleanPrivate Sub C1_Click() Timer2.Enabled=?b=TrueEnd SubPrivate Sub Timer
19、1_Timer()a=a+1If a6 Thena=1End IfSelect Case aCase 1P1.Picture=LoadPicture(“黄灯.ico“ )Case 2,3P1.Picture=LoadPicture(“红灯.ico“)Case 4,5,6 P1.Picture=LoadPicture(“?“)If b Then Timer2.Enabled=TrueEnd SelectEnd SubPrivate Sub Timer2_Timer()If (a4) And (P2.LeftP1.Left And P2.LeftP1.Left+P1.Width)Or P2.Lef
20、t=100 Then Timer2.Enabled=?Else P2.Move? 10,P2.Top,P2.Width,P2.HeightEnd IfEnd Sub（分数：30.00）_正确答案：( 对象主要属性设置如表 4 所示。表 4对象 对象名 属性名 属性值窗体 Form1 Caption Form1图片框 P1图片框 P2 Picture CARS.ICO命令按钮 C1 Caption 开车计时器 Timer1 Interval 20计时器 Timer2 Interval 1000Enabled False 分析：窗体上的两个图片框、两个计时器和一个命令按钮，它们的属性按表 4 的内
21、容进行设置。对于一个含有计时器控件的窗体，当属性 Enabled 为 True 时，每经过一段由属性 Interval 指定的时间(毫秒)间隔，就产生一个 Timer 事件。当属性 Enabled 为 False 或属性 Interval 为 O 时，将终止 Timer 事件。在程序运行期间可以用 Load-Picture 函数把图形文件装入窗体、图片框或图像框中。Move 方法的格式为：Object. Move left, top, width, height object 为一个对象； left(必需的)为 object 左边的水平坐标(x轴)； top(可选的)为 object 顶边的垂
22、直坐标(y轴)； width(可选的)为 object 新的宽度； height(可选的)为 object 新的高度。 编程代码：Dim a%,b As BooleanPrivate Sub C1_Click()Timer2. Enabled=Trueb=TrueEnd SubPrivate Sub Timer1_Timer()a=a+1If a6 Thena=1End IfSelect Case aCase 1P1.Picture=LoadPicture(“黄灯.ico“)Case 2,3P1.Picture=LoadPicture(“红灯.ico“)Case 4,5,6P1.Picture=LoadPieture(“绿灯.ico“)If b Then Timer2. Enabled=TrueEnd SelectEnd SubPrivate Sub Timer2_Timer()If (a4) And (P2. LeftP1.Left And P2.LeftP1.Left+P1. Width)Or P2. Left=100 ThenTimer2. Enabled=FalseElseP2. Move P2. Left10, P2. Top, P2.Width, P2.HeightEnd IfEnd Sub)解析：
