首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form Load() Private Sub Timer
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form Load() Private Sub Timer
admin
2017-04-25
39
问题
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:
Private Sub Form Load() Private Sub Timer1 Timer(’)
Shapel.Top=0:Timer1.Interval=100 Static X As Integer
End Sub Shape1.Top=Shape1.Top+100
x=x+1
If x Mod 10=0 Then
Shapel.Top=0
End If
End Sub
以下关于上述程序的叙述中,错误的是
选项
A、每执行一次Timer1 Timer事件过程,x的值都在原有基础上增加1
B、Shapel每移动10次回到起点,重新开始
C、窗体上的Shapel由下而上移动
D、Shapel每次移动100
答案
C
解析
在计时器事件中的变量x是一个静态变量,事件结束后其值仍然会保留,所以每执行一次Timei1-Timer。事件过程,x的值都在原有基础上增加1;每次x能被10整除均令形状的Top属性为0,即回到起点:形状控件在计时器事件中每次Top值均增加100,即自上而下进行移动,每次100。
转载请注明原文地址:https://kaotiyun.com/show/hLGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系数据库管理系统能实现的专门关系运算包括______。
在窗体上有三个控件:名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1,并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所
在文本框中输入密码时,要求在文本框中只显示(*)号,则应当设置此文本框的()属性。
假设某应用程序开发工程(默认的工程名为“工程1”)已先后创建了两个窗体,其名称分别为form1和form2。为使窗体form1成为运行该工程时的启动窗体,在开发过程中,应在“工程-工程1属性”对话框内的“通用”标签下,在“启动对象”的下拉列表框中,选择所需
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
每一个窗体或者控件都有一个名字,为提高程序的可读性,可以用前缀的方式来表示对象的类型,如Form的前缀为frm,则Image的前缀为【】,Picture的前缀为【】。
运行下列程序:DimtAsIntegerPrivateSubForm_Click()t=2x=Val(InputBox("输入一个整数5"))Printfunl(x);tE
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
以下语句的输出结果是______。PrintInt(12346789*100+0.5)/100
以下关系表达式中,其值为False的是
随机试题
欧阳修在《五代史伶官传序》中所采用的论据不包括()
药物不良反应中的后遗效应是指
A.卡泊芬净B.两性霉素BC.氟康唑D.灰黄霉素E.特比萘芬棘白菌素类抗真菌药()。
成人生命体征测量值,在正常范围内的一组是( )。【历年考试真题】
下列各项中,属于“其他综合收益”应披露的信息有()
下列哪项观点体现了素质教育的理念?()
某农村养殖户为扩大规模向银行借款,欲以其财产设立浮动抵押。对此,下列表述正确的是()。
在企业价值链中,材料供应、生产加工、成品储运、市场营销、售后服务等活动属于()。
PoliceinthepopularresortcityVirginiaBeachrecentlybeganoperatingvideosurveillancecameraswithcontroversialfacerec
ReadthearticlebelowabouttheU.S.dollar.ChoosethebestsentencefromthelistA-Gtofilleachofthegaps.Foreachgap
最新回复
(
0
)