2. 计算机
  3. (1)在名称为Forml的窗体中画一个名称为Textl的文本框，其标题为“0”；再添加一个名称为Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程．使得在运行时，每隔1秒钟文本框中的数字加1，当达到10时，在窗口上打印“10”，然后重新从O开

(1)在名称为Forml的窗体中画一个名称为Textl的文本框，其标题为“0”；再添加一个名称为Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程．使得在运行时，每隔1秒钟文本框中的数字加1，当达到10时，在窗口上打印“10”，然后重新从O开

admin2009-08-26  68
问题 (1)在名称为Forml的窗体中画一个名称为Textl的文本框，其标题为“0”；再添加一个名称为Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程．使得在运行时，每隔1秒钟文本框中的数字加1，当达到10时，在窗口上打印“10”，然后重新从O开始计数，如图43—3所示。程序中不得使用任何变量。   
    注意：存盘时必须存放在考生文件夹下，工程文件名为sj3．vbp，窗体文件名为sj3．frm。
    (2)在考生文件夹下有工程文件sj4．vbp，窗体文件sj4．frm，该程序是不完整的。在窗体上已经画出两个图像框，名称分别为Imagel和Image2；一个水平滚动条，名称为HScrolll。要求考生不改动Imagel和Image2的Width属性。当运行程序时，图像框中加载考生文件夹下的图片test.bmp。滚动水平滚动条中的滚动块时，图片Imagel和Image2会随着滚动条的滚动进度逐渐显露出来或隐藏起来。
    程序运行时的窗体界面如图43—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。
选项
答案(1)根据题意，新建“标准EXE”工程，将一个Text控件和一个Timer控件添加到窗体上，Text的名称为Textl，Text属性为“0”，Timer的名称为Timerl，Interval属性为1 000毫秒。双击Timerl进入代码窗口，编写如下代码： Private Sub Timerl_Timer() Textl．Text=Val(Textl．Text)+1’每个间隔计数器加1 If Val(Textl．Text)>=10 Then’当计数器大于等于10时 Textl．Text=0’重新从0开始计数 Print"10" End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，将一个HScrollBar控件和两个Image控件添加到窗体上，HScrollBar的名称为HScrolll、Min为400、Max为2000．Image的名称分别为Imagel和Image2、Stretch属性为True。双击HScrolll进入代码窗口，编写如下代码： Dim a As Integer Private Sub Form_Load() a=Image2．Left+Image2．Width’将Image2的右边界赋值给a Imagel．Width=HScrolll．Value’初始化Imagel的宽度等于滚动条的值 End Sub Private Sub HScrolll_Change() ’当移动滚动块时。Imagel和Image2的宽度随之改变 hnagel．Width=HScrolll．Value Image2．Width=HScrolll.Max-HScroltl．Value Image2．Left=a-Image2．Width’改变Image2的左边界 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/jc1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)