
统计一组数中相同数的个数 用vb或者c编写 急急急,在线等,给思路也行
2个回答
展开全部
VB 将这组数存入数组a(0 to 99) 中,代码自己写。假设有100个数 ,
dim i as integer,j as integer , k as integer ,n as integer,m as integer
dim b() as integer '二维数组,用于存放比对结果
m=0 '用于计算有多少个数存在重复
for i =0 to 98
n=1 '用于计算某数重复多少次
for k=0 to m-1 '循环判断该数是否已比对过
if a(i)=b(0,k) then exit for
next k
if k>=m then '没比对过
for j=i+1 to 99
if a(i)=a(j) then n=n+1
next j
if n>1 then
m=m+1
redim preserve b(2,m)
b(0,m-1)=a(i)
b(1,m-1)=n
end if
end if
next i
'打印比对结果
for i=0 to m-1
print "数字" & b(0,i) &"共有" & b(1,i) &"个"
next i
纯手工输入,没测试,如有些许错误,请自行修改。
dim i as integer,j as integer , k as integer ,n as integer,m as integer
dim b() as integer '二维数组,用于存放比对结果
m=0 '用于计算有多少个数存在重复
for i =0 to 98
n=1 '用于计算某数重复多少次
for k=0 to m-1 '循环判断该数是否已比对过
if a(i)=b(0,k) then exit for
next k
if k>=m then '没比对过
for j=i+1 to 99
if a(i)=a(j) then n=n+1
next j
if n>1 then
m=m+1
redim preserve b(2,m)
b(0,m-1)=a(i)
b(1,m-1)=n
end if
end if
next i
'打印比对结果
for i=0 to m-1
print "数字" & b(0,i) &"共有" & b(1,i) &"个"
next i
纯手工输入,没测试,如有些许错误,请自行修改。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询