首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load() r=S
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load() r=S
admin
2016-06-23
90
问题
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码:
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<=100Then
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/8vLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
执行以下Commaand1的Click事件过程在窗体上显示()。OptionBase0PrinvateSubCommand1_Clcik()Dimaa=Array("a","b","C","d","e","
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() x=-5 IfSgn(x)Then y=Sgn(x^2) Else y=S
对象的属性是指______。
设用复制、粘贴的力怯建立了一个命令安钮数组Command1,以下列该数组说法错误的是
有如下函数过程:Functiongys(ByValxAsInteger,ByValyAsInteger)AsInteger DoWhileY<#0 preminder=x/y x=Y
程序设计语言的基本成分是数据成分、运算成分、控制成分和()。
如果要在程序代码中为图片框动态加载和清除图像,可以利用()函数。
为了使图像框适应图片的大小,下列哪个属性设置正确
在Visual:Basic的立即窗口内输入以下语句:X=65<CR>PrintChr$(x)<CR>在窗口中显示的结果是
随机试题
下列关于统计总体的表述,正确的有()
当市场利率低于债券票面利率时,分期付息到期还本债券的发行方式是()
SupposewebuiltarobottoexploretheplanetMars.Weprovidetherobotwithseeingdetectorstokeepitawayfromdanger.It
A.杂音不传导B.杂音向左腋下和左肩胛下区传导C.杂音向颈动脉、胸骨左下缘传导D.杂音向胸骨左缘传导E.杂音向心尖区传导主动脉瓣狭窄
与普通CT相比较,关于微型CT扫描仪特点的叙述,错误的是
对原生环境描述不正确的是
根管预备时,前牙的工作长度具体指
经过氢化的植物油及其分离品()
经办行于每年9月底前,统计汇总上一年度实际发放的国家助学贷款金额和违约率,经合作高校确认后上报分行,分行汇总后在()工作日内上报总行,总行提交全国学牛贷款管理中心。
分析东欧剧变的原因与教训。
最新回复
(
0
)