[VB解题]编写一个程序，找出随机生成的30个三位正整数中的升序数

[VB解题]编写一个程序，找出随机生成的30个三位正整数中的升序数

Option Explicit
Dim A(4, 5) As Integer
Private Sub command1_click()
Dim i As Integer, j As Integer
List1.Clear
Text1.Text = ""
Randomize
For i = 0 To 4
For j = 0 To 5
A(i, j) = Int(Rnd * 900 + 100)
If jx(A(i, j)) Then List1.AddItem A(i, j)
Text1.Text = Text1.Text + Str(A(i, j))
Next j
Text1.Text = Text1.Text + vbCrLf
Next i
End Sub
Private Function jx(ByVal n As Integer) As Boolean
If (n \ 100) < ((n \ 10) Mod 10) And ((n \ 10) Mod 10) < (n Mod 10) Then
jx = True
Else
jx = False
End If
End Function

Private Sub Command1_Click()
List1.Clear
Text1.Text = ""
Dim a(32) As Integer
Randomize
For i = 1 To 30
a(i) = Int(Rnd * 900) + 100
If sx(a(i)) Then List1.AddItem a(i)
Text1.Text = Text1.Text & a(i) & ","
If i Mod 6 = 0 Then Text1.Text = Text1.Text & Chr(13)
Next i
End Sub
Private Function sx(ByVal n As Integer) As Boolean
sx = False
If Mid(n, 1, 1) < Mid(n, 2, 1) And Mid(n, 2, 1) < Mid(n, 3, 1) Then sx = True
End Function

难呀

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息