求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按

求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按

Dim r(9) As IntegerPrivate Sub Command1_Click() '产生随机数Dim i As IntegerRandomizeFor i = 0 To 9 r(i) = Int(Rnd * 90) + 10 Picture1.Print r(i);NextPicture1.PrintEnd SubPrivate Sub Command2_Click() '排序Dim i As Integer, j As Integer, k As IntegerFor i = 0 To 8 For j = i + 1 To 9 If r(i) k = r(i): r(i) = r(j): r(j) = k End If Next Picture1.Print r(i);NextPicture1.Print r(9)End SubPrivate Sub Command3_Click() '退出EndEnd Sub

我检查一下我的答案