首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form_Load() Shape1.Top=0 Timer1.Inter
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form_Load() Shape1.Top=0 Timer1.Inter
admin
2018-07-11
73
问题
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下:
Private Sub Form_Load()
Shape1.Top=0
Timer1.Interval=100
End Sub
Private Sub Timer1_Timer()
Static x As Integer
Shape1.Top:Shape1.Top+100
x=x+1
If x Mod 10=0 Then
Shape1.Top=0
End If
End sub
以下关于上述程序的叙述中,错误的是( )。
选项
A、每执行一次Timer1_Timer事件过程,x的值都在原有基础上增加1
B、Shape1每移动10次回到起点,重新开始
C、窗体上的Shape1由下而上移动
D、Shape1每次移动100
答案
C
解析
题目中变量x定义为static,即每次进入Timer事件过程时,x都会保留上次的值,从而实现每执行一次Timen_Timer事件过程x的值都在原有基础上增加1。程序中判断调用Timer事件过程10次后,重置shapel的top值为0,即回到起点。控件shapel的Top属性是距离窗体顶的位置,数值越入距离越远,囚此shapel会由上向下移动。
转载请注明原文地址:https://jikaoti.com/ti/5em0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10:TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1_Timer()ch=C
设有如下程序:PrivateSubForm_Click()num=InputBox("请输入一个实数"):P=InStr(num,".")IfP>0ThenPrintMid(num,P+11ElsePrint"END"
以下叙述中错误的是
对关系S和R进行集合运算,结果中既包含S中的所有元组也包含R中的所有元组,这样的集合运算称为()。
设计窗体时,双击窗体上没有控件的地方,打开的窗口是( )。
如果在列表框List1中没有选中项目,则List1.ListIndex的值为
下面属于系统软件的是
下列说法中,错误的是( )。
以下关于变量的叙述中,错误的是
随机试题
下列人物中,被列宁誉为“中国十一世纪的改革家”的是()
节律不齐的脉有
游离植皮术后护理中不正确的是
以下不属于支气管哮喘急性发作期重度临床表现的是
男性,32岁,Ⅲ度烧伤40%,伤后10天,体温40℃,心率140次/分,呼吸36次/分,创面湿,灶性积脓,创周炎症明显,血白细胞计数20×109/L,血培养无菌生长,该患者诊断为
A市B区绿杨街道办事处位于绿杨路上,办事处刘主任目睹了近期发生在绿杨路上的几起恶性交通事故。通过调研,刘主任向分管工作的张副区长汇报,建议绿杨路上禁止通行混凝土搅拌车和重型工程车。经研究,张副区长认为这一建议或可暂时缓解该路当前交通安全问题,请该办事处代区
在一次英语模拟考试中,某班学生的成绩有80%都集中在20分以下,可以对这种现象做出解释的是()
AnyAmericanwhohasboughtapackofcigarettessincethemid-’60smighthaveseenthehealthwarnings.Itsays,"SURGEONGENER
对关系S和R进行集合运算,结果中既包含S中的所有元组也包含R中的所有元组,这样的集合运算称为()。
Inhisrecentlywrittenautobiography,he______(把自己的成功归功于父母的鼓励).
最新回复
(
0
)