首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
55
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
下列程序代码段中,在单击命令按钮调用SelMid函数时,其运行结果为()。PrivateFunctionSelMid(aStrAsString)AsStringDimtempAsString,sLen
从键盘上输入一个浮点数asmgle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asmgle=InputBox("请输入一个浮点数:")str1$=Str$(asingle
运行下面的程序,单击命令按钮,输出结果为()。FunctionF(aAsInteger)b=0:Staticcb=b+1:c=c+1:F=a+b+cEndFunctionPfivateS
设R是一个2元关系,有3个元组,S是一个3元关系,有3个元组。如T=R×S,则T的元组的个数为()。
下列表达式中不能判断x的是否为偶数的是
如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项
设有如下变量声明语句:Dima,bAsBolean则下面叙述中正确的是
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
设数据元素的集合D={1,2,3,4,5},则满足下列关系R的数据结构中为线性结构的是
下列数据结构中,能用二分法进行查找的是
随机试题
快捷方式是到本计算机或网络上任何可访问的项目的连接,快捷方式()
Themanaskingforaliftwas______.Mr.Green,wasworriedbecause______.
可能引起母体凝血机制障碍的流产是
乌药的功效是()川楝子的功效是()
关于因果关系,下列哪些选项是正确的?
商用房贷款的合作机构风险主要包括()。
某种商品原价25元,每半天可销售20个。现知道每降价1元,销量即增加5个。某日上午将该商品打八折,下午在上午价格的基础上再打八折出售,问其全天销售额为多少元?
数据库具有()、最小的冗余度和较高的程序与数据独立性。
TransportationFormanyyearsinthedesert,camelsusedtobetheonlyformoftransportation(运输).Beforethe(51)ofmoderntrai
Americans’ParadoxicalBehaviorOneofthegeneralitiesmostoftennotedaboutAmericansisthatwearearestless,adissati
最新回复
(
0
)