首页 > 考试 > 等级考试 > 二级 > Visual Basic >

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

2014-01-10

 (1)在考生文件夹中有工程文件vbsj3 vbp及其窗体文件vbsj3 frm。在名为Form1的窗体上有3个名称分别为Txt1、Txt2和Txt3的文本框;1个名称为Cmd1的命令按钮,其标题为“计算”。   要求程序运行后,在

 (1)在考生文件夹中有工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm。在名为 Form1的窗体上有 3 个名称分别为 Txt1、Txt2 和 Txt3 的文本框;1 个名称为 Cmd1 的命令按钮, 其标题为“计算”。

  要求程序运行后,在 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:按要求将文件保存至考生文件夹中。

相关文章
最新文章
热点推荐