2. 计算机
  3. 窗体上有一个名称为Picturel的图片框和一个名称为Timer1的计时器控件，并有下面程序代码： Dim x％，V％ Private Sub Form_Load() x=Picturel．Width*2 y=Picture

窗体上有一个名称为Picturel的图片框和一个名称为Timer1的计时器控件，并有下面程序代码： Dim x％，V％ Private Sub Form_Load() x=Picturel．Width*2 y=Picture

admin2016-08-24  41
问题 窗体上有一个名称为Picturel的图片框和一个名称为Timer1的计时器控件，并有下面程序代码：
    Dim x％，V％
    Private Sub Form_Load()
    x=Picturel．Width*2
    y=Picturel．Height*2
    Timer1．Enabled=True
    Timer1．Interval=100
    End Sub
    Private Sub Timer1 Timer()
    If Picturel．Width    Picturel．Width=Picturel．Width+3
    Picturel．Height=Picturel．Height+3
    End If
    End Sub
    程序运行后产生的效果是(    )。
选项 A、图片框尺寸不断变大，直到其高和宽都增加到原来的2倍为止
B、图片框尺寸不断变大，并一直增加下去
C、图片框尺寸不断变大，直到其高和宽都增加到原来的3倍为止
D、界面没有产生任何变化
答案A
解析 在所有程序之前定义了全局变量x和y，所以变量x和y的作用域为所有过程。在Form_Load事件过程中，对变量x和y进行了初始化，并启用了计时器控件，每隔100毫秒(0．1秒)，触发一次计数器事件Tiimerl_Timer。在计时器事件中利用if语句判断图片的高度和宽度是否超过图像本身尺寸的2倍，若未超过，则将图片的高度和宽度分别增加3个twip单位。所以A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/vYLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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