判断是否是降序数

Option Explicit
Private Sub Command1_Click()
Dim i%, n As String, flag As Boolean
n = inputbox("输入")'通过对话框输入数据
flag = False
For i = Len(n) to 2 step -1' Len(n)测试字符串长度
If Mid(n, i , 1) > Mid(n, i - 1, 1) Then ' 判断
flag = true' 设置判断标记
Exit For
End If
Next i
If flag = true Then
Label1.Caption = n & "不是降序数"
Else
Label1.Caption = n & "是降序数"
End If
End Sub