假定有如下程序: Private Sub Form_Click() Dim a(4)As Integer,b(4)As Integer For k=0To2 a(k+1)=Val(InputBox("请输入一个整数:")) b(3-k)=a(k+1) Ne

admin2016-09-19  34

问题 假定有如下程序:
Private Sub Form_Click()
Dim a(4)As Integer,b(4)As Integer
For k=0To2
a(k+1)=Val(InputBox("请输入一个整数:"))
b(3-k)=a(k+1)
Nextk
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/8KLp777K
0

最新回复(0)