首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序 Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Pri
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序 Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Pri
admin
2018-09-19
19
问题
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Shape1.Shape = 1 Then
Shape1.Shape = 3
Else
Shape1.Shape = 1
End If
End Sub
运行程序,则看到的结果是
选项
A、交替显示正方形和圆形,每秒交替一次
B、交替显示矩形和椭圆形,每秒交替一次
C、显示正方形,每秒闪烁一次
D、显示椭圆形,每秒移动一次
答案
A
解析
Interval属性用来设置计时器事件之间所间隔的毫秒数(ms),每隔1000毫秒即每隔1秒产生一个Timer事件。当Shape属性设置形状控件的形状。在Timer事件中,如果形状控件的形状为正方形(即Shape为1),形状控件形状变为圆形(即Shape为3);故选项A正确,其他选项均错误。
转载请注明原文地址:https://kaotiyun.com/show/Z9Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:DimssAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfChr(KeyAsc
以下关于窗体的叙述中错误的是( )。
下面的程序是利用公式:π=4-4/3+4/5-4/7+4/9-4/11+…计算机π的近似值PvivateSubCommand1_Click() DimPIAsDouble,xAsDouble,kAsLong,signAsI
设窗体上有2个直线控件Line1和Line2,若使两条直线相连接,需满足的条件是( )。
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为‘Textl,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
设有以下程序:PrivateSubForm_Click() x=50 Fori=1To4 y=InputBox("请输入一个整数") y=Val(y) IfyMod5=0Then a=a+y
以下关系表达式中,其值为True的是( )。
为了调整图像框的大小以与其中的图形相适应,必须把它的Stretch属性设置为( )。
随机试题
下列关于关系数据库中数据表的描述,正确的是________。
在公共汽车上,司机和售票员的工作流程如下图所示:为保证乘客的安全,司机和售票员应密切配合,协调工作。请用PV操作来实现司机与售票员之间的同步。
目前我国国民经济的主导产业是()
患者,女,28岁。初产妇,现临产,产程中预防产力异常的护理措施错误的是
A.霍乱B.肺结核C.狂犬病D.艾滋病E.麻风病属于甲类传染病的是
男性,42岁,间断上腹部不适3年,胃镜提示:重度萎缩性胃炎;病理检查:萎缩性胃炎伴肠化,W-S染色阳性该患者治疗药物应选择
《物业管理条例》在立法过程中,主要遵循()。
物质构成的奥秘部分内容旨在帮助学生用微粒的观念去学习化学,通过观察、想象、类比、模型化的方法使学生初步理解化学现象的本质,其教学特点包括()。①宏观到微观②定性到定量③实验与理解
资产评估中的价值类型选择与许多因素密切相关,其中包括()。
Ayoungster’ssocialdevelopmenthasaprofoundeffectonhisacademicprogress.Kidswhohavetroublegettingalongwiththeir
最新回复
(
0
)