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

Sub bb()
Dim a(10) As Integer
For i = 0 To 9
a(i) = Int(Rnd() * 91) + 10
Next

For i = 0 To 9'判断升序数
If a(i) \ 10 < a(i) Mod 10 Then MsgBox a(i)
Next

End Sub

·

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

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

一个程序回答两个人(稍有改动)。。。。呵呵

Private Sub Form_Click()
Dim a(1 To 10) As Integer
Dim b(1 To 10) As Integer
Dim i As Integer
Dim j As Integer
Dim t 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 j = 1 To 10
b(j) = j
str = str & "," & b(j)
Next j
print str

For j = 1 To 10
For i = 10 To j Step -1
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
t = b(i): b(i) = b(j): b(j) = t
End If
Next i <