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

admin2020-02-27 32

问题窗体上有一个名称为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全国计算机二级

设顺序表的长度为16，对该表进行简单插入排序。在最坏情况下需要的比较次数为()。

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

已知图片框Picturel中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是()。

为使文本框具有初始值“VB”，在设计阶段正确的操作是()。

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

执行语句DimX，YAsInteger后，()。

软件测试用例包括()。

窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：PrivateSubOptionl_Click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中，正确的

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

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

某射手命中率为．他独立地向目标射击4次，则至少命中一次的概率为________．

《反垄断法》规定的垄断协议适用除外的情形包括()。

有一些寄生虫以某些脊椎动物为其最适宜的天然宿主，人较不敏感，人与动物之间可以互传，但由动物传给人为主要流向，习惯上称这类疾病为

成釉细胞瘤为“临界瘤”的主要原因是()

女，9岁。水肿1个月。查体：BP135／95mmHg，颜面和四肢明显水肿。实验室检查：尿蛋白(+++)，24小时尿蛋白定量2.5g，血浆清蛋白28g／L，BUN10mmol／L，血补体C30.65g／L。该患儿最可能的诊断是

根据国务院有关部门已经制定发布的工程施工、货物、服务以及机电产品国际招标投标等管理办法的规定，除了《招标投标法》的规定之外，招标文件中的实质性要求和条件还应当包括()。

[2005年，第8题]曲面z=x2-y2在点处的法线方程是()。

在进行沙盘推演测评法的操作时，一般会模拟企业经营()的荣辱成败过程。

Whichofthefollowingmaybethereasonforhumanity’sexploring?Theaerialphotographstakenlastyearindicatethat______.

Therewerefivehundred______atthecollegeentranceexamination.

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

二级VB

NCRE全国计算机二级

设顺序表的长度为16，对该表进行简单插入排序。在最坏情况下需要的比较次数为()。

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

已知图片框Picturel中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是()。

为使文本框具有初始值“VB”，在设计阶段正确的操作是()。

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

执行语句DimX，YAsInteger后，()。

软件测试用例包括()。

窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：PrivateSubOptionl_Click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中，正确的

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

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

某射手命中率为．他独立地向目标射击4次，则至少命中一次的概率为________．

《反垄断法》规定的垄断协议适用除外的情形包括()。

有一些寄生虫以某些脊椎动物为其最适宜的天然宿主，人较不敏感，人与动物之间可以互传，但由动物传给人为主要流向，习惯上称这类疾病为

成釉细胞瘤为“临界瘤”的主要原因是()

女，9岁。水肿1个月。查体：BP135／95mmHg，颜面和四肢明显水肿。实验室检查：尿蛋白(+++)，24小时尿蛋白定量2.5g，血浆清蛋白28g／L，BUN10mmol／L，血补体C30.65g／L。该患儿最可能的诊断是

根据国务院有关部门已经制定发布的工程施工、货物、服务以及机电产品国际招标投标等管理办法的规定，除了《招标投标法》的规定之外，招标文件中的实质性要求和条件还应当包括()。

[2005年，第8题]曲面z=x2-y2在点处的法线方程是()。

在进行沙盘推演测评法的操作时，一般会模拟企业经营()的荣辱成败过程。

Whichofthefollowingmaybethereasonforhumanity’sexploring?Theaerialphotographstakenlastyearindicatethat______.

Therewerefivehundred______atthecollegeentranceexamination.

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