首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
76
问题
窗体上有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全国计算机二级
相关试题推荐
设有如下程序段: a$=“BejingShanghai” b$=Mid(a$,InStr(a$,“g”)+1) 执行上面的程序段后,变量b$的值为 【】&
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加
能够将文本框控件隐藏起来的属性是【】。
获取文本框中被选取的文本内容的属性是()。
当用【】方式打开文件时,如果对文件进行写操作,则写入的数据附加到原来文件的后面。
如果在窗体上有命令按钮OK,在代码编辑窗口行与之对应的CmdOkClick()事件,则命令按钮控件的名称属性和Caption属性分别为______。
在程序执行闲置循环过程中,程序的控制权被系统占用。若要获得控制权,可以使用一个语句,这样用户可以在获得系统的控制权后进行其他操作,这个语句是【】。
窗体上有1个名称为Textl的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timerl的事件过程如下:PrivateSubTimerlTliner()StaticflagAs
在窗体中放置控件,对该控件的操作错误的是()。
关系模型的数据操纵即是建立在关系上的数据操纵,一般有【】、增加、删除和修改四种操作。
随机试题
行政组织编制总体设计依据有()
反转录过程中可用作复制引物的是
下列金融工具中,属于衍生金融工具的是()。
阶级矛盾和统治阶级内部矛盾的不可调和性,是警察产生的阶级条件。( )
()应当标注签发人姓名。
有如下程序:#inc1ude<iostream>usingnamespacestd;voidfun(int&x,inty){intt=x;x=y;y=t;}intmain(){inta
IwasmostsurprisedtohearSusan’smarriage.
WiththeUSeconomyslowingdown,layoffsareeverywhere.Noindustryisspared.Ifyouenduphavingtostartover,inaddition
A、AfricansaretaughttobedependentontheaidfromtheWest.B、Localmarketsareweakenedeverywherebytheaid.C、Hugeburea
A、Ithasbeenfinished.B、Itwillbepublishedthismonth.C、Itcontainsmanydetectivestories.D、Itranksthetopofbestselle
最新回复
(
0
)