首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
49
问题
窗体上有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全国计算机二级
相关试题推荐
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:DimSaveAllAsStringPrivateSubCommandl_C1iCk()Text1.Text=Left(UCa
软件生命周期一般可分为以下阶段;问题定义、可行性研究、______、设计、编码、测试、运行与维护。
下面的控件可作为其他控件容器的是
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为“NewFile”的事件过程是______。
假设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是_____
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fork=1To4S=s+a(k)N
在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示“打开”对话框,要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件,则对通用对话框的Filter属性的正确设置是
模块级变量的声明关键字是Dim或______。
随机试题
关于代理,下列说法错误的是()。
张某被判处无期徒刑,王某被判处拘役,李某被判处有期徒刑10年,赵某被判处死刑缓期2年执行。在符合法律规定的其他条件下,对( )可以依法暂予监外执行。
个人化教学系统的提出者是_________。
雷雨之后空气变得清新,是因为:
把下面的六个图形分为两类,使每一类图形都有各自的共同特征或规律,分类正确的一项是:
简述反应时加因素法的原理。
Wheredidtheboypainthispictures?
Thereareover6,000differentcomputerandonlinegamesintheworldnow.Asegmentofthemareconsideredtobebotheducation
MigrationandBusinessI.MigrationMap—sharplinesdivideuptheworldRealworld-—no(1)______betweenlandsII.Twochangesof
Nostudentissupposed(spend)______somuchtimesurfingontheInternet.
最新回复
(
0
)