[单项选择题] 如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8156则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Com

[单项选择题] 如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8156则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Command1_Click()Dim n As LongDim flag As Booleann=InputBox(“输入一个正整数”)s=Trim(Str(n))For i=2 To Len(s)If Mid(s,i-1,1) Next iIf i=Len(s) Then flag=True Else flag=FalseIf flag ThenPrint n ; “是降序数”ElsePrint n ; “不是降序数”End IfEnd 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

B