窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码： Dim r As Single, flag As Integer Private Sub Form_Load()

admin2020-02-27 48

问题窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码：
Dim r As Single, flag As Integer
Private Sub Form_Load()
r = Shape1.Width
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If flag = 0 Then
      Shape1.Width = Shape1.Width - 10
      If Shape1.Width <= 100 Then
         flag = 1
      End If
Else
      Shape1.Width = Shape1.Width + 10
      If Shape1.Width >= r Then
         flag = 0
      End If
End If
End Sub
运行程序后产生的结果是

选项 A、圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复
B、圆一直在缩小
C、圆每隔0.5秒向右移动一次
D、圆每隔1秒向下移动一次

答案A

解析 Form_Load 过程中设定timer事件定时触发；在Timer1_Timer过程中，圆圈先变小后变大，然后退出。下一次timer事件触发时继续这个过程。因此，选A）。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码： Dim r As Single, flag As Integer Private Sub Form_Load()

二级VB

NCRE全国计算机二级

以下能对正实数d的第3位小数四舍五入的表达式是()。

为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是()。

下列不包含滚动条的控件是()。

有下面事件过程：PrivateSubCommandl—Click()Dima(20)AsInteger，n(5)AsIntegerDimmAsInteger，BumAsIntegerRandomi

以下叙述中错误的是()。

窗体上有1个名称为Commandl的命令按钮，能够使其向左移动100的语句是()。

使用Open语句可以打开或建立文件，并同时指定文件的输入输出方式。下列输入输出方式中错误的是()。

设窗体上有名称为Optionl的单选按钮，且程序中有语句：IfOptionl．Value=TrueThen下面语句审与该语句丕等俭的是()。

下面不能在信息框中输出“VisualBasic”的是()。

单级离心泵采取()平衡轴向力。

与蛋白代谢有关的循环途径有()

抢救急性CO中毒时保护脑细胞的措施是抢救急性CO中毒时纠正缺氧的方法

某银行工作人员汪某参与了李某的贷款诈骗罪行，汪某可能涉及的罪名有()。

运动时引起血液氧离曲线右移的原因是二氧化碳分压降低。()

荷兰作家布鲁马指出：“德国人理解二战的关键不是在斯大林格勒战役或柏林之战，而是在发现奥斯威辛集中营的那一刻；日本人的理解则不在珍珠港或中途岛之战，而是广岛原子弹。”对这句话理解不正确的一项是()。

牙本质肩领(ferrule)

Whilethemissionofpublicschoolshasexpandedbeyondeducationtoincludesocialsupportandextra-curricularactivities,the

算法复杂度主要包括时间复杂度和__________复杂度。