(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上有一个名称为Labell的标签,一个名称为,Timerl的计时器,一个名称为HScrolll的滚动条,还有一个名称为Cornmandl、标题为“开始”的命令按钮

admin2010-07-13  19

问题 (1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上有一个名称为Labell的标签,一个名称为,Timerl的计时器,一个名称为HScrolll的滚动条,还有一个名称为Cornmandl、标题为“开始”的命令按钮。要求程序运行后,单击开始按钮,则标签中的文本根据计时器中设定的时间间隔交替变更的文本分别是“Windows操作系统”和“UNLX/Linux”,如果改变滚动条中滚动块的位置,则文本交替变换的速度也随之变化。程序运行时窗体界面如图11—5所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在窗体中有一个名为Imagel的图像框,还有两个命令按钮,名称分别是Commandl和Command2,标题分别是“纵向拉伸”和“横向拉伸”。要求程序运行后,单击Commandl按钮,则图像框变高;单击Command2按钮,则图像框变宽。程序运行界面如图11—6所示。
    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

选项

答案(1)本题主要考查计时器控件的使用。计时器控件的作用是以一定的时间间隔激发计时器事件(Timer)而执行相应程序代码,Interval属性决定时间间隔的长短,以毫秒为单位。当计时器控件的Enabled属性为True时,计时器控件才起作用,当为False时该控件不起作用。所以要使开始的标签内容不改变。将Timer控件的Enabled属性设置为False,单击命令按钮要使标签内容开始改变时,将计时器控件的Enabled属性设置为True。 根据题意,将一个计时控件、一个命令按钮、一个标签和一个水平滚动条控件添加到窗体中,Timer的名称为Timer],命令按钮的名称为Command1、Caption属性为“开始”,水平滚动条的名称为HScrolll。Min属性为1,Max属性为10,标签的名称为Labell,Caption属性为Windows操作系统。双击Commandl进入代码编写窗VI,当单击开始时,启动计时器,Timer的初始间隔为1,具体代码如下: Dim a As Integer Private Sub Commandl_Click() Timerl.Interval=HScrolll.Value*100 ’设置变化时间,是间隔时间的100倍 End Sub Private Sub HScrolll_Change() Timerl.Interval=HScrolll.Value End Sub Private Sub Form_Load() Timerl.Interval=0 End Sub Private Sub Timerl_Timer() If a=0 Then’a=0或者1是一个标识。判断显示什么 Labell.Caption="Windows操作系统" a=1 Else Labell.Caption="Unix/Linux" a=0 End If End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将一个图像控件和两个命令按钮添加到窗体中,Image的名称为Imagel,Strech属性为True,表示可以拉伸,载入图片temp.bmp,命令按钮的名称分别为Commandl和Command2、Caption属性分别为“纵向拉伸”和“横向拉伸”。双击Commandl进入代码窗口,改变Imagel的高度和宽度来进行图片变化,补充后的具体代码如下: Private Sub Commandl_Click() Imagel.Height=Imagel.Height+300’高度 End Sub Private Sub Command2_Click() Imagel.Width=Imagel.Width+300’宽度 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/FJg0FFFM
0

最新回复(0)