首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
admin
2017-11-23
25
问题
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form Load()
r=Shape1.Width
Timer1.Enabled=Tme
Timer1.Interval=500
End SUb
Private SUb Timer1_Timer()
Ifflag=0 Then
Shape1.Width=Shape1.Width-10
If Shape1.Width<=100 Then
flag=1
End If
Else
Shape1.Width=Shape1.Width+10
If Shape1.Width>=r Then
flag=0
End If
End If
End Sub
运行程序后产生的结果是
选项
A、圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复
B、圆一直在缩小
C、圆每隔0.5秒向右移动一次
D、圆每隔1秒向下移动一次
答案
A
解析
本题在计时器的Timer事件中,如果flag为0,让圆的宽度逐渐减小,一直到100以下,将flag置为1;如果flag为1,让圆的宽度逐渐增大,一直到大于原来的宽度r则将flag置为0;则圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复。
转载请注明原文地址:https://kaotiyun.com/show/gAGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)AsIntegerM=IIf(x>y,x,y)EndFunctionPr
设有程序段:sum=0ForI=11to-1step-2Sum=sum+INextIPrintI语句Sum=Sum+I执行的次数和最后的I值分别为()。
当程序运行时,在窗体上单击鼠标,以下______事件是窗体不会接收到的。
以下关于窗体的描述中,错误的是______。
在数据库管理系统提供的数据语言中,负责数据的查询及增、删、改等操作的是
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPrin
下列描述错误的是()。
假定有一个名为pic2.gif的图形文件,要在运行期间把该文件装入一个图片框(Picture1),应执行的语句是【】。
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimxAsIntegerX=Val(InputBox(”请输入一个整数”))fun(x)EndSubPrivat
窗体上有一个名称为Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSub
随机试题
病毒性肝炎患者肝细胞最常见的坏死是
(2005年)将椭圆绕x轴旋转一周所生成的旋转曲面方程是()。
关于质权的说法,正确的有()。
伞型基金又称为(),是指多个基金共用一个基金合同,子基金独立运作,子基金直接可以互相转换的一种基金结构形式。
下列关于违约损失率(LGD)的说法,不正确的是()。
下列关于借贷资本特点的说法,错误的是()。
错觉是完全不符合刺激本身特征的失真的或扭曲事实的知觉经验,生活中,凭知觉经验所作的解释显然是失真的,甚至是错误的。幻觉是在没有相应的外界客观事物直接作用下发生的不真实感知。幻觉具有与真实知觉类似的特点,但它是虚幻的。正常人在某些特殊的状态下,如强烈的情绪体
以下叙述中正确的是
ThevasticesheetsofGreenlandandAntarcticaaremeltingfasterthanpreviouslythought,andthatmeltingisaccelerating,ac
Howwillthishandcreamprotectyourhands?ItwillprotectyourhandsfromharmfulUVand______.Whatelementwillhelpf
最新回复
(
0
)