一般国产设备的保修期及索赔期为（)个月，有合同规定者按合同执行。A．6～12B．12～18C．9～12D．18～24

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 程序运行后，窗体上显示的结果为【 】。

3下面程序的运行结果是()。

Option Base 1

Private Sub Commandl_Crick()

Dimx,y(3，3)

x=Array(1，2,3,4,5,6,7,8,9)

Fori=1 To 3

Forj=1 To 3

y(i,j)=(i*j)

If(j＞=i)Then Printy(i，j)；

Nextj

Print

Nexti

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_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

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

3有如下程序，输出结果为()。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End Sub

A．4 0 4 25

B．5 0 4 25

C．不确定

D．程序出错

设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(3,3)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=i*j+i Next j Nexti Sum=0 Fori=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub

A．20

B．7

C．16

D．17

有以下程序： Option Base 1 Dimair()As Integer Private Sub Form_Click() Dimi As Integer,j As Integer ReDimalt(3，2) Fori=1 To 3 Forj=1 To 2 alt(i，j)=i*2+j Nextj Nexti ReDimPreservearr(3，4) Forj=3 To 4

A． 8 13

B．0 13

C． 7 12

D．0 0

下面程序运行后的结果是()。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub

A．6

B．72

C．144

D．432

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Private Sub Commandl_Click()

Dimi As Integer,j As Integer

Dima(10,10)As Integer

Fori=1 To 3

Forj=1 To 3

a(i，j)=(i-1)*3+j

Printa(i，j)；

Nextj

Print

Nexti

End Sub