Question

计算机VB程序设计

计算机VB程序设计急用，求大神指教

Answer 1

计算机VB程序设计：（这里直接显示）

Private Sub Command1_Click()
Dim A(1 To 10) As Integer
'产生10个[1，100]之间的不重复的数
For I = 1 To 10
  Randomize Time
CL:
  A(I) = Int(Rnd * 99) + 1
  For J = I + 1 To 9
    If A(J) = A(I) Then GoTo CL
  Next J
Next I
For I = 1 To 10 '把产生的10个数显示出来
  Print A(I) & "、";
Next I
Print
'把产生的数按从大到小的顺序排序
For I = 1 To 10
 Max = A(I): M = I
 For J = I + 1 To 10
  If A(J) > Max Then Max = A(J): M = J
     Next J
  K = A(I): A(I) = Max: A(M) = K
Next I
For I = 1 To 10  '排序后的数显示出来
  Print A(I) & "、";
Next I
Print
End Sub