首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Timerl的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Cir—cle)。编写程序如F: Privale Sub Form_LJmd() Shapel.Top=0 Tirnerl.Int
窗体上有一个名称为Timerl的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Cir—cle)。编写程序如F: Privale Sub Form_LJmd() Shapel.Top=0 Tirnerl.Int
admin
2018-09-19
35
问题
窗体上有一个名称为Timerl的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Cir—cle)。编写程序如F:
Privale Sub Form_LJmd()
Shapel.Top=0
Tirnerl.Interval=100
End Sub
Private SubTimerl Timer() Static X As Integer
Shapel.Top=Shapel.Top+100
X=X+l
If X M0d 10:0 Then
Shapel.Top=0
End If
End Sub。
以下关于上述程序的叙述中,错误的是( )。
选项
A、每执行一次Timerl_Timer事件过程,X的值都在原有基础上增加1
B、Shapel每移动10次叫到起点,重新开始
C、窗体上的Shapel由下而上移动
D、Shapel每次移动100
答案
C
解析
题目中变量X定义为Stalic,即每次进入Timer事件过程时,x都会保留上次的值,从而实现每执行一次Timerl_Titmer事件过程X的值都在原有的基础上增加。程序中判断调用Timer 事件过程10次后,重置Shapel的top值为0,即回到起点。控件Shapel的Top属性是距离窗体项的位置,数值越大距离越远,因此Shapel会由上向下多动。
转载请注明原文地址:https://jikaoti.com/ti/bXm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序代码:PrivateSubForm_Click()Dima(3,3)AsIntegerForI=1To3Forj=1To3Ifj>1And
如果过程的首行是:PrivateSubproc(xAsControl),则调用此过程时使用的实际参数应该是
在设计阶段,属性窗口的内容是
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图所示。要求:①利用属性窗口设置适当的属性,使text1、text2中数据右对齐。②请编写适当的程序完成以下功能:在Text1中输入40
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)......EndSub假定焦点位于文本框中,则以下能触发KeyPres
在Open语句中可以用Output和Append两种方式打开顺序文件,其主要区别是
编写如下程序:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasemCase1
结构化程序设计中,下面对goto语句使用描述正确的是
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
某二叉树的中序序列为DCBAEFG,后序序列为DCBGFEA,则该二叉树的深度(根结点在第1层)为
随机试题
马,高热,大汗,呼吸喘粗,口渴贪饮,尿短赤,口色鲜红,舌苔黄燥,脉洪大。该病可辨证为()
在调查前复习CPI指数时,王教授纠正了某研究生下面的哪一个错误
下列哪一项不会出现在空调系统中?
关于建设工程项目投资控制,说法正确的是()。
某一级公路全长55.28knl,双向4车道,路幅宽24.5m,设计车速80km/h,路面基层为水泥稳定土无机结合料基层,根据工程实际情况及施工单位人力、设备条件,施工单位采用了路拌法水泥稳定土基层施工工艺。摊铺水泥日进度1.5km(单向),K5+700~K
个人住房贷款的贷前调查中,对开发商资信调查的内容具体包括()。
儿童个体发展的规律有哪些?()
《二月提纲》(北京大学1995年中国现代史真题)
有人认为,在社会主义现代化建设过程中,只要物质文明好了,精神文明自然而然就上去了。试用历史唯物主义关于社会存在社会意识辩证关系的原理,并结合我国的实践,评析上述观点,阐明加强社会主义精神文明建设的意义。
IseethisprincipalalloverasIgothroughmyday.Iseerimsoncarwheelsthatcostupwardsof$500,justforalittlebit
最新回复
(
0
)