vb题：输入20个任意数放入数组a，把其中的整数放入数组b，排序后将所有整数输出。

vb题：输入20个任意数放入数组a，把其中的整数放入数组b，排序后将所有整数输出。

Private Sub Command1_Click()
  Cls
  Randomize (Timer)
  Dim a(19) As Single, b() As Long
  For i = 0 To 19
    a(i) = Rnd * 10000000
    Print a(i);
    If (i + 1) Mod 10 = 0 Then Print
    If Int(a(i)) = a(i) Then
      ReDim Preserve b(k)
      b(k) = a(i)
      k = k + 1
    End If
  Next i
  Print
  For i = LBound(b) To UBound(b) - 1
    For j = i + 1 To UBound(b)
      If b(j) < b(i) Then
        t = b(i)
        b(i) = b(j)
        b(j) = t
      End If
    Next j
  Next i
  For i = LBound(b) To UBound(b)
    Print b(i);
    If (i + 1) Mod 10 = 0 Then Print
  Next i
End Sub

这你都不会写？你学过VB吗？

C语言中数组都是有类型定义的，不存在“任意数”吧。

容易