首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Timer l Time
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Timer l Time
admin
2019-06-11
49
问题
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码:
Dim r As Single,flag As Integer Private Sub Timer l Timer()
Private Sub Form Load()If flag=0 Then
r=Shapel.WidthShapel.Width=Shapel.Width.10
Timer 1.Enabled:TrueIf Shape 1.Width<=1 00
选项
A、圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复
B、圆一直在缩小
C、圆每隔0.5秒向右移动一次
D、圆每隔1秒向下移动一次
答案
A
解析
本题在计时器的Timer事件中,如果flag为0,让圆的宽度逐渐减小,一直到100以下,将flag置为1:如果nag为1,让圆的宽度逐渐增大,一直到大于原来的宽度r则将flag置为0;则圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复。
转载请注明原文地址:https://kaotiyun.com/show/6yUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger:StaticsAsIntegerForn=1To3s=s+nNextPrintsEndSub程序运行后,第三次单击命令按
编写如下程序:PrivateSubCommand1_Click()Functionproc(iAsInteger)DimmAsInteger,nAsIntegerDimaAsInteger,StaticbAsIn
设有如下关系表:则下列操作中正确的是
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
下面描述中不属于数据库系统特点的是
下面关于命令按钮的叙述中错误的是
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,iAsIntegerRandomizeFori=1To10a(i)=I
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
随机试题
某企业购买了一台进口计量器具。企业要求供货商提供检定证书。供货商提供了某省级法定计量检定机构出具的检定证书复印件,供货商称原件由他们保存。企业在对这台进口计量器具进行验收时,发现该设备工作不正常,出具的数据严重超差,是一台不合格的设备。企业不明白,为什么对
原子吸收法测酱油中的微量的铅时,样品经消化后,将铅用MIBK萃取至有机相进行富集分离,导入原子化器后进行测定。
A.Zollinger‐Ellison综合征B.P‐J综合征C.Garden综合征D.Budd‐Chiari综合征一般不会引起癌变的是:
A前清蛋白B转铁蛋白C结合珠蛋白Dα1-抗胰蛋白酶E低密度脂蛋白胎儿呼吸窘迫征的患儿血浆中浓度明显降低的是
M受体阻断药不包括()。
对工作周期长、专业复杂或比较特殊、投资或工程量较大的工程项目适宜采用()。
下列有关企业进行库存现金盘点清查时的做法,正确的是( )。
甲、乙因买卖货物发生合同纠纷,甲向法庭提出诉讼。开庭审理时,乙提出双方签有仲裁协议,应通过仲裁方式解决。对该案件的下列处理方式中,符合法律规定的是()。
俗话说“麻雀虽小,五脏俱全”,所以人们在进行调查研究工作时,应该抓住典型,学会“解剖麻雀”,达到举一反三、“窥一斑而知全豹”的效果。这体现的哲学原理有
Li-Fi,analternativetoWi-Fithattransmitsdatausingthespectrumofvisiblelight,hasachievedanewbreakthrough,withUK
最新回复
(
0
)