【单选题】如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如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 ...
【单选题】如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如: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 M...
【单选题】如果一个正整数从高位到低位上的数字依次递减, 则称其为降序数,如:9632是降序数, 而8516则不是降序数)。现编写如下程序, 判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n = InputBox("输入一个正整数") s = Trim(Str(n)) For i = 2 To Le...