窗体的左右两端各有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<Line2.X1 Then Shape1.Left＝Shape1.Left＋100 End If Next kEnd 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<Line2.X1 Then 改为 If Shape1.Left<Line2.X1 Then
热度🔥300
参考答案：B
解析：
【解析】在计时器事件中不应再设置步长为100的For循环，应该把For循环去掉，只留下循环体的语句，计时器每秒激发一次，每次判断小球是否移到Line2处，不到就改变自己的Left值即继续移动。因此B正确。
【解析】在计时器事件中不应再设置步长为100的For循环，应该把For循环去掉，只留下循环体的语句，计时器每秒激发一次，每次判断小球是否移到Line2处，不到就改变自己的Left值即继续移动。因此B正确。
复制题目向AI提问
为实现上述功能，某人把计时器的Interval属性设置为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 kEnd 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<Line2.X1 Then 改为 If Shape1.Left<Line2.X1 Then
答案：B。
解析：【解析】在计时器事件中不应再设置步长为100的For循环，应该把For循环去掉，只留下循环体的语句，计时器每秒激发一次，每次判断小球是否移到Line2处，不到就改变自己的Left值即继续移动。因此B正确。">
content_copy
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
将E－R图转换为关系模式时，实体和联系都可以表示为( )。
有以下程序
#include
main()
{ int a=2, b;
b = a<<2;
printf ("%d\n", b );
}
程序运行后的输出结果是
数据挖掘可以简单地理解为从大量的数据中发现或挖掘知识。设某公司的客户关系管理系统中有客户表A(CID, v1, v2, …, vn)。给定一个训练集S(v1, v2, …, vn, c)，其中c为客户类别、vi（i=1..n）为客户其他属性。若对表A中任一客户x，要使系统能判定x所属的客户类别，较合理的方案是（）
文涵是大地公司的销售部助理，负责对全公司的销售情况进行统计分析，并将结果提交给销售部经理。年底，她根据各门店提交的销售报表进行统计分析。打开"计算机设备全年销量统计表.xlsx"，帮助文涵完成以下操作：1. 将"sheet1"工作表命名为"销售情况"，将"sheet2"命名为"平均单价"。2. 在"店铺"列左侧插入一个空列，输入列标题为"序号"，并以001、002、003 ……的方式向下填充该列到最后一个数据行。3. 将工作表标题跨列合并后居中并适当调整其字体、加大字号，并改变字体颜色。适当加大数据表行高和列宽，设置对齐方式及销售额数据列的数值格式（保留2位小数），并为数据区域增加边框线。4. 将工作表"平均单价"中的区域B3:C7定义名称为"商品均价"。运用公式计算工作表"销售情况"中F列的销售额，要求在公式中通过VLOOKUP函数自动在工作表"平均单价"中查找相关商品的单价，并在公式中引用所定义的名称"商品均价"。5. 为工作表"销售情况"中的销售数据创建一个数据透视表，放置在一个名为"数据透视分析"的新工作表中，要求针对各类商品比较各门店每个季度的销售额。其中：商品名称为报表筛选字段，店铺为行标签，季度为列标签，并对销售额求和。最后对数据透视表进行格式设置，使其更加美观。6. 根据生成的数据透视表，在透视表下方创建一个簇状柱形图，图表中仅对各门店四个季度笔记本的销售额进行比较。7. 保存"计算机设备全年销量统计表.xlsx"文件。
