首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single, flag As Integer Private Sub Form_Load()
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single, flag As Integer Private Sub Form_Load()
admin
2015-10-23
28
问题
窗体上有一个名称为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://jikaoti.com/ti/kiJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序段的输出结果是______。num=0Whilenum<=2nam=hum+1WendPrintnam
为同一种对象设置不同的属性,可以使一种对象具有不同的外观和不同的______。
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为()。
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,错误的是()。
目录列表框的Path属性的作用是()。
在VisualBasic的立即窗口内输入以下语句X=97?Chr$(X)在窗口中显示的结果是【】。
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组说法错误的是
下列不能打开菜单编辑器的操作是()。
随机试题
在面向对象方法中,不属于“对象”基本特点的是()。
自汗、盗汗并见,其病机是
下列事项中,属于财政部门对各单位实施监督的事项有()。
净资产是客户总资产减去负债总额后的余额,是客户真正拥有的财富价值,以下有关客户净资产的说法错误的是( )。
2009年初,某省统计局向全省纺织企业布置了《纺织企业统计年报》,报送报表的期限是2009年2月20H。经查,某纺织公司报表中的职工工资数据严重低于实际情况,省统计局将报表退回,要求审核后重新填报,该公司置之不理。之后,省统计局又发出了《统计报表催报通知
下列我国古代园林中,分别为皇家园林和私家园林的是()。
如果一个瓶子里的东西可以被安全地喝下,那么这个瓶子就不会被标为“毒品”,所以,既然一个瓶子没被标为“毒品”,那么它里面的东西就可以被安全地喝下。以下除了哪项外,都犯了与上述论证同样的错误?
在10Base-F以太网中,使用的传输介质是(46),传输的最大距离为(47)。
下列属于声卡中主音频处理芯片功能的是______。 Ⅰ) 实现三维音效处理的运算和加速 Ⅱ) MIDI波表合成引擎 Ⅲ) 完成数字声音的编码、解码和编辑操作 Ⅳ) 放大声音信号
Completethesentencesbelow.ChooseNOMORETHANTWOWORDSfromthepassageforeachanswer.Writeyouranswersinboxes9-13o
最新回复
(
0
)