首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2015-10-23
59
问题
窗体上有一个名称为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/IDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的功能是找出给定的10个数中最大的一个数,最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容,将程序补充完整。OptionBase1PrivateSubForm_Cfick()DimX
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分
为同一种对象设置不同的属性,可以使一种对象具有不同的外观和不同的______。
程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是()。
下面程序运行后的结果是()。PrivateSubForm_Click()DimsAsInteger,kAsInteger,iAsInteger,nAsIntegers=1
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为()。
以下关系表达式中,其值为假的是
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是()。PfivateSubCommand1_click()Picture1.Picture=LoadPicture("C:\picture.ipg")Picture
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
耦合和内聚是评价模块独立性的两个主要标准,其中______反映了模块内各成分之间的联系。
随机试题
遮挡物是形成()的基本要素之一。
最适合于制备水溶性或大分子生物活性药物脂质体的方法是()
风向频率是指()。
工程项目竣工验收、交付使用,应达到()标准。
2000年度约翰的工资、薪金所得应缴纳的个人所得税为( )元。红利所得在我国应补缴的个人所得税额为( )元。
德育是实现教育目的的条件和___________。
勺子:筷子
在弥尔顿的作品中,撒旦的形象塑造经历了很大的变化,在《失乐园》中他是_______的形象,在《复乐园》中,他又成为_______的化身。
C源程序中不能表示的数制是
Sinceitsfoundingin1948,McDonald’shasgrownfromafamilyburger(汉堡包)standtoaglobalfast-foodchain,withmorethan30,0
最新回复
(
0
)