首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
72
问题
窗体上有一个名称为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://www.kaotiyun.com/show/ggHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是()。
一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFun1()EndSubForm2
软件设计中模块划分应遵循的准则是
以下打开VisualBasic菜单编辑器的操作中,错误的是
窗体如图所示。其中载体汽车图案的是Imagel图形框,直线的名称是Linel,另有一个定时器,名称为Timerl。已经编写了下面的程序代码:PrivateSubForm_Click()Timer1.Enabled=TrueEn
以下合法的VB变量名是
下列数据结构中,能够按照“先进后出”原则存取数据的是()。
某二叉树的前序序列为ABCDEFG,中序序列为DCBAEFG,则该二叉树的深度(根结点在第1层)为()。
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
随机试题
倒车信号装置的报警方式主要有_______、_______、_______3种。
产品战略的地位。
首次急性发作的腰椎间盘突出症治疗首选()。
下列说法中正确的有()。
应用技术分析方法时,应注意的问题包括()。Ⅰ.技术分析必须与基本分析结合起来使用Ⅱ.理论与实践相结合Ⅲ.使用多种技术分析方法综合研判Ⅳ.要掌握各种分析方法的精髓,并根据实际情况作适当调整
长江公司和大海公司属于同一控制下的两个公司。长江公司于2018年1月1日以银行存款200万元取得了大海公司30%的有表决权,对大海公司能够施加重大影响,大海公司在该日的可辨认净资产的公允价值为800万元,除一项管理用固定资产的公允价值与其账面价值不同外,其
概述20世纪初欧洲在世界优势地位的主要表现,并分析第一次世界大战对这种优势地位的影响。
编辑在选择稿件时如何进行媒介适宜性分析?(云南大学2018年研)
法律格言说:“法律不能使人人平等,但在法律面前人人是平等的。”关于该法律格言,下列哪一说法是正确的?()。
Doctorshavetreatedthefirstreportedcaseof"Internetaddictiondisorder"broughtonbyexcessiveuseofGoogleGlass.I
最新回复
(
0
)