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

admin2019-06-20 73

问题窗体上有一个名称为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/dcUp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

在考生文件夹下有一个数据库文件“samp2．accdb”，里面已经设计好了表对象“tCourse”、“tGrade”和“tStudent”，请按以下要求完成设计。(1)创建一个查询，查找并显示“姓名”、“政治面貌”和“毕业学校”等3个字段的内容，

在考生文件夹下，存在一个数据库文件“samp1．accdb”，里边已经设计好了表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”，同时还设计了窗体对象“fSubscr4be”。试按以下操作要求，完成各种操作。

在考生文件夹下有数据库文件“samp1．accdb”和Excel文件“Stab．xlsx”，“samp1．acedb”中已建立表对象“student”和“grade”，请按以下要求，完成表的各种操作。(1)将考生文件夹下的Excel文件“Stab

下面正确使用动态数组的是()。

设a=2，b=3，c=4，d=5，下列表达式的值是()。3＞2*bOra=cAndb＜＞cOrb＜＞a+c

属于低毒类有机磷农药是

根据房地产估价的合法原则，目前我国有关法律、法规规定不得抵押因而不应作为以抵押为目的的估价对象的房地产有()。

封闭式基金的交易价格主要受()的影响。

北京四合院源于宋代院落式民居，是老北京城最主要的民居建筑。()

神经衰弱的情绪症状不包括()。

简述个体心理发展的特点。

启蒙运动

中华老字号(Chinacenturies-old／time-honoredbrands)是指那些历史悠久并拥有良好信誉的中国企业。这些企业往往具有鲜明的中华民族传统文化特征，拥有高品质的产品、技艺或服务，取得广泛的社会认同。同仁堂(Tongrentan