问题标题：
VB中有个错误,下标越界,下列程序是求任意排列数的逆序数.所谓逆序数就是排列数中每一位元素比左边所有元素小的个数.例如：26154,2排在首位,左边没有元素,它的逆序数为0；6左边没有比它
问题描述：
VB中有个错误,下标越界,
下列程序是求任意排列数的逆序数.所谓逆序数就是排列数中每一位元素比左边所有元素小的个数.例如：26154,2排在首位,左边没有元素,它的逆序数为0；6左边没有比它大的元素,逆序数为0；1左边的2和6元素比它大,它的逆序数为2；5左边只有6元素比它大,它的逆序数为1；4左边的5和6元素比它大,它的逆序数为2,统计得排列数26154的逆序数为0＋0＋2＋1＋2＝5.
OptionBase1
PrivateSubCommand1_Click()
Dimb()
s=Text1.Text
x=Val(s)
n=Len(s)
Callfunl(b,x,n)
Fori=2Ton
Forj=i-1To1Step-1
Ifb(i)0
EndSub
更新时间:2024-04-28
贺庆丽回答：
PublicSubfunl(b,byValx,n)
ReDimb(m)'这里的m没有值
k=m
Do
b(k)=xMod10
x=x10
k=k-1
LoopWhilex>0
EndSub
查看更多
