首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True
admin
2019-07-30
49
问题
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:
Dim flag As Boolean
Private Sub Form_Load()
flag=True
Timer1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timer 1_Timer()
If flag Then
Shape1.Height=Shape1.Height*2
Shape1.Width=Shape1.Width*2
Else
Shape 1.Height=Shape 1.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
解析
在计时器事件中会判断窗体级变量flag的值,如果为真则形状尺寸扩大一倍,否则缩小到一半。由于第一次开始计时器事件的时候flag的值为True,所以首先会将形状扩大一倍,然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://kaotiyun.com/show/clUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3—36所示。程序功能:(1)考生文件夹下in5.dat
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文本框,名称分别为Text1、Text2;一个命令按钮,名称为C1,标题为“确定”;请画两个单选按钮,名称分别为op1、op2,标题分别为“男生”、“女生”:再画两个复选框,名称分别为Ch
某人设计了如下程序用于计算并输出7!(7的阶乘)PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPritetEnd
现有如下一段程序:PrivateSubCommand1_Click()x=UCase(InputBox(”输入:“))SelectCasexCase"A"To"C"Print"考核通过!"
随机试题
顾客资格认定的基本要素:
今邠人恶子弟以货窜名军籍中,杀害人。货:
Word2010中,以下哪种操作可以使在下层的图片移置于上层()
关于ACTH分泌节律,下列哪项描述是错误的
呼伦贝尔市的野生经济植物的代表是()。
下图是利用地理信息系统将某地区一次森林大火时间从T0至T3四个时间的卫星影像加以分析绘制而成的“森林大火燃烧蔓延示意图”。图中右侧的资料是该地区甲、乙、丙、丁、戊区域在T0至T3四个时间的森林燃烧情况。读图完成问题。利用地理信息系统分析“森林大火燃烧
Manywilldoubttobaccoindustryclaimsthatitissharpeningitssciencetoevaluate"healthiercigarettes".Butthat’swhatwi
Buyland,advisedMarkTwain;they’renotmakingitanymore.Infact,landisnotreallyscarce:theentirepopulationofAmeri
下面能正确进行字符串赋值操作的是
TaskOne-Aim•Forquestions13-17,matchtheextractswiththeaims,listedA-H.•Foreachextract,choosetheaimofthewo
最新回复
(
0
)