假定有如下程序: Private Sub Form Click() Dim a(4)As Integer,b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox("请输入一个整数

admin2019-01-17  26

问题 假定有如下程序:
    Private Sub Form Click()
    Dim a(4)As Integer,b(4)As Integer
    For k=0 To 2
       a(k+1)=Val(InputBox("请输入一个整数:"))
    b(3-k)=a(k+1)
    Next k
    Print b(k)
    End Sub
    运行程序,单击窗体,依次输入3、6、9,输出结果为

选项 A、3
B、6
C、9
D、1

答案A

解析 本题在循环中输入数据,当第一次输入3的时候a(1)=3,b(3)=a(1)=3;当第二次输入6的时候a(2)=6,b(2)=a(2)=6:当第三次输入9的时候a(3)=6,b(1)=a(3)=9,跳出循环后k的值为3,将输出b(3)的值。
转载请注明原文地址:https://kaotiyun.com/show/USFp777K
0

最新回复(0)