微信扫一扫
随时随地学习
当前位置 :
VB中有个错误,下标越界,下列程序是求任意排列数的逆序数.所谓逆序数就是排列数中每一位元素比左边所有元素小的个数.例如:26154,2排在首位,左边没有元素,它的逆序数为0;6左边没有比它
1人问答
更新时间:2024-03-28
问题描述:

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

贺庆丽回答:
  PublicSubfunl(b,byValx,n)   ReDimb(m)'这里的m没有值   k=m   Do   b(k)=xMod10   x=x10   k=k-1   LoopWhilex>0   EndSub
最新更新
PC端 | 移动端 | mip端
字典网(zidianwang.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
电话:  邮箱:
Copyright©2009-2021 字典网 zidianwang.com 版权所有 闽ICP备20008127号-7
lyric 頭條新聞