如果一个正整数从高位到低位上的数字一次递减，则称为降序数(如9631,9772是降序 数，而7245则不是降序数)。在文本框Textl中输入一 个正整数，单价“
Private Sub Command 1 _Click()Dim i As Integer, s As String, flag As Boolean
flag=True : i=2
Do While i<=Len(s) And flag
If ______________ Then flag= false
i=i+l
Loop
If flag Then
Label2.Caption=s+”是降序数！”
Else
Label2.Caption=s+”不是降序数！”
End If
End Sub
