首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single, flag As Integer Private Sub Form_Load()
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single, flag As Integer Private Sub Form_Load()
admin
2018-12-20
33
问题
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:
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 <= 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
解析
Form_Load 过程中设定timer事件定时触发;在Timer1_Timer过程中,圆圈先变小后变大,然后退出。下一次timer事件触发时继续这个过程。因此,选A)。
转载请注明原文地址:https://kaotiyun.com/show/IjFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的滚动条,当用鼠标拖动滚动条中的滚动块时,触发的事件是( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecord IDAsInteger NameAsString*20EndTypePrivateSubCommand1_Click()
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
随机试题
关于领导方式的理论包括()
Thoughheisn’tstrong,______heworksjustashardaseveryoneelse.
A.溃疡孤立存在,表面微凹,少量黄色渗出,周缘充血B.溃疡深达黏膜下,边缘高起,咽部及口角可见瘢痕C.溃疡与刺激物相邻,周缘白色水肿及角化D.溃疡较深,边缘不整,基底有浸润E.溃疡浅表,基底暗红色桑葚样肉芽肿,边缘鼠啮状结核性口腔溃疡的溃疡特点
某药店向顾客王某推荐一种价格较低的名牌护肤产品,王某对该产品的低价表示疑惑,药店解释为店庆优惠。王某买回来使用后,面部出现红肿、瘙痒。经质检部门认定,该产品系假冒名牌产品,王某向该药店索赔。关于药店和王某对此事责任的说法,正确的是()。
当工程发生需要加固补强的质量问题时,监理单位应先签发()。
建设项目的环境噪声污染防治设施必须与主体工程()。
国际商务谈判中,()指由于政治局势的变化或国际冲突给有关商务活动的参与者带来可能的危害和损失。
哺乳动物:陆生动物
宽带综合业务数字网的异步转移模式(ATM)是一种以(49)为基础的新的信息转移模式。
A——internationalflight B——flightnumberC——airlineoperation D——alternateairfieldE——landingfield F——intern
最新回复
(
0
)