如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如: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)
单选题
如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如: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)