窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：Private Sub Timer1 Timer（ ）For k=Line1．X1 To Line2．X1 Step 100If Shape1．Left+Shape
题目
窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：
Private Sub Timer1 Timer（ ）
For k=Line1．X1 To Line2．X1 Step 100
If Shape1．Left+Shape1．width<Line2．X1 Then
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．X1Step 100改为For k=Line2．X1 To Line1．X1 Step 100
D.把If Shape1．Left+Shepe1．Width<Line2．X1 Then改为If Shape1．Left<Line2．X1 Then
相似考题
更多“ 窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每”相关问题
-
第1题：
在窗体上有一个文本框控件，名称为TxtTime一个计时器控件，名称为Timer1，要求每1秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1 ______() TxtTime. text=Time End Sub 在下划线上应填入的内容是 ______。
A．Enabled
B．Visible
C．Interval
D．Timer
正确答案：D
解析：当设置计时器的Enabled属性为True，并且设置其Interval属性为1000(毫秒)时，每隔1秒就触发计时器控件的Timer事件，并执行该事件中的代码。计时器控件没有Visible属性，只在程序设计时可见，在程序运行时是不可见的。 -
第2题：
在考生文件夹下有一个工程文件sjt3．vbp。窗体上有名称为Timer1的定时器，以及名称 为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： ①圆的顶端距窗体Form1顶端的距离为360； ②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图3所示。 程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动；当Lhape1的底部到达Line2时，会改变方向而向上运动。 文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现 上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，包含了所有控件和部分程序，如图4所示。程序功能如下： ①单击“读数据”按钮，可将考生文件夹下in4．dat文件中的100个整数读到数组a中； ②单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a中的数据计算平均值，并将计算，墙果四舍五入取整后显示在文本框Text1中。“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
正确答案：
第1小题
【知识点拔】①形状控件(Shape)提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。②Move方法用于移动窗体或控件，其语法为：对象名．Move Left Top，Width，Height。
【审题分析】本题在计时器的Timer每件过程中，Shape1每次上下移动的距离为s(值为负向上移动，值为正向下移动，初值为40)，若Shape1向上移动后其Top属性值小于或等于Line1的Y1 (或Y2)属性值，则S取其相反数，Shape1向下移动。若Shape1向下移动后其Top属性值与其Width属性值之和大于或等于Line2的
Y1(或Y2)属性值，则S再取其相反数，Shape1向上移动。窗体加载时，计时器启动，Shape1开始在Line1和Line2之间运动。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt3．vbp，在窗体上两条水平直线问画一个形状控件，并如表1—10设置其属性。
步骤2：在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【知识点拔】调用过程有两种方式：一种是过程名参数1，参数2，…；另一种是Call过程名(参数1，参数2，…)。
【审题分析】本题原程序在“计算”按钮的单击事件过程中，逐一检查组合框中的列表项是否选中，将选中列表项的索引号作为判断依据，根据选中不同的项来调用不同的过程。过程even用来求得数组中的偶数平均值，首先预设累加和变量s=0以及计数器n=0，然后通过一个执行100次的For循环来遍历整个数组，依次判断数组元素是否为偶数，若是偶数则将其加入类价格变量s中以及令计数器加1，循环结束后用累加和除以计数器即得到平均值。同理编写odd过程用来求得数组中奇数的平均值，all过程用来求得数组中所有数的平均值。
【操作步骤】
步骤1：打开考生文件中的本题工程文件面t4．vbp，在代码编辑窗口，编写“计算”按钮的单击事件过程以及三个自定义过程。
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按<F5>键运行程序，先单击“读数据”按钮，然后选择组合框中的一项再单击“计算”按钮，最后单击窗体右上角的关闭按钮结束程序。 -
第3题：
（ 6 ）窗体如图所示，其中汽车是名称为 Image1 的图像框，命令按钮的名称为 Command1, 计时器的名称 为Timer1, 直线的名称为 Line1 。 程序运行时 ， 单击命令按钮 ， 则汽车每 0.1 秒向左移动 100 ， 车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。
1 Timer1 的 Interval 属性的值应事先设置为【 6 】
2 Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
If Image1.Left>= 【 7 】 Then
Image1.Left= 【 8 】 -100
End If
End Sub
正确答案：
-
第4题：
在考生文件夹中有一个工程文件execise73.vbp及窗体文件execise73.tim。在名为 Form1的窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案；有两个命令按钮，名称分别为Cmd1和Crud2，标题分别为Begin和Stop;还有一个名为Timer1的计时器。
程序运行时，钟表指针不动，单击Begin按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转6一分钟转一圈)；单击Stop按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次：编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第5题：
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确的属性设置语句是()A、Timer1.Enabled=0.1
B、Timer1.Interval=0.1
C、Timer1.Enabled=100
D、Timer1.Interval=100
正确答案：D