首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
admin
2018-10-15
57
问题
窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form_Load()
r=Shapel.Width
Timer 1.Enabled=True
Timer1.Interval=500
End Sub
Private Sub Timerl_Timer()
Ifflag==0 Then
Shapel.Width=Shapel.Width一10
If Shapel.Width<=100 Then
flag=1
End If
Else
Shapel.Width=Shapel.Width+10
If Shapel.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/hTFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是
一个栈的初始状态为空。现将元素A,B,C,D,E依次入栈,然后依次退栈三次,并将退栈的三个元素依次入队(原队列为空),最后将队列中的元素全部退出。则元素退队的顺序为
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:PrivateSubCommand1_Click() DimmAsString m=InputBox("请输入字符串") Printpick_str(m)En
设有如下程序:PrivateSubForm_Click()DimmAsSingle,nAsStringDimflagAsIntegerm=InputBox("请输入一个单精度数")n=
为了返回或设置磁盘驱动器的名称,应使用的驱动器列表框的属性是
在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:在名称为Forml的窗体上添加两个命令按钮,其名称分别为C1和C2,标题分别为“读入数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadData
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAsLabel) L.Caption="1234"EndSubPrivateSubForm
在窗体上画一个水平滚动条,其属性值满足Min
要删除列表框中最后一个列表项,正确的语句是()。
以下能对正实数d的第3位小数四舍五入的表达式是
随机试题
学者们普遍认为世界上最早的公司立法是()
对于宫颈黏液一精液相合试验不正确的是
患者,男,42岁。2年前诊断为原发性慢性肾上腺皮质功能减退症,长期口服氢化可的松(每日30mg)替代治疗。近2日发热38℃,咽痛。目前氢化可的松应
患者女性,25岁。和朋友聚餐后出现右上腹绞痛人院,考虑胆囊炎。查体:左手掌放在患者的右肋缘部,用左手拇指置于胆囊点,然后嘱患者深呼吸。深吸气时,患者因疼痛而突然屏气。这种现象被称为
张某因犯盗窃罪于2007年4月4日被判处有期徒刑5年,在服刑期间,因病于同年的7月12日保外就医。从保外就医之日起,张某就继续行窃。2008年5月12日张某被人当场抓获并扭送至公安机关收审。经查明,张某在保外就医期间,共行窃20次,盗窃财物总价值达4万元。
根据贷款性质的不同,个人教育贷款可分为()。
信息披露的原则不包括()。
经济发展水平决定着企业的财务管理水平。()
办公人员的座椅高度是非常有讲究的。专家______,许多人办公座椅的高度都存在一定问题,久坐会______疲劳感,并出现腰酸背痛的毛病。正确的做法是:首先根据工作性质把办公桌调整到一个______的高度,然后再依据自身情况来调整座椅的高度。依次填入划
父母离婚,对于孩子来说是个不小的打击。未成年人保护法修订后与民法典看齐,法院对离婚后涉及子女抚养问题的,应当尊重已满()周岁未成年子女的真实意愿,根据双方具体情况,按照最有利于未成年子女的原则依法处理。
最新回复
(
0
)