首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2015-06-30
59
问题
窗体上有一个名称为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://kaotiyun.com/show/sNQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列描述中正确的是()。
当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行人队运算。这种情况称为【】。
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、【】和选择排序等。
在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
决定一个窗体有无控制菜单的属性是______。
当一个工程含有多个窗体时,其中的启动窗体是______。
下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将
在窗体中添加一个命令按钮,然后编写如下代码:PrivateSubCommand1_Click()a=InputBox("请输入一个整数")b=InputBox("请输入一个整数")PrintVa
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后,单
以下程序需要实现的功能是:在C盘根目录下建立一个名为Students.txt的顺序文件。单击命令按钮后,输入4个学生的个人信息,包括name、sex和age,将这些信息写入文件中。请填空。PrivateSubForm_Click()
随机试题
下列关于对文件(文件夹)的复制操作不正确的是()
(2011年)根据《公司法》,国有独资公司董事会中的职工代表由()产生。
在赠与合同中,赠与人行使撤销权的期限是()。
【2018上】根据埃里克森的心理社会发展理论,1~3岁儿童形成的人格品质是()。
埃里克森的人格发展阶段理论认为学龄期的任务是()。
世界上最先出现的国际货币体系是()。
下列哪项不是裴斯泰洛齐智育教育的基本要素?()
LastweektheAmericannovelistJonathanFranzenspokeaboutthee-reader,whichhesaidthreatenedthesenseofpermanencefoun
ADifferentsportsrequiredifferenttrainingprograms.BSciencemaybetooimportanttoday.CSportsequipmenthasbeenimp
Whomdoesthemanwanttotalkwith?
最新回复
(
0
)