End
End Sub
Private Function sx(ByVal n As Integer As Boolean Dim a( As Integer, k As Integer, i
As Integer
Do
k = k + 1
ReDim Preserve a(k
a(k = n Mod 10
n = n \ 10
Loop Until n <= 0
For i = 1 To UBound(a - 1
If a(i + 1 >= a(i Then Exit Function
Next i
sx = True
End Function
9-4
Option Explicit
Private Sub Command1_Click(
= ""