题目内容（请给出正确答案）

[主观题]

阅读程序：Option Base 1Private Sub Form_Click（)Dim arr, SumSum=0art=Array（1, 3, 5, 7, 9, 11

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

A．13

B．14

C．27

D．15

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“阅读程序：Option Base 1Private Sub …”相关的问题

第1题

阅读程序： Option Base 1Private Sub Form_Click（) Dim arr Sum Sum=0 arr=Array（1，3，5，7，9，11，1

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

点击查看答案

第2题

阅读程序：Option Base 1Private Sub Form_Click（) Dim art,Sum Sum=0 art=Array（1,3,5,7,9,11

阅读程序： Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+art(i) End If Next i Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为()。

A．13

B．14

C．27

D．15

点击查看答案

第3题

阅读程序： Option Base 1 Private Sub Form_Click（)Dim arr，SumSum=0arr=Array（1，3，5，7，9，11，13，

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

点击查看答案

第4题

阅读程序: Option Base 1 Dim arr（)As Integer Private Sub Form_Click（)Dim i As Integer, j As

阅读程序:

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer

ReDim arr(3,2)

For i = 1 To 3

For j = 1 To 2

arr(i,j)=i*2+j

ReDim Preserve arr(3,4)

For j=3 To 4

arr(3,j)=j+9

Print arr(3,2)+arr(3,4)

End Sub

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

A．21

B．13

C．8

D．25

点击查看答案

第5题

阅读程序：Option Base 1Dim arr（) As IntegerPrivate Sub Form_Click（)Dim i As Integer，j As In

阅读程序：

Option Base 1

Dim arr() As Integer

Private Sub Form_Click()

Dim i As Integer，j As Integer

ReDim arr(3,2)

For i=1 To 3

For j=1 To 2

an(i,j) =i*2+j

ReDim Preserve an(3,4)

For j=3 To 4

an(3,j) =j+9

Print arr(3,2) +air(3,4)

End Sub

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

A．21

B．13

C．8

D．25

点击查看答案

第6题

阅读程序：Option Base 1Private Sub Form. Click（)Dim arr，SumSum= 0arr=Array（1，3，5，7，9，11，13，

阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

点击查看答案

第7题

阅读程序：Option Base 1Dim arr（)As IntegerPrivate Sub Form_Click（)Dim i As Integer,j As Int

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。

A． 21

B．13

C．8

D．25

点击查看答案

第8题

有如下程序：Option Base 1Private Sub Form_Click（)Dim arr，SumSum=0 alt=Array（1，3，5，7，9，11，13

有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

A．25

B．26

C．27

D．28

点击查看答案

第9题

阅读程序：Option Base 1Dim arr（)As IntegerPrivate Sub Form_Click（)Dim i As Integer，j As Int

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next Next ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Next Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

点击查看答案

第10题

阅读程序： Option Base 1 Dim arr（)As Integer Private Sub Form_Click（)Dim i AsInteger，j As

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

点击查看答案