VB編程十個數字比較大小怎麽用代碼表示

Private Sub Command1_Click()

Dim i, j, intmin As Integer, n As Integer

Dim sngsq(), sngt As Single '輸入原始數據

n = Val(InputBox("請輸入排序的個數N的值"))

ReDim sngsq(n) '重新定義數組

Print "排序前"

For i = 1 To nsngsq(i) = Val(InputBox("請輸入第" & Str(i) & "個數:")) '將輸入的數據轉換為數值型

Print sngsq(i);

Print "排序後"

'排序

For i = 1 To n - 1

intmin = i '對第i遍排序，初始假定第i個元素最小

For j = i + 1 To n '找出最小的元素序號

If sngsq(j) < sngsq(intmin) Then intmin = j

Next j

'將找出的最小元素與第i個元素交換

sngt = sngsq(i)

sngsq(i) = sngsq(intmin)

sngsq(intmin) = sngt

Next i

'打印輸出

For i = 1 To n

Print sngsq(i); '不換行輸出

Next i

End Sub