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

admin2015-08-28 40

问题窗体上有一个名称为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://kaotiyun.com/show/HzLp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

使用CommonDialog控件的()方法，可显示“打印”对话框。

下列叙述中正确的是()。

按照逻辑结构分类，结构可以分为线性结构和非线性结构，栈属于______。

下列程序段的执行结果为______。X=5Y=-20IfNotX＞0ThenX=Y-3ElseY=X+3PrintX-Y；Y-X

在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件，则对通用对话框的Filter属性的正确设置是______。

下列VisualBasic语句中，正确的语句是______。

按文件的内容划分有()。

数据库技术的主要特点为【】，具有较高的数据和程序的独立性以及对数据实行集中统一的控制。

在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印()。

国家二级保护野生药材物种的中药材包括

医院的管理环境着重强调的是

下列关于城镇土地使用税征收管理的说法，正确的有()。

不属于合同可撤销的原因的是()。

物流系统中存在着许多制约关系，这种制约关系为()。

发展决定教育，现代学校教育的任务是努力创造适合儿童的教育。()

根据下面资料回答下列问题。2003～2007年全国税收总额为()亿元。

WritinganArgumentativeEssayI.ThestructureofanargumentativeessayA.introduction:—atopic—some【T1】______informatio