VB程序设计，随机产生10个三位正整数，输出并按升序排序，插入一个新数据，使数组仍按升序排列。

Question

VB程序设计，随机产生10个任意的三位正整数存放在一位数组中，输出该数组，并按升序排序，使用InputBox函数在数组中插入一个新数据，使数组仍按升序排列。程序运行界面内容为3个命令按钮，从左到右依次为“产生随机数”“升序排列”和“插入新数据”。
由于本人资格不够，悬赏值仅为10，谢谢您的帮助！
已经提高悬赏到30啦！大家快帮我来解答呀！

Answer 1

Dim jz() As Long '定义数组
Private Sub rank(n As Integer, a() As Long) '升序排列过程(冒泡排序法)
For i = 0 To n - 1
flag = 0
For j = n To i + 1 Step -1
If a(j - 1) > a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t: flag = 1
End If
Next j
If flag = 0 Then Exit For
Next i
End Sub

Private Sub Command1_Click() '生成10个随机数
ReDim jz(9) As Long
For i = 0 To 9
Randomize '随机种子
jz(i) = Int(Rnd * 899) + 100 '生成100-999的随机数
Next i
End Sub

Private Sub Command2_Click() '按升序排序
rank UBound(jz), jz '排序
For i = 0 To UBound(jz) '显示排序后内容
Print jz(i)
Next i
End Sub

Private Sub Command3_Click() '插入新数据
Dim NewN As Long
NewN = Val(InputBox("请输入新数据:"))
If NewN > 0 Then
ReDim Preserve jz(UBound(jz) + 1) As Long
jz(UBound(jz)) = NewN
End If
rank UBound(jz), jz '排序
For i = 0 To UBound(jz) '显示排序后内容数组
Print jz(i)
Next i
End Sub

此法可以多次插入数据

Answer 2

Dim a(1 To 11) As Integer
Private Sub Command1_Click()
Dim i As Integer, iMax As Integer
For i = 1 To 10
a(i) = Int(Rnd * 899 + 100)
Print a(i);
Next i
Print
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 10 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
Private Sub Command3_Click()
Dim n As Integer, i As Integer, j As Integer, k As Integer
n = Val(InputBox("enter data 插入数字"))
For i = 1 To 10
If n <= a(i) Then Exit For
k = k + 1
Next i
For j = 10 To k Step -1
a(j + 1) = a(i)
Next j
a(k) = n
For i = 1 To 11
Print a(i);
Next i
End Sub追问

谢谢您！

追答

请采纳我的回答哟！好辛苦的！

追问

额？请问回答在哪儿？