小弟有2个问题想请教各位大虾！

Question

1.用mod取余,做个循环处理一下

Answer 1

用str转化为字符串
你想取那一位用mid

Answer 2

dim MyNum as IntegerMyNum = 123456
dim Str As String 
Str = cstr(MyNum)dim MyArray() as String
redim MyArray(Len(str))for i = 1 to Len(Str)
    ''这里用 MID 函数取出每个字符，再用 VAL 函数返回成数字排序
    ''这点东西你该自己写了
Next

Answer 3

1,n mod （i*10）
就是第i位的数，i从0到len(cstr(n))-1
2，冒泡法，循环赋值的问题，基本算法，不用问吧，这样的问题，我可以用数组来做，浪费点内存，但是代码简单.懒得写拉，给分吧，以后有高级点的问题我回答你。