Question

vb For循环每次循环减1结果输出为什么都一样？

代码是这样的
Private Sub Form_Click()
Dim I As Integer, x As Integer
For I = 1 To 10
x = InputBox("请输入", "输入")
Next I
For I = 10 To 1 Step -2
Print x;
Next I
我输入的是1~10
为什么输出来的结果是10个一样的值都是10？

Answer 1

For I = 10 To 1 Step -2
Print x;
Next I
因为你这里输出的是Print x;是X。你用的InputBox("请输入", "输入")输入最后一个数是10、所以X=10所以输出10
如果你写成Print i;就不会是输出10了

Answer 2

Private Sub Form_Click()
Dim I As Integer, x(1 to 10) As Integer
For I = 1 To 10
  x(i) = InputBox("请输入", "输入")
Next I
For I = 10 To 1 Step -2
    Print x(i);
 Next I