单项选择题

下列程序的输出结果是( )。Private Sub Command 1一Click() Dim arr(1 To 10) For i=1 To 10 arr(i)=1 Next i ForEach i In arr() arr(i)=arr(i)*2+1 Next i MsgBox arr(7)End Sub

A.1 1
B.13
C.15
D.17
题目列表

你可能感兴趣的试题

微信扫码免费搜题