首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
29
问题
窗体上有一个名称为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://jikaoti.com/ti/Fux0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndtypeDimStudent(5)AsTem
在软件开发中,需求分析阶段产生的主要文档是()。
请根据以下各小题的要求设计Visual.Basic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组,名称为cmdl,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(a)所示
下面关于菜单的叙述中正确的是
在窗体上画一命令按钮和一文本框,其名称分别为Commandl和Textl,然后编写如下程序:FunctionFun(xAsInteger,YAsInteger)AsIntegerFun=IIf(x
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintText1.Text;End
以下叙述中错误的是
设数据元素的集合D={1,2,3,4,5},则满足下列关系R的数据结构中为线性结构的是
设子程序过程定义的首部为:PublicSubS(XAsInteger,YAsSingle)则以下正确的调用形式为()。
随机试题
已知函数y=y(x)在任意点x处的增量,且当Δx→0时,α是Δx的高阶无穷小,y(0)=π,则y(1)=().
关于脂肪变性,下列描述正确的是
A.肿瘤压迫膈神经B.肿瘤压迫上腔静脉C.肿瘤压迫臂丛神D.肿瘤压迫颈交感神经E.肿瘤压迫喉返神经肺癌病人发生声音嘶哑是由于()
毛果芸香碱的作用机制是
王某以个人名义向张某独资设立的飞跃百货有限公司借款10万元,借期1年。不久,王某与李某登记结婚,将上述借款全部用于婚房的装修。婚后半年,王某与李某协议离婚,未对债务的偿还作出约定。下列哪一选项是正确的?
某风沙治理工程,原来是一片典型的城乡结合部地区,需要进行大规模的绿化隔离建设,原先的居民迁入了楼房,实现3.08km2的绿化,绿化隔离地区总面积为240km2。道路、河流两侧将建设各200m宽的绿化带,其中内侧的20~50m将成为永久绿化带。在其外侧则发展
抓斗式挖泥船开挖中等密实砂时宜选用()。
下列加点字的注音全都正确的一组是:
U.S.jobgrowthwassurprisinglystrongin2018,butdon’texpectthattohappenagainthisyear,witheconomicheadwindsintens
A、Theytendtoforget.B、Itiseasytostealfromthem.C、Theirhusbands’relativesalwaysaskhertodividethethingswiththe
最新回复
(
0
)