(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 单击
按钮运行程序，并按要求保存。 (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 单击
【答案解析】