首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2019-06-20
30
问题
窗体上有一个名称为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/22N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人为计算n!(0<n<=12)编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n–1To2Step-1p=p*kNextkfun=p
设x为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()aS=InputBox("请输入一个二进制数"):n=Len(a$)Fori=1TonDec=Dec*2+(aS,i,1)NextiPr
下列符号常量的声明中不合法的是
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"For
下列关于水平滚动条的叙述中,错误的是
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
为了调整图像框的大小以与其中的图形相适应,必须把它的Stretch属性设置为
窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是
以下关于局部变量的叙述中错误的是()。
随机试题
It’sapitythatwehavetostayathomewhenwearehaving______weather.
服涌吐药后,为助药力宜多饮
酶蛋白变性后其活性丧失,是因为
需要预测混合过程段水质的场合,对于所取水样的处理方式,以下说法正确的是()。
穿过楼板的热力管道的套管应高出地面()mm。
作为货币政策工具,再贴现作用于经济的途径有()。假设A国实行浮动汇率,并且允许资本自由流动,根据蒙代尔一莱明模型,提高再贴现这种货币政策调控对国民收入()。
与货币政策相比较,财政政策具有( )的特点。
洛克曾说过:“我们敢说日常所见的人中,十分之九都是他们的教育所决定的。”()
如图,学校操场的400米跑道中套着300米小跑道,大跑道与小跑道有200米路程相重。甲以每秒6米的速度沿大跑道逆时针方向跑,乙以每秒4米的速度沿小跑道顺时针方向跑,两人同时从两跑道的交点A处出发,当他们第二次在跑道上相遇时,甲共跑了多少米?
问题处理方案的正确而完整的描述称为______。
最新回复
(
0
)