[单选题]

设执行以下程序段时依次输入1、3、5，执行结果为______ 。 Dim a(4)As Integer Dim b(4) As Integer For K=0 To 2 a(K+1)=Val(1nputBox(“请输入数据：”)) b(3-K)=a(K+1) Next K Print b(K)

A．1

B．3

C．5

D．0

参考答案与解析：

相关试题

设执行以下程序段时依次输入2,4,6,执行结果为 Dim a(4)As Inte

[单选题]设执行以下程序段时依次输入2，4，6，执行结果为D．im a(4)As IntegerD．im b(4)AS IntegerF．or k=0 To 2a(k+1)=Val(InputBox("Enter data："))b(3 - k) =a(k + 1)Next kPrint b(k)A．2B．4C．6D．0

  • 查看答案

    • 以下程序段的执行结果是 ______。Dim A(3, 3)For m = 1

    [单选题]以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next mA． 1 1 1 1 1 1 1 1 1B．2 0 4 0 4 0 4 0 6C

  • 查看答案

    • 下列程序段的执行结果为______ 。Dim A(4)N= 3A(1) =1Fo

    [单选题]下列程序段的执行结果为______ 。 Dim A(4) N= 3 A(1) =1 For K=0 To N-1 For L=1 To K+1 X=K+2 -L A(X)=A(X)+A(X-1) If K＜N-1 Then Exit For Print A(X)； Next L Next KA． 1 2 1B．1 2 3C．2 4 6D．1 3 1

  • 查看答案

    • 执行下列程序段时,分别在输入框中输入2、4、6,则执行结果是______。Dim

    [单选题]执行下列程序段时，分别在输入框中输入2、4、6，则执行结果是______。 Dim A(4) As Integer Dim B(4) As Integer For i = 0 To 2 A(i + 1) = Val (InputBox (“请输入数据”)) B(3 - i) = A(i + 1) Next i Print B(i)A．2B．4C．6D．8

  • 查看答案

    • 下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For

    [单选题]下列程序段的执行结果为D．im A(3,3)F．or M=1 To 3F．or N =1 To 3If N=M Or N=3-M+1 ThenA．(M,N)=1E．lseA．(M,N)=0E．nd IfNext NNext MF．or M=1 To 3F．or N=1 To 3Print A(M,N)Next NPrintNext MA．1 0 0 0 1 0 0 0 0B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1

  • 查看答案

    • 下列程序段的执行结果为______。Dim A(3,3)For M=1 To 3

    [单选题]下列程序段的执行结果为______。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M 0r N=3-M+1 Then A(M，N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M， N)； Next N Print Next MA．1 0 0 0 1 a 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0

  • 查看答案

    • 下列程序段的执行结果为()。Dim A(3,3)For M=1 To 3 For

    [单选题]下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1

  • 查看答案

    • 下列程序段的执行结果为______。Dim A(10),B(5)For i=1

    [单选题]下列程序段的执行结果为______。 Dim A(10),B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="; A(5)A．A(5)=5B．A(5)=10C．A(5)=20D．A(5)=40

  • 查看答案

    • 下列程序段的执行结果为 ______。Dim A(10),B(5)For i=1

    [单选题]下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Pring"A(5)="；A(5)A．A(5)=5B．A(5)=10C．A(5)=20D．A(5)=40

  • 查看答案

    • 下列程序段的执行结果为()。Dim A(3,3)For M=1 To 3For

    [单选题]下列程序段的执行结果为( )。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M，N) Next N Print Next MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0

  • 查看答案