首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shapel并显示为圆的形状控件(其width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
窗体上有一个名称为Shapel并显示为圆的形状控件(其width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
admin
2017-04-25
29
问题
窗体上有一个名称为Shapel并显示为圆的形状控件(其width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form Load()
r=Shapel.Width
Timer1.Enabled=True
Timer1.Interval=500
End Sub
Private Sub Timer1_Timer()
Ifflag=0 Then
Shapel.Width=Shapel.Width-10
IfShapel.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/mLGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerX=2
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsIntegerDOWhile…y<>0reminder=xModyx=yy=reminderLoopFun
计时器事件之间的间隔通过【】属性设置。
数据模型按不同的应用层次分为三种类型,它们是______数据模型、逻辑数据模型和物理数据模型。
单击命令按钮时,下列程序代码的执行结果为______。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/10EndSubPrivateSubConunan
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每隔一秒钟在文本框中显示一次当前的时间。程序为:PrivateSubTimer1.______()TxtTime.text=Time
完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是______。
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
下列叙述中错误的是()。
表示滚动条控件取值范围最大值的属性是()。
随机试题
A、Theywanttoreducecosts.B、Studentsthereneverwastefood.C、Theywanttoreducefoodwaste.D、Theuniversitywantstobuy
腺垂体分泌的促激素为
下列关于急性胆囊炎的临床特点描述错误的是
建筑安装工程费中的安全生产费包括()。
目前,我国的行政单位会计大部分业务采用权责发生制。()
下列对气质的描述错误的是()。
企业盘点现金,发现现金溢余,经查明原因,属于应支付给其他单位和个人的,应记入“应付账款”账户。()
A、Quitewell.B、I’msohappy.C、Theyaresokind.A这里选项[A]Quitewell.符合问答逻辑。
Stressisthe"wearandtear"ourbodiesexperienceaswe【B1】______toourchangingenvironment.Asa【B2】______influence,stres
Millionsofschool-leaversintherichworldareabouttobidatearfulgoodbyetotheirparentsandstartanewlifeatunivers
最新回复
(
0
)