随机产生10个两位正整数存入数组A（10）中，找出其中的降序数

·

帮你写了一下，你测试下，要有问题，百度消息我。。。

发消息给我时加上本页网址。

Private Sub Form_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim str As String

str="数组a："
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
str = str & "," & a(i)
Next i
print str
str="降序数有："
For i = 1 To 10'得到降序数
If a(i) \ 10 > a(i) Mod 10 Then str = str & "," & a(i)
Next

print str
Print " "
Print " "
End Sub

PS:惭愧，之前把一个简单的问题复杂化了。。

·