首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Timer1_Timer() Private Sub Form_Load()
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Timer1_Timer() Private Sub Form_Load()
admin
2017-04-25
43
问题
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码:
Dim flag As Boolean Private Sub Timer1_Timer()
Private Sub Form_Load() If flag Then
flag=True Shapel.Height=Shapel.Height*2
Timer1.Enabled=True Shapel.Width=Shapel.Width*2
Timer1.Interval=1000 Else
End Sub Shapel.Height=Shapel.Height*0.5
Shapel.Width=Shapel.Width*0.5
End If
flag=Not flag
End Sub
执行程序所产生的效果是
选项
A、Shapel的尺寸在缩小到原来一半和恢复原状这2种状态间切换,每秒切换一次
B、Shapel的尺寸在扩大到原来2倍和恢复原状这2种状态间切换,每秒切换一次
C、Shapel的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换,每秒切换一次
D、Shapel的尺寸会不断扩大
答案
B
解析
在计时器事件中会判断窗体级变量flag的值,如果为真则形状尺寸扩大一倍,否则缩小到一半。由于第一次开始计时器事件的时候flag的值为True,所以首先会将形状扩大一倍,然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://kaotiyun.com/show/VFGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
把“VisualBasic程序设计”添加到列表框lstBooks的语句为______。
执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是()。
当文本框ScrollBars属性设置了非零值,却没有效果,原因是()。
执行以下程序段后,变量c$的值为______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(d$,12)
下列可以打开立即窗口的操作是______。
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)....EndSub若焦点位于文本框中,则能够触发KeyPres
能够获得一个文本框中被选取文本的内容的属性是______。
下列关于For…Next语句的说法正确的是()。
下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数,打印其中是7的倍数的数,并求它们的总和,请填空。SubTOF()RandomizeDimSAsDoubleDima(10
随机试题
男性,50岁,诊断为风湿性心脏病二尖瓣重度狭窄,其典型的症状应该是
A.前后位B.后前位C.左侧位D.右侧位E.右后斜位被检查者前面紧贴IR,身体矢状面与IR垂直
( )是指业主将工程项目的任务分别发包给多个承包商,并分别与各承包商签订合同。
某堤坝工程项目,甲、乙双方签订了承包合同。乙方编制的施工方案和进度计划已获监理工程师批准。该工程的基坑开挖土方量为4500m3,假设直接费单价为4.2元/m2,综合费率为直接费的20%。该基坑施工方案规定:土方工程采用租赁一台斗容量为1m3的反铲挖掘机施工
按照《担保法》的规定,可以作为保证人的是()。
某企业目前有两个备选项目,相关资料如下,资料一:已知甲投资项目投资期投入全部原始投资,其累计各年现金净流量如表所示:资料二:乙项目需要在建设起点一次投入固定资产投资200万元,无形资产投资25万元。投资期为0,营业期5年,预期残值为0,预计与税
中国共产党诞生于(),这是中国历史上开天辟地的大事。
左边给定的是纸盒的外表面,下列哪一项能由它折叠而成?
在Word中,能将光标移动到下一页顶端的快捷键为______。
【B1】【B11】
最新回复
(
0
)