氦气和氧气的温度相同，则它们的（） A．分子的平均动能相同，分子的平均速率相同 B．分子的平

有以下程序：

Private Sub Form_Activate()

For j=1 to 3

x=3

For i=l to 2

x=x+6

Next

Next

Print x

End Sub

程序运行后，窗体上显示的结果为______。

有以下程序：

Private Sub Form_Activate()

For j=1 to 3

x=3

For i=1 to 2

x=x+6

Next

Next

Print x

End Sub

程序运行后，窗体上显示的结果为______。

Private Sub Form_Activate() For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为【 】。

Private Sub Form_Activate()

Forj=1 to 3

x=3

ForI=1 to 2

x=x+6

NextI

Nextj

Print x

End Sub

程序运行后，窗体上显示的结果为上______。

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为()。

编写如下事件过程： Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是()。

A．642

B．246

C．2

D．6

有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 ＜＞And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

A．12

B．30

C．24

D．18

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Cliek() Dim a() a = array(1,3,5,7) s=0 For i = 1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后，输出结果为()。

A．135

B．357

C．531

D．753

有如下程序:

Private Sub Form_Click()

Dim i As Integer, Sum As Integer

Sum=0

For i=2 To 10

If i Mod 2<>0 And i Mod 3=0 Then

Sum=Sum+i

End If

Next

Print Sum

End Sub

程序运行后,单击窗体,输出结果为

A．12

B．30

C．24

D．18

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。