如果一个正整数从高位到低位上的数字依次递减 则称其为降序数(如:9632是降序数 而8516则不是降序

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1 Click（） Dim n As Long Dim flag As Boolean n=InputBox("输入一个正整数") S=Trim(Str(n)) For i=2 To Len(s) If Mid(s，i-1，1)<Mid(S，i，1)Then Exit For Next i If i=Len(S)Then flag=True Else flag=False If flag Then Print n；"是降序数" Else Print n；"不是降序数" End If End Sub 运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。

A.If i=Len(s)+1 Then flag=False Else flag=True

B.If i=Len(s)+1 Then flag=True Else flag=False

C.If i=Len(s)-1 Then flag=False Else flag=True

D.If i=Len(s)-1 Then flag=True Else flag=False

请帮忙给出正确答案和分析，谢谢！