首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时
admin
2020-02-27
66
问题
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:
Private Sub Timer1_Timer()
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.Width
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是( )。
选项
A、把计时器的Interval属性设置为1
B、把For k=Line1.X1 To Line2.X1 Step 100 和 Next k两行删除
C、把For k=Line1.X1 To Line2.X1 Step 100 改为 For k=Line2.X1 To Line1.X1 Step 100
D、把If Shape1.Left+Shape1.Width
答案
B
解析
在计时器事件中不应再设置步长为100的For循环,应该把For循环去掉,只留下循环体的语句,计时器每秒激发一次,每次判断小球是否移到Line2处,不到就改变自己的Left值即继续移动。因此B正确。
转载请注明原文地址:https://kaotiyun.com/show/CRTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下:PrivateSubCommand1_Click(IndexAsInteger)IfIndex=1ThenPrint"计算机
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkX=8PrintM(2+M(x
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click()DimsumAsIntege
窗体上有一个名称为Pieture1的图片框控件,一个名称为Lbel1的标签控件,如图所示。现有如下程序:PublicSubdisplay(xAsControl)IfTypeOfxIsLable1ThenxCaption="计算
现有如下程序:PrivateSubCommand1_Click()s=0Fori=1To5S=s+f(5+i)NextPrintsEndSubPublicFunctionf(xAsInteger)Ifx>=10Thent
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
下面哪个属性肯定不是框架控件的属性()。
随机试题
A.丙米嗪B.马普替林C.米氮平D.吗氯贝胺E.度洛西汀通过抑制A型单胺氧化酶进而发挥抗抑郁作用的是
下列有关审计证据的表述中,不正确的有()。
目前诊断急性心肌梗死最好的确定标志物是
新生儿败血症常见的感染途径是
绩效考核的方法有很多种,对不同人员考核的方法和要求也不尽相同。对一般员工采取的考核方法主要有( )。
铸造设备不包括()
当n→∞时,资金回收系数等于()。
可撤销的建设工程施工合同,当事人应当请求( )撤销。
当燃气管道长度在200mm以上,虽无其他管段或储气容器可利用时,应在适当部位安装( ),采取分段储气,轮换吹扫。
世界上第1台电子数字计算机ENIAC是在1946年研制成功的,其诞生的国家是
最新回复
(
0
)