首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form_Load() Shape1.Top=0 Timer1.Interval=100
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form_Load() Shape1.Top=0 Timer1.Interval=100
admin
2020-07-22
29
问题
窗体上有一个名称为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都会保留上次的值,从而实现每执行一次Timer1_Timer事件过程x的值都在原有基础上增加1。程序中判断调用Timer事件过程10次后,重置Shape1的top值为0,即回到起点。控件Shape1的Top属性是距离窗体顶的位置,数值越大距离越远,因此Shape1会由上向下移动。
转载请注明原文地址:https://jikaoti.com/ti/GlS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
现有如下程序:PrivateSubCommand1_Click() s=0 Fori=1To5 s=s+f(5+i) Next PrintsEndSubPublicFunctionf(xAsInteger
以下关于VB文件的叙述中,错误的是()。
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
下列叙述中正确的是( )。
以下叙述中错误的是( )。
有如下函数过程:Functionrl(xAsInteger)AsLongDimSAsLong,iAsIntegerS=0Fori=1Toxs=s+iNextif
下列表达式的值为2123的是()。
下面关于菜单的叙述中正确的是
下面不属于软件设计阶段任务的是
在考生文件夹下的“samp1.accdb”数据库文件中已建立了两个表对象(名为“员工表”和“部门表”)、一个窗体对象(名为“fTest”)和一个宏对象(名为“mTest”)。请按以下要求,按顺序完成对象的各种操作。(1)删除表对象“员工表”的“照
随机试题
A.区域性交感神经切除B.动脉切开取栓术C.动脉内膜剥脱术D.大网膜移植术动脉硬化性闭塞症的治疗是
确诊为输卵管妊娠破裂、出血性休克,应采取的紧急措施是
甲公司2018年计划定向增发5亿元人民币,进入互联网金融行业。公司管理层需要对该行业进行分析,以了解其整体竞争格局。下列选项中,适合甲公司使用的分析工具是()。
实物直观一般比模象直观教学效果好。()
清末,与修订法律馆共同起草《大清民律草案》的机构是()。
When23-year-oldEricAtienzagraduatedfromcollegelastYear,hedidn’thaveajob.Notwantingtogiveuphisapartmentandm
下列句子中,没有歧义的一句是:
论说文:根据下述材料,写一篇600字左右的论说文,题目自拟。中国人一直很讲究一个“度”,常说的“过犹不及”就是这个意思。多了少了都不好,所以说,万事都需有“度”。日常生活中,任性易坏事,急于难求成,心慌择错路,欲速则不达……都是因为没有把握好一个
关于ARM处理器异常中断响应过程中,以下说法正确的是()。
有以下程序:#include<stdio.h>main(){charch=’D’;while(ch>’A’)d{ch--;putchar(ch);if(ch=--’A’)break;putehar(ch+1);}}程序运行后的输出结
最新回复
(
0
)