vb 数组关于VB的数组问题

关于VB的数组问题

Private Sub Form_Load() Dim a(1 To 10) As Double, temp As Double Dim i%, j% Dim b$ Rem 用InputBox输入10格数到数组a For i% = 1 To 10 a(i%) = InputBox("a(" & i% & ")=", "输入") Next i% Rem 用冒泡法对数组a从大到小排序 For i% = 1 To 9 For j% = i% + 1 To 10 If a(i%) < a(j%) Then temp = a(i%) a(i%) = a(j%) a(j%) = temp End If Next j% Next i% Rem 用a(1)到a(5),每两个数之间用两个空格隔开，组成字符串b$ b$ = a(1) For i% = 2 To 5 b$ = b$ & " " & a(i%) Next i% Rem 用text1显示b$ Text1.Text = b$ Rem 用a(6)到a(10),每两个数之间用两个空格隔开，组成字符串b$ b$ = a(6) For i% = 7 To 10 b$ = b$ & " " & a(i%) Next i% Rem 用text2显示b$ Text2.Text = b$ End Sub