窗体的左右两端各有1条直线，名称分别为Linei、Line2；名称为Shapel的圆靠在左边的Linel直线上(见图)；另有1个名称为Timerl的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。

为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：

Private Sub Timerl Timer()

F．or k=Line1．Xl To Line2．X1 Step 100

If Shapel．Left+Shapel．Width

运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是

A．把计时器的Interval属性设置为1

B．把For k=Linel．X1 To Line2．Xl Step 100和Next k两行删除

C．把For k=Line!．X1 T0 Line2．XI Step 100改为For k=Line2．X1 T0 Linel．Xl Step 100

D．把IfShapel．Left+Shapel．Width<Line2．X1 Then改为if Shapel．Left<Line2．X1 Then

[单选题]窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上，如下图所示；另有一个名称为Timer1

[单选题]设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是（　　）。A.Line1.X1=Line2.X2且Line1.YI=L

[单选题]设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是（　　）。A.Line1.X1＝Line2.X2且Line1.Y1＝L

[问答题]在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape

[问答题]在考生文件夹下游一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape

[单选题]在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A*B’ 等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图1所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将

[单选题]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。A．Open"c:/Test29.dat"ForRan

[试题]在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：F．unction Fun（x As Integer,ByVal y As Integer）As Integerx=x+yIf x<0 ThenF．un=xE．lseF．un=yE．nd IfE．nd FunctionPrivate Sub Command1_Click（）D．im a As Integer,b As Integera=-10：b=5Text1.Text=

[单选题]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明当单击“保存”按钮时．将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

[单选题]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。A．Private Sub Command1_Click() Dim p As Person p. name=Text1. Text p. major=Text2. Text Open"C