Question

vb用inputbox输入10个整数然后把这些数按

vb用inputbox输入10个整数然后把这些数按

vb用inputbox输入10个整数，然后把这些数按由小到大顺序排列输出

Answer 1

Private Sub Command1_Click()

Dim a(10)

Print "原始整数为："

For i = 1 To 10

  a(i) = Val(InputBox("请输入第" & i & "个整数："))

  Print a(i);

Next i

Print

For i = 1 To 9

  For j = 1 To 10 - i

    If a(j) > a(j + 1) Then

      t = a(j): a(j) = a(j + 1): a(j + 1) = t

    End If

  Next j

Next i

Print "从小到大的整数："

For i = 1 To 10

  Print a(i);

Next i

Print

End Sub