首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
26
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFunl()E
以下关于过程及过程参数的描述中,错误的是
以下关于函数过程的叙述中,正确的是
假定有如下事件过程:PrivateSubForm_Click()DimXAsInteger,nAsIntegerx=1:n=0DoWhilex
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open”c:\n.
能够产生1到50之间(含1和50)随机整数的表达式是
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是
假定有以下循环结构DoUntil条件表达式循环体Loop则以下正确的描述是
在软件设计中不使用的工具是
下列运算符中,优先级别最高的是()。
随机试题
四分位数间距主要用于()
不符合电击伤特点的是()
吸收
如图5.4—20所示的岩石边坡,开挖后发现坡体内有软弱夹层形成的滑面AC,倾角β=42°,滑面的内摩擦角φ=18°。滑体ABC处于临界稳定状态,其自重为450kN/m。若要使边坡的稳定安全系数达到1.5,每延米所加锚索的拉力P最接近下列哪个选项?(锚索下倾
2002年12月,大华汽车贸易公司与东方公司订立了一份汽车买卖合同。约定:大华汽车贸易公司于2003年2月向东方公司交付新汽车一辆,价款22万元,并约定由东方公司向大华汽车贸易公司付30%定金。合同订立10天内,东方公司依约向大华汽车贸易公司付定金6600
首次公开发行公司在发行前,必须以( )的方式,向投资者进行公司推介。
陈某向王某购买货物,价款为10万元,合同签订后,陈某向王某支付了2万元作为定金。交货期限届满后,因为第三方供货迟延,致使王某只向陈某交付了一半的货物,陈某因此主张适用定金罚则,要求王某承担定金责任,王某不同意。下列关于是否适用定金罚则的表述中,符合合同法律
3名医生和6名护士被分配到3所学校为学生体检,每校分配1名医生和2名护士,不同的分配方法共有()种.
OnSeptember7,2001,a68-year-oldwomaninStrasbourg,France,hadhergallbladder(胆囊)removedbysurgeonsoperating,viacomp
PublicViewsontheAnti-TerrorismAct(Canada)A)ThisreportispartoftheongoingeffortsundertakenbytheResearchandSt
最新回复
(
0
)