首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2020-04-18
60
问题
窗体上有一个名称为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=0Then
Shape1.Width=Shape1.Width-10
If Shape1.Width<=100Then
flag=1
End If
Else
Shape1.Width=Shape1.Width+10
If Shape1.Width>=rThen
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/7eTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()Dima(10)AsInterger,p(3)AsIntergerK=5
在窗体上有一个名称为CDl的通用对话框和一个名称为Commandl的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“保存”,缺省文件名为“ABC”,在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是()。
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
以下能够设置控件焦点的方法是
设窗体文件中有下面的事件过程:PrivateSubCommandl_Click()Dims:a%=100:PrintaEndSub其中变量a和s的数据类型分别是
软件设计中模块划分应遵循的准则是
某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
下列数据结构中,能用二分法进行查找的是
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
设子程序过程定义的首部为:PublicSubS(XAsInteger,YAsSingle)则以下正确的调用形式为
随机试题
A、发生在颞下颌关节上腔的滑动B、发生在颞下颌关节上腔的转动C、发生在颞下颌关节下腔的滑动D、发生在颞下颌关节下腔的转动E、下腔的转动与上腔的滑动相结合的混合运动小开颌运动为
A.工作指导书B.操作指导书C.过程指导书D.检验指导书针对某个工序的指导文件,在制造业中往往称为工艺文件
患者,男性,58岁,右上后牙自觉牙齿浮出、伸长,咬合疼痛4天。口服消炎药治疗无效。检查:CI-S:1,近中邻面可见银汞充填物,牙齿松动(+),叩痛(+++),牙周检查仅近中牙周袋窄而深,达7mm。X线片示:近中邻面可见银汞充填物达牙髓腔,但无根充治疗,根尖
A.阴阳偏盛B.阴阳偏衰C.阴阳互损D.阴阳离决E.阴阳格拒形成寒热真假的病机是()
城市土地使用的调查所针对的范围是()。
关于凭证审核操作,下列说法中错误的是()。
教师要有健康的心理状态,应当做到()
在资产阶级推翻封建专制政权成为掌握政权的统治阶级后,监狱的基本原则是()。
世界遗产被称为“地球的名片”,它们既是古代文明史的__________,又是一个国家、一个城市现代文明的标志。而近些年,不少地区“杀鸡取卵、竭泽而渔”式的申遗、开发,却让我们付出__________代价。这种方式的背后,__________的是个别地方政府
Thevisionofthatbigblackcarhittingthesidewalkafewfeetfromuswillneverbe_____frommymemory.
最新回复
(
0
)