首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flagAs Boolean Private Sub Form_Load() flag=True Timer1.Enabled=True Time
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flagAs Boolean Private Sub Form_Load() flag=True Timer1.Enabled=True Time
admin
2017-11-23
70
问题
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码:
Dim flagAs Boolean
Private Sub Form_Load()
flag=True
Timer1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timer1_Timer()
If flag Then
Shape1.Height=Shape1.Height*2
Shape1.Width=Shape1.Width*2
Else
Shape1.Height=Shape1.Height*0.5
Shape1.Width=Shape1.Width*0.5
End If
flag=Not flag
End Sub
执行程序所产生的效果是
选项
A、Shape1的尺寸在缩小到原来一半和恢复原状这2种状态间切换,每秒切换一次
B、Shape1的尺寸在扩大到原来2倍和恢复原状这2种状态间切换,每秒切换一次
C、Shape1的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换,每秒切换一次
D、Shape1的尺寸会不断扩大
答案
B
解析
在计时器事件中会判断窗体级变量nag的值,如果为真则形状尺寸扩大一倍,否则缩小到一半。由于第一次开始计时器事件的时候nag的值为True,所以首先会将形状扩大一倍,然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://kaotiyun.com/show/pAGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为
在窗体上有一个命令按钮,然后编如下事件过程:FunctionSR(xAsDouble)AsDouble SelectCaseSgn(x) Case1 SR=Sqr(x) ExitFunction Case
假定有如下的命令按扭(名称为Command1)事件过程:PrivateSubCommand1_Click()x=InputBox(“输入:”,“输入整数”)MsgBox“输入的数据是:”,,“输入数据:”+xEn
以下哪个关键字声明的局部变量在整个程序运行中其值一直保留
设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能够表示当前被选中的列表项内容的是______。
下列关于文件的叙述中,错误的是()。
在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操
若要求从文本框中输入密码时在文本框中只显示“*”号,则应当在此文本框的属性窗口中设置
在窗体中放置控件,对该控件的操作错误的是()。
随机试题
电力系统对继电保护装置的基本要求是什么?
皮质性白内障初发期晶状体皮质内出现__________、__________和__________。
COPD晚期的病理及病理生理改变是
茵陈汤证的治法是
监理工程师对材料质量控制的内容有( )。
Damagestothegoodsarecausedbyheavyweather()transit.
美国芝加哥大学教授舒尔茨在《人力资本投资》这本书里,提出的核心观点可概括为:“有技能的人的资源是一切资源中最为重要的资源,人力资本收益大于物力资本投资的收益。”这一观点深刻地说明着()。
一个国家如果能有效率地运作经济,就一定能创造财富而变得富有;而这样的一个国家想保持政治稳定,它所创造的财富必须得到公正的分配;而财富的公正分配将结束经济风险;但是,风险的存在正是经济有效率运作不可或缺的先决条件。从这个经济学家的上述观点,可以得出以下哪项结
Wearelookingforwardtotheopportunityofdoingbusinesswithyou,andmeanwhileweassureyouthatyourorderswillreceive
Theyopenedanewstoreinourcity,butnotuntillastweek______it.
最新回复
(
0
)