首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.En
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.En
admin
2015-06-30
65
问题
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:
Dim flag As 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
解析
Form_Load 过程中设定timer事件定时触发,定时时间为1秒;在Timer1_Timer过程中,Shape1形状的尺寸在扩大到原来2倍和恢复原状,然后退出。下一次timer事件触发时继续这个过程。因此,选B)。
转载请注明原文地址:https://kaotiyun.com/show/tMQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
表达式"12345"<>"12345"&"ABC"的值是______。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是()。PrivateSubForm_Cli
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()n=6f=1s=0Fori=1Ton
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容.以下可以实现上述操作的事件过程是______。
在VB中,过程共有三种,它们是()
结构程序设计的3种结构是______。
假定有下面的程序段:Fori=1To3Forj=1ToiFork=jTo3Print"i=";i,"j=";j,"k=";kNext
用下面的语句所定义的数组的元素个数是()Dimarr(3To5,—2To2)
使用PublicConst语句声明一个全局的符号常量时,该语句应放在______。
随机试题
意识对物质具有能动反作用,它可以通过指导实践()。
强烈而短促的情绪状态被称为()
A 抗生素治疗 B 抗毒素治疗 C 两者均有 D 两者均无白喉:()
属于毒性药品的是()
在进行是继续使用旧设备还是购置新设备决策时,如果这两个方案的未来使用年限不同,且只有现金流出,没有适当的现金流入。则合适的评价方法是()。
行政机关作出的准予许可决定,应当限制性公开,即仅申请人及有利害关系的第三人有权查阅。()
李大钊说,十月革命开始的,“是世界革命的新纪元,是人类觉醒的新纪元。我们在这黑暗的中国,死寂的北京,也仿佛分得那曙光的一线,好比在沉沉深夜中得一小小的明星,照见新人生的道路”。十月革命是一个具有划时代意义的世界性的历史事件,它推动中国的先进分子从资产阶级民
宽带城域网方案通常采用核心交换层、汇聚层与______的3层结构模式。
设计一个表单名和文件名均为form_item的表单,其中,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题设为“使用零件情况统计”。表单中有一个组合框(CoHlbo1)、一个文本框Tlextl)和两个命令按钮“统计”(Command1)和“退出”
InWashingtonthisweek,TreasurySecretaryGeithnerannouncednewstepstorebuildtrustinfinancialmarketsandrestartthef
最新回复
(
0
)