题目内容
（请给出正确答案）
[单选题]
执行以下程序时，则输出结果为______。 Dim a（) = {1, 3, 5, 7}, b（4) , i As Integer For i = 0 To 2 b（3 - i) = a（i + 1) Next i MsgBox（b（i))
A.0
B.1
C.3
D.5
提问人：网友zhgj25
发布时间：2022-01-07
如搜索结果不匹配，请 
A、49
B、0
C、不确定
D、程序出错
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“执行以下程序时，则输出结果为______。 Dim a（) …”相关的问题
第1题
以下程序的输出结果是（ ）。 Dim a%( ) = { 1, 2, 3, 4, 5, 6, 7 }, i% For i = 0 To a.GetUpperBound(0) a(i) = a(i) * a(i) Next MsgBox( a(i) )
第2题
设有如下程序 Option Base 1 Dim a As Variant Private Sub Cmd1_Click() Dim n As Integer a = Array(12, 9, 13, 5, 8, 16, 7, 3, 18, 3) Call geta(n) Print n End Sub Private Sub geta(j As Integer) Dim n As Integer, c() As Integer n = UBound(a) j = 0 For i = 1 To n If a(i) / 2 = a(i) \ 2 Then j = j + 1 ReDim Preserve c(j) c(j) = a(i) End If Next End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 。
A、3
B、4
C、5
D、6
第3题
下列程序段的运行结果是( )。 Dim a a = Array(1, 3, 5, 7, 9, 11) For k = 0 To 2 Print a(5 - k) - a(k); Next k
A、10 7 4
B、10 6 2
C、9 5 3
D、10 6 3
第4题
1. 现有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i Print sum End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5
A、A
B、B
C、C
D、D
第7题
S=0 For n=1 to 10 If int(n/3)=n/3 then S=s+n Endif Next Debug.print s,n S和N的值
A、s=9,n=10
B、s=18,n=11
C、s=18,n=12
D、s=12,n=12
第9题
下列程序执行后，s的值为______。 Dim i%, j%, s% Dim a%() = {1, 2, 3, 4} j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i
A、4321
B、12
C、34
D、1234
第10题
运行以下程序，消息框中的输出结果为______。 Dim x$() = {"VB语言", "VB.Net语言", "C++语言", "C#语言"} MsgBox(x(Len(x(2)) - x.Length - x.Rank))
A、VB语言
B、VB.Net语言
C、C++语言
D、C#语言
