通过设置Shape控件的（）属性，可以绘制多种形状的图形

A:Shape B:Borderstyle C:FillStyle D:Style

在图形显示系统的类层次结构中，类Shape定义了“图形”所具有的公有方法：display（　），并将其声明为抽象方法：类Line是Shape的子类。则下列说法中正确的是 (1) 。若类Line正确继承了Shape类，并定义了方法display(int N)，这种机制称为 (2) 。这样，通过Shape对象的正确引用就能实现Line对象的相应方法，体现了面向对象程序设计语言基本特征中的 (3) 。

A:类Shape可进行实例化 B:可通过类名Shape直接调用方法display C:类Line必须重置方法display D:类Line,必须重载方法display

窗体的左右两端各有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　　 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

窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(见下图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： Private Sub Timer1_Timer（　） For k=Lind1.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=lind1.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+Shepe1.Width＜Line2.X1 Then改为If Shape1.Left＜Line2.X1 Then

窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(如下图所示)；另有一个名称为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 k End Sub 运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是______。

A:把计时器的Interval属性设置为100 B:把For k=Line1.X1 To Line2.X1 Step 100和Next k两行删除 C:把If Shape1.Left+Shape1.Width＜Line2.X1 Then改为If Shape1.Left＜Line2.X1 Then D:把For k=Line1.X1 To Line2.X1 Step 100改为For k=Line2.X1 To Line1.X1 Step

窗体的左右两端各有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 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＜Line2. X1 Then改为If Shape1. Left＜Line2. X1 Then

若在Shape控件内以FillSyylr属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由Back Style属性填充，则应______。

A:将Shape控件的Fillstyle属性设置为2～7间的某个值，BackStyle属性设置为1 B:将Shape控件的FillStyle属性设置为0或1，Backstyle属性设置为1 C:将Shape控件的FillStyle属性设置为2～7间的某个值，BackStyle属性设置为0 D:将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0

若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackStyle属性填充，则应______。

A:将Shape控件的FillStyle属性设置为2～7间的某个值，BackStyle属性设置为1 B:将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1 C:将Shape控件的FillStyle属性设置为2～7问的某个值，BackStyle属性设置为0 D:将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0

若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackStyle属性填充，则应______。

A:将Shape控件的FillStyle属性设置为2～7间的某个值，BackStyle属性设置为1 B:将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1 C:将Shape控件的FillStyle属性设置为2～7间的某个值，BackStyle属性设置为0 D:将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0

窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到 Line2时则停止移动。 为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下 程序： Private SubTimer1_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.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