首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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-08-28
21
问题
窗体上有一个名称为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/S2Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6
以下关系表达式中,其值为False的是______。
以下能够触发文本框Change事件的操作是______。
下列哪条语句是错的______。
下列四个关于DoEvents语句的叙述中,正确的是______。
如果在“立即”窗口中执行以下操作:a=8<CR>(<CR>是回车键,下同)b=9<CR>Printa<b<CR>则输出的结果是______。
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后,单击命令按钮,输出的结果是____
有弹出式菜单的结构如下表,程序运行时,单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是()。
随机试题
OneafternoonIwassittingatmyfavoritetableinarestaurant,waitingforthefoodIhadordered.SuddenlyI【C1】________that
患者张某,男性,70岁。症见心胸憋闷疼痛,心悸气短,畏寒自汗,四肢欠温,伴有双下肢水肿,喘促,舌质淡胖,边有齿痕,苔白腻,脉沉细或沉迟。其治疗应首选的方剂是
医学伦理学的研究内容不包括下列哪项
根据刑事诉讼法的规定,下列关于审判监督程序的说法正确的是:
下列关于税收规范性文件的表述,正确的有()。
旅行社对保险公司请求赔偿,自其知道保险事故发生之日起1年内不行使而消灭。()
下列()不属于采购成本。
11月8日上午,国防科技工业局首次公布了嫦娥二号卫星传回的嫦娥三号预选着陆区——月球洪湾地区的局部影像图,它是一张黑白照片,成像时间为10月28日18时,是卫星在距离月面18.7公里地方拍摄的,摄像图的传回,标志着嫦娥二号任务所确定的六个工作目标已经全部完
设f(x)为[一a,a]上的连续偶函数,且f(x)>0,令F(x)=∫-aa|x-t|f(t)dt当x取何值时,F(x)取最小值.
Wemadeplansforavisit,but______difficultieswithcarpreventedit.
最新回复
(
0
)