求助：用VB編程，數據由兩邊向中間遞減

Me.Cls

Dim n As Integer, c() As Integer, k As Integer, d() As Integer

For i = 0 To 4

n = n + Val(Text1(i).Text)

Next

ReDim c(n - 1) As Integer

ReDim d(n - 1) As Integer

k = 0

For i = 0 To 4

For j = 1 To Val(Text1(i).Text)

c(k) = Val(Combo1(i).Text)

Print c(k); Space(1);

k = k + 1

Next

Next

Print

For i = 0 To n - 1 '排序

For j = i + 1 To n - 1

If c(i) < c(j) Then

temp = c(i)

c(i) = c(j)

c(j) = temp

End If

Next j

Next i

If n Mod 2 <> 0 Then '判斷總數據數是奇數還是偶數

d(n \ 2) = c(n - 1) '如果是奇數數，將最中間的數值賦值為最小數

End If

For i = 0 To n \ 2 - 1

d(i) = c(i * 2)

d(n - i - 1) = c((i + 1) * 2 - 1)

Next

For i = 0 To n - 1

Print d(i); Space(1);

Next

End Sub

Private Sub Form_Load()

For i = 0 To 4

Combo1(i).AddItem "20"

Combo1(i).AddItem "40"

Combo1(i).AddItem "45"

Combo1(i).AddItem "50"

Combo1(i).AddItem "70"

Combo1(i).Text = Combo1(i).List(i)

Next

End Sub