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

[主观题]

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

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

查看答案

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

您可能会需要：

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

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

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

第1题

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

点击查看答案

第2题

有如下程序，运行后输出的是（)。Option Base 1Private Sub Commandl_click（)Dim aj（1 To 10)Forj=6

有如下程序，运行后输出的是()。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub

A．5

B．20

C．22

D．显示出错信息

点击查看答案

第3题

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

点击查看答案

第4题

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

点击查看答案

第5题

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

点击查看答案

第6题

有如下程序：Option Base 1Private Sub Form Click（）Dim arr,SumSum=0 arr=Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3=arr（i）//3 ThenSum=Sum+arr（i） En

A.25

B.26

C.27

D.28

点击查看答案

第7题

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

点击查看答案

第8题

有如下程序： Option Base 1 Private Sub Command1 Click（） Dim arr（10) arr=Array（10，35，28，9

有如下程序： Option Base 1 Private Sub Command1 Click（） Dim arr(10) arr=Array(10，35，28，90，54，68，72，90) For Eaeh a In arr If a＞50Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是（）。

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

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

C.应在For语句之前增加Sum=0

D.Next a应改为Next

点击查看答案

第9题

有如下程序，运行时输出的结果是 ______。Option Base 1Private Sub Command1_Click（)Dim a（3,3) A

有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub

A．0 1 2 1 2 3 2 3 4

B．3 4 5 4 5 6 5 6 7

C．1 3 5 3 5 7 5 7 9

D．2 4 6 4 6 8 6 8 10

点击查看答案

第10题

有如下程序：Option Base 1Private Sub Command1 Click（）Dim arr（10)arr=Array（10，35，28，90，54，

有如下程序：

Option Base 1

Private Sub Command1 Click（）

Dim arr(10)

arr=Array(10，35，28，90，54，68，72，90)