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

admin2020-02-27 39

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

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

设循环队列的存储空间为Q(1：m)，初始状态为空。现经过一系列正常的人队与退队操作后，front=m，rear=m-1，此后从该循环队列中删除一个元素，则队列中的元素个数为()。

设循环队列的存储空间为Q(1：50)，初始状态为front=rear=50。现经过一系列入队与退队操作后，front=rear=1，此后又正常地插入了两个元素。最后该队列中的元素个数为()。

在黑盒测试方法中，设计测试用例的根据是()。

编写如下程序代码：OptionExplicitPrivateSubForm—Click()DimxAsVariantDimiAsVariantx=Array(50，27，69，80，45)

窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：PrivateSubTextl_Change(IndexAsInteger)SelectCaseIndexCase0Text1

设计窗体时，双击窗体上没有控件的地方，打开的窗口是(　　)。

假定变量X的值为33521397，则在声明其类型时不能声明为

能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是

根据栖息地环境的不同，地球上的生态系统可分为______和陆地生态系统。

下列各项，对诊断急性心衰最特异的是

患儿，女，8岁。上课时神思涣散，多动，注意力不能集中，记忆力较差，做事有头无尾，时常感到乏力，面色无华，身体消瘦，纳少，夜寐不安，舌淡苔薄白，脉虚弱无力。其治疗宜选

垃圾填埋场的选址，应考虑()等因素，位置选择得好，直接体现在投资成本和社会环境效益上。

跨湖桥文化遗址是国家级文物保护单位，出土了世界上最早的独木舟，把浙江文明史前推到5000年前。()

在《对数的概念》一课教学中，根据情况回答下列问题：对本课教学进行学情分析．

根据我国宪法规定，下列选项中哪一种情况不是公民获得物质帮助权的条件?()

有两种溶液，甲溶液的酒精浓度为15％，盐浓度为10％，乙溶液的酒精浓度为45％，盐浓度为5％。现有甲溶液1千克，那么需要多少千克乙溶液，将它与甲溶液混合后所得的溶液的酒精浓度是盐浓度的3倍?

下面关于实时系统的叙述中，错误的是()。

下面程序的输出结果是【】。PrivateSubForm_Click()i＝0DoUntil0i＝i＋1if　i>10thenExitDoLoopPrintiEndSub

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

二级VB

NCRE全国计算机二级

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

设循环队列的存储空间为Q(1：m)，初始状态为空。现经过一系列正常的人队与退队操作后，front=m，rear=m-1，此后从该循环队列中删除一个元素，则队列中的元素个数为()。

设循环队列的存储空间为Q(1：50)，初始状态为front=rear=50。现经过一系列入队与退队操作后，front=rear=1，此后又正常地插入了两个元素。最后该队列中的元素个数为()。

在黑盒测试方法中，设计测试用例的根据是()。

编写如下程序代码：OptionExplicitPrivateSubForm—Click()DimxAsVariantDimiAsVariantx=Array(50，27，69，80，45)

窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：PrivateSubTextl_Change(IndexAsInteger)SelectCaseIndexCase0Text1

设计窗体时，双击窗体上没有控件的地方，打开的窗口是( )。

假定变量X的值为33521397，则在声明其类型时不能声明为

能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是

根据栖息地环境的不同，地球上的生态系统可分为______和陆地生态系统。

下列各项，对诊断急性心衰最特异的是

患儿，女，8岁。上课时神思涣散，多动，注意力不能集中，记忆力较差，做事有头无尾，时常感到乏力，面色无华，身体消瘦，纳少，夜寐不安，舌淡苔薄白，脉虚弱无力。其治疗宜选

垃圾填埋场的选址，应考虑()等因素，位置选择得好，直接体现在投资成本和社会环境效益上。

跨湖桥文化遗址是国家级文物保护单位，出土了世界上最早的独木舟，把浙江文明史前推到5000年前。()

在《对数的概念》一课教学中，根据情况回答下列问题：对本课教学进行学情分析．

根据我国宪法规定，下列选项中哪一种情况不是公民获得物质帮助权的条件?()

有两种溶液，甲溶液的酒精浓度为15％，盐浓度为10％，乙溶液的酒精浓度为45％，盐浓度为5％。现有甲溶液1千克，那么需要多少千克乙溶液，将它与甲溶液混合后所得的溶液的酒精浓度是盐浓度的3倍?

下面关于实时系统的叙述中，错误的是()。

下面程序的输出结果是【】。PrivateSubForm_Click()i＝0DoUntil0i＝i＋1if i>10thenExitDoLoopPrintiEndSub

设计窗体时，双击窗体上没有控件的地方，打开的窗口是(　　)。

下面程序的输出结果是【】。PrivateSubForm_Click()i＝0DoUntil0i＝i＋1if　i>10thenExitDoLoopPrintiEndSub