首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load()
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load()
admin
2020-04-18
18
问题
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form_Load()
r=Shapel.Width
Timerl.Enabled=True
Timerl.Interval=500
End Sub
Private Sub Timer l_Timer()
If nag=0 Then
Shapel.Width=Shapel.Width-10
If Shapel.Width<=100 Then
flag=1
End If
Else
Shapel.Width=Shapel.Width+10
If Shapel.Width>=r Then
flag=0
End If
End If
End Sub
运行程序后产生的结果是
选项
A、圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复
B、圆一直在缩小
C、圆每隔0.5秒向右移动一次
D、圆每隔1秒向下移动一次
答案
A
解析
本题在计时器的Timer事件中,如果flag为0,让圆的宽度逐渐减小,一直到100以下,将flag置为1;如果。flag为1,让圆的宽度逐渐增大,一直到大于原来的宽度r则将flag置为0;则圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复。
转载请注明原文地址:https://kaotiyun.com/show/lMTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是( )。
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommandl_Ctick()DimM(to)AsIntegerFork=1To10M(k)=12一kNe
下列关于栈的叙述中,正确的是
现有表示患者和医疗的关系如下:P(P#,Pn,Pg,By),其中P#为患者编号,Pn为患者姓名,Pg为性别,By为出生日期,Tr(P#,D#,Date,Rt),其中D#为医生编号,Date为就诊日期,Rt为诊断结果。检索在1号医生处就诊的病人姓名的表达式是
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click() Dimn%
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
为了使通用对话框弹出的窗口标题显示为“文件操作”,应对通用对话框控件设置的属性是()。
对于计时器控件,下列叙述错误的是
软件工程的理论和技术性研究的内容主要包括软件开发技术和()。
随机试题
道德
入侵检测的目的是()
下列国家中属于英美法系的是()
1.近些年来,用传统的纸笔写信的人越来越少,取而代之的是电子邮件。2.有人认为这种新的交流方式使人与人之间更加疏远了,但也有人认为正好相反。3.你对此的看法是……
患者男,59岁。咳嗽2个月,以干咳为主有午后低热。今天突然咯血500ml入院。止血措施首选
《关于加强农村宅基地管理的意见》(国土资发[2004]234号)规定,农村建设用地整理,要按照()的原则,按规划、有计划、循序渐进、积极稳妥地推进。
下列属于历史文化名城类型的有()。
要约以信件形式做出的,未载明日期的承诺期限自该信件的()开始计算。
遗传学对研究地球上的生命起源、医学、农业动植物和微生物育种,以至人类学和社会学等方面都有重要的指导意义。它是在动植物育种的基础上发展起来的,必然又可以回过来指导动植物育种的实践。抗菌素工业的兴起促进了微生物遗传学的发展,微生物遗传学的发展又推动抗菌素工业及
什么是产业内贸易?如何测度产业内贸易?[东北财经大学2011国际商务硕士;中国人民大学2012国际商务硕士]
最新回复
(
0
)