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

[主观题]

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

有如下程序： 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 arE(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

A．25

B．26

C．27

D．28

查看答案

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

您可能会需要：

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

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

更多“有如下程序：Option Base 1Private Sub…”相关的问题

第1题

有如下程序：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

点击查看答案

第2题

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

A．25

B．26

C．27

D．28

点击查看答案

第3题

有如下程序：Option Base 1 Private Sub Form_Click（) Dim arr,Sum Sum=0 For i=1 To 10If arr（i)

有如下程序：

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

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

点击查看答案

第4题

在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form_Click（)Dim Arr（10)As I

在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．1

B．3

C．6

D．10

点击查看答案

第5题

在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_Click（) Dim arr Dim St

在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer Dim Sum As Integer arr=Array(12，4，8，16) Start=Lbound(arr) Finish=Ubound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Text=c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是

A．40

B．10

C．12

D．16

点击查看答案

第6题

有如下程序：Option Base 1Pfivate Sub Form_Click（) Dim arr,Sum Sum=0 arr=Array（1,3,5,7,9,11,

有如下程序： Option Base 1 Pfivate 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 Nexti print Sum End Sub 程序运行后，单击窗体，输出结果为()。

A．25

B．26

C．27

D．28

点击查看答案

第7题

阅读程序： 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

点击查看答案

第8题

有如下程序：Option Base 1Private Sub Form. Click（)Dim arr,SumSum=0alt=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)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

A． 25

B．26

C．27

D．28

点击查看答案

第9题

有如下程序：Option base 1Private Sub Command1_Click Dim arr（10) Arr=Array（10,35,28,90,54,68

有如下程序：

Option base 1

Private Sub Command1_Click

Dim arr(10)

Arr=Array(10,35,28,90,54,68,72,90)

For Each a In arr

If a>50 then

Sum=sum+a

End If

Next a

End Sub

运行上述程序时出现错误，错误之处是

A)数组定义语句不对，应改为Dim arr

B)没有指明For 循环的终值

C)应在For语句之前增加sum=0

D)Next a 应改为next

点击查看答案

第10题

阅读程序：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

点击查看答案