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