有关VB的一个循环题判断一个正整数是不是降序数,即从高位到低位依次递减判断一个正整数是不是降序数,即从高位到低位依次递减DimnaslongDimflagasbooleamN=inputbox(“输入一个正整数”)S=trim

Question

有关VB的一个循环题 判断一个正整数是不是降序数,即从高位到低位依次递减
判断一个正整数是不是降序数,即从高位到低位依次递减
Dim n as long
Dim flag as booleam
N=inputbox(“输入一个正整数”)
S=trim(str(n))
For I =2 to len(s)
If mid (x,i-1,1)

Answer 1

因为FOR循环正常结束后 For I =2 to len(s) I 的值是最大值 +1而不是最大那个值.