随机产生10个10~100的任意的正整数，要求用选择排序法进行递增排序后，再插入一个数，保持原顺序不变。

Question

用VB语言编写
1.随机产生10个数，存放在一个整数类型的动态数组中，并娴熟数据。
2.用选择排序法递增排序，并显示。
3。插入一个数key=val(textbox1.text),保持原顺序不变并显示。

Answer 1

Dim i, t, j As Integer
Dim a(10) As Integer
For j = 1 To 10
a(j) = Rnd() * 101
Next
For i = 1 To 10
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
Next
For j = 1 To 10
Label1.Text += a(j).ToString + vbCrLf
Next本回答被提问者采纳