在t=1s时，质点的速率v.

下面程序的输出结果是【 】。

Private Sub Form_Click()

i=0

Do Until 0

i=i+1

if i＞10 then Exit Do

Loop

Print i

End Sub

执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1 (A) End Sub

Private Sub1 (x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1 (x)

End If

x=x*2+1

Print x

End Sub

下面程序的输出结果是【 】。

Private Sub Form_Click()

i＝0

Do Until 0

i＝i＋1

if i>10 then Exit Do

Loop

Print i

End Sub

执行下面程序，第一行输出结果是 [ ] ，第二行输出结果是 [ ] 。

Option Explicit

Private Sub Form_Click()

Dim A As Integer

A=2

Call Sub1(A)End Sub

Private Sub1(x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1(x)

End If

x=x*2+1

Print x

End Sub

窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是()。 Priate Sub Form_Click() For i=0 To List1．ListCount-1 If i Mod 2=0 Then Print List1．List(i)； End If Next i End Sub Private Sub Form_Load() List1．AddItem"中国" List1．AddItem"日本" List1．AddItem"韩国" List1．AddItem"新加坡" List1．AddItem"香港" End Sub

A．中国韩国

B．日本新加坡

C．中国韩国香港

D．中国日本韩国新加坡香港

下面程序执行的结果是()。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub

A．123

B．3

C．5

D．579

A.-2

B.2.5

C.2

D.–7

下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub

A．20

B．441

C．400

D．出错信息