首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load() r=S
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load() r=S
admin
2016-06-23
88
问题
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form_Load()
r=Shape1.Width
Timer1.Enabled=True
Timer1.Interval=500
End Sub
Private Sub Timer1_Timer()
If flag=0 Then
Shape1.Width=Shape1.Width-10
If Shape1.Width<=100Then
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
解析
Form_Load过程中设定timer事件定时触发;在Timer1_Timer过程中,圆圈先变小后变大,然后退出。下一次timer事件触发时继续这个过程。因此,选A。
转载请注明原文地址:https://kaotiyun.com/show/8vLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。PrivateSubCommand1_Click()DimxASSinglex=InputBox("请
要使控件与框架捆绑在一起,以下操作正确的是()。
逻辑运算时,参与运算的两个量都是False,结果才会是False的逻辑运算是______运算。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() Forn=1To20 IfnMod3<>0Thenin=m+n/3 N
下列叙述中错误的是
如果将布尔常量值True赋值给一个整型变量,则整型变量的值为()。
对象.cls方法对()控件有效。
通用对话框中能打开“颜色对话框”的方法是()。
下列选项中不符合良好程序设计风格的是()。
表达式(7\3+1)*(18\-1)的值是______。
随机试题
过盈连接是依靠包容件和被包容件配合后的过盈值来达到紧固连接的。()
=________。
聚氯乙烯塑料制品的主要卫生问题是
A.三羧酸循环B.鸟氨酸循环C.蛋氨酸循环D.柠檬酸-丙酮酸循环E.乳酸循环与物质彻底氧化分解有关的代谢是
常见皮肤化学性灼伤的化学品是
某油田项目累计投资21000万元,而该油田累计纯收入15400万元,则投资偿还系数为()。
下列关于定金的说法正确的有()。
下面属于主试效应的有()。
Billdaretiy,______he?
SMS(ShortMessageService)graduallybecomesthemainserviceforcellphoneusersforitsgreatcharming.Inaddition,thedev
最新回复
(
0
)