当前位置 : 好句子 > 问答 > 小学 > 数学 > 【VB计算数组中相同数字的个数VB一维数...

【VB计算数组中相同数字的个数VB一维数组a(14)中,有一串不规则的数字,例如358132456654132,如何能计算出有多少个相同的数字?print有2个3有3个5有1个8有2个1以此类推】

更新时间:2024-04-17 01:52:45
问题描述:

VB计算数组中相同数字的个数

VB一维数组a(14)中,有一串不规则的数字,例如358132456654132,如何能计算出有多少个相同的数字?

print有2个3

有3个5

有1个8

有2个1

以此类推…

求高手解答,小弟不胜感激

刘科成回答:网友采纳

  Dima(14)AsInteger

  Dimb(10)AsInteger

  PrivateSubCommand1_Click()

  Fori=1To14

  a(i)=Int(100*Rnd())‘这里产生100以内的随机数,如要个位数,改成10

  Printa(i);

  Nexti

  Print

  Fori=1To14

  x=a(i)

  Do

  j=a(i)Mod10

  b(j)=b(j)+1

  x=x10

  LoopUntilx=0

  Nexti

  Fori=0To9

  Ifb(i)>0ThenPrint"有";b(i);"个";i

  Nexti

  EndSub

李东骞回答:网友采纳

  Fori=0TonForj=0TonIfd(j,1)-9999ThenIfa(i)=d(j,1)Thend(j,2)=d(j,2)+1ExitForEndIfElsed(j,1)=a(i)d(j,2)=1ExitForEndIfNextjNexti这一段不太懂,能加个注释吗?

刘科成回答:网友采纳

  说明:d是二维数组,第1维度存放找到的数字,第2维度存放找到了该数字几次。以“358132456654132”为例;d(1,1)里存放3,d(1,2)里存放3,表示3个3d(2,1))里存放5,d(2,2)里存放3,表示3个5d(3,1))里存放8,d(3,2)里存放1,表示1个8d(4,1))里存放1,d(4,2)里存放2,表示2个1d(5,1))里存放2,d(5,2)里存放2,表示2个2d(6,1))里存放4,d(6,2)里存放2,表示2个4d(7,1))里存放6,d(7,2)里存放2,表示2个6代码是从左到右扫描字符串(其实已经存入数组a()),Fori=0TonForj=0TonIfd(j,1)-9999Then'因为d()数组的第一维初始化都存放-9999表示还没有开始扫描如果不等于-9999,那么就是已经存放了找到的某个数字Ifa(i)=d(j,1)Then'这里,如果现在的a(i)与已经找到的某个数字相同d(j,2)=d(j,2)+1'那么,其第2维要加1,表示又一次找到的相同的数字ExitFor'既然找到了,内循环可以结束了EndIfElse'这是对应d()数组的第一维等于初始化的值-9999d(j,1)=a(i)'要这样理解,会运行到这里是基于:这个a(i)是第一次出现d(j,2)=1'这就是第一次出现的赋值ExitForEndIfNextjNexti

热门推荐

【客怀的意思【一首古诗】这首古诗的意思】 枫树一年四季的变化特征? 用代数式表示比m的相反数大1的数是()A.m+1B.m-1C.-m+1D.-m-1 【八年级物理题,这道题是不是错了啊将一个有某种材料制成的空心球放入甲液体中,小球漂浮在液面上;把它放入以液体中,小球沉入杯底.判断正确的是A材料密度一定小于家液体的密度B材料密】 【若ab互为相反数,c,d互为倒数,求20分之1(a+b+20)+cd的值】 用平方差公式计算9.8乘以10.2100²-99²+98²-97²+96²-95².+2²-1²第一题9.8乘以10.2第二题100²-99²+98²-97²+96²-95².+2²-1² 英语小报的英文怎么写 关于读书的广播稿150字左右不要太长简短些 “现在很多人,到什么地方先问‘有没有WiFi’,就是因为我们的流量费太高了!”这是李克强总理就这一“社会关切”的高度关切。回答4~5题。我们的流量费之所以高,从市场经济的角度 【大学理论力学的里力偶问题图上的力偶标的是顺时针,但题目中给的数值却是正的,那在列平衡方程是,M去正还是负?或者图上逆时针,而数值是负的.求教列平衡方程时,力偶M的符号取法.】 【椭圆的离心率为,x轴被曲线截得的线段长等于C1的长半轴长.(1)求C1,C2的方程;椭圆的离心率为,x轴被曲线截得的线段长等于C1的长半轴长.(1)求C1,C2的方程;(2)设C2与y轴的交点为M,过坐】 根据规律计算:1+3=4=2的平方;1+3+5=9=3的平方;1+3+5+7=16=4的平方.1+3+5+9+11+13+...+99=___=___的平方,1+3+5+7+9+11+13+...+(2n-1)=________ 【下列关于力的说法错误的是?A.力是物体对物体的作用B.力是改变物体运动状态的原因C.力是使物体运动的原因D.一个受力物体,同时也一定要施力物体】 某老工业企业,抓住国家调控机遇,淘汰落后的炼钢炼铁高炉,同时依托技术创新,通过技术改造提高产品的附加值,开发一批新产品。打破了节能的最大瓶颈,建立了能源管理中心 关于力的认识.下列说法中正确的是()A.力是物体对物体的作用B.力能使物体发生形变或改变物体运动状态C.物体间力的作用是相互的D.只有相互接触的物体才会产生力的作用