窗体上有1个Timer1计时器，1个Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.En

admin2015-08-28 33

问题窗体上有1个Timer1计时器，1个Shape1形状控件，还有下面程序代码：
Dim flag As Boolean
Private Sub Form_Load()
      flag = True
      Timer1.Enabled = True
      Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
      If flag Then
         Shape1.Height = Shape1.Height * 2
         Shape1.Width = Shape1.Width * 2
      Else
         Shape1.Height = Shape1.Height * 0.5
         Shape1.Width = Shape1.Width * 0.5
      End If
      flag = Not flag
End Sub
执行程序所产生的效果是

选项 A、Shape1形状的尺寸在缩小到原来一半和恢复原状这2种状态间切换，每秒切换一次
B、Shape1形状的尺寸在扩大到原来2倍和恢复原状这2种状态间切换，每秒切换一次
C、Shape1形状的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换，每秒切换一次
D、Shape1形状的尺寸会不断扩大

答案B

解析 Form_Load 过程中设定timer事件定时触发，定时时间为1秒；在Timer1_Timer过程中，Shape1形状的尺寸在扩大到原来2倍和恢复原状，然后退出。下一次timer事件触发时继续这个过程。因此，选B）。

转载请注明原文地址:https://kaotiyun.com/show/A9Lp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

窗体上有1个Timer1计时器，1个Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.En

二级VB

NCRE全国计算机二级

在窗体上画一个名称为Command1的命令按钮和一个名称为Tcxt1的文本框，然后编写如下程序：PrivateSubCommand1_ClickDimx,y,zAsIntegerx=5:y=7:z=0

在窗体上画一个名称为Command1的命令按钮，并编写如下过程：PrivateSubCommand1_Click()DimxASIntegerStaticyAsIntegerx=10

表示滚动条控件取值范围最大值的属性是______。

数据库设计的根本目标是要解决______。

窗体在屏幕上显示后有______种方法可以清除它。

用Close语句可以关闭一个已经用完不再使用的文件，当该语句不带任何参数时，它的功能是

在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是()。

在VisualBasic中，下列运算符中优先级最高的是______。

按条件f对关系R进行选择，其关系代数表达式为______。

在名为Form1的窗体上建立1个名为Text1的文本框，将MultiLine属性设置为True，ScrollBars属性设置为3。建立2个名称分别为Cmd1、Cmd2和Cmd3命令按钮，标题分别为“读数”、“排序”和“保存”，如下图所示。

车削多头蜗杆时，如果分头精度不正确，等距误差大，会严重影响蜗杆与蜗轮的啮合精度，但对使用寿命无影响。()

根据《涉外民事关系法律适用法》的规定，除了涉外合同，还有哪些涉外民事事项适用的法律，可以由当事人协议选择()

_______与其他学科教学是学校德育的基本途径。

参苓白术散的功效有

关于项目投资，下列说法正确的是()。

把下面的六个函形分为两类，使每一类图形都有各自的共同特征或规律，分类正确的一项是：

设A是m阶正定矩阵，B是m×n实矩阵．证明：BTAB正定r(B)=n．

若下列编码中包含奇偶校验位，且无错误，则采用偶校验的编码是()。