2014全国计算机二级VB上机试题及答案：简单应用题1

　　要求程序运行后，在 Txt1 和 Txt2 中分别输入两个整数，单击“计算”按钮后，可把 两个整数之间的所有整数（含两个整数）累加起来并在 Txt3 中显示出来，如图 51-3 所示。

　　要求：在有问号“？”的地方填入正确内容，然后删除“？”及所有注释符“’”，但 不得修改其他部分。保存时不得改变文件名和文件夹。

　　（2）在考生文件夹中有一个工程文件 vbsj4.vbp，相应的窗体文件为 vbsj4.frm。在名 为 Form1 的窗体上有两个名称分别为 Cmd1 和 Cmd2 的命令按钮；一个名称为 Lab1 的标 签控件；一个名称为 Tmr1 计时器控件。

　　程序运行后，在命令按钮 Cmd1 中显示为“开始”；在命令按钮 Cmd2 中显示为“停 止”；标签中字号大小为 18 号、字体为粗体、显示为“欢迎光临”（标签的 AutoSize 属性 为 True）；计时器的 Interval 属性设置为 100，Enabled 属性设置为 False。

　　此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签 自左至右移动（每个时间间隔移动 50），如图 51-4 所示。当标签移动出窗体右边界后，自 动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命 令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。本 程序不完整，请补充完整，并能正确运行。

　　要求：去掉程序中的注释符“’”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

　　第 1 小题 

　　【审题分析】本题"计算"按钮单击事件过程源代码的设计思路：先用两变     a 和 b  分别记录在两个文本框输入的数据，并通过比较大小，使变     b 的值始终大于变      a 的值， 

　　t 为交换变      a 和 b 值的中间变    。然后利用 For 循环（循环变      i 的初值为 a，终值为 b），  将 i 的值逐个累加到变      s，循环结束时将变      s 的值显示在文本框中。 

　　【操作步骤】 

　　步骤 1：打开考生文件下的本题工程文件 vbsj3.vbp，在代码编辑窗口，编写"计算" 按钮的 Click 事件过程。 

　　参考代码： 

　　b 

　　s 

　　= i 

　　= s + i 

　　步骤 2：按要求将文件保存至考生文件夹中。 

　　108 

　　第 2 小题 

　　【审题分析】本题全部控件已画出，相关属性设置也在程序源码的窗体加载事件中设置，只需按题目要求完善其他相关事件过程。由于标签在窗体上的移动是在计时器的 Timer 事件过程中完成的，单击"开始"按钮时就应启动计时器，因此 Cmd1_Click 事件过程中的第  1 个？处应为  True；要禁用"开始"按钮就应设置其  Enabled 属性值为  False，第  2 个？处应为 False。 

　　单击"停止"按钮时要停止标签移动，就是要停止计时器，故 Cmd2_Click 事件过程中的第 3 个？处应为 False。在 Tmr1_Timer 事件过程中，要让标签每次自左至右移动 50， 可在每个时间间隔使标签的 Left 属性值在原有基础上加 50 来实现，故该事件过程中第 4 个？处应改为：Lab1.Left + 50；为防止标签移出窗体，在执行移动语句前先用 If?Then? 

　　Else 对其位置进行判断。 

　　【操作步骤】 

　　步骤 1：打开考生文件下的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的 注释符"’"，将问号"？"改为正确的内容。 

　　参考代码： 

　　Tmr1.Enabled = True 

　　Cmd1.Enabled = False 

　　Tmr1.Enabled = False 

　　Lab1.Left = Lab1.Left + 50 

　　步骤 2：按要求将文件保存至考生文件夹中。