VB 求中位数

[复制链接]
查看11 | 回复1 | 2011-5-19 12:49:24 | 显示全部楼层 |阅读模式
Dimi1AsSingle
Dimwendu_i1(1To10)AsSingle
求这十个数的中位数
要怎么编程谢啦
回复

使用道具 举报

千问 | 2011-5-19 12:49:24 | 显示全部楼层
dimmidassingle
dimnum(10)assingle
fori=1to9
forj=ito9
ifnum(j)num(j1)then
mid=num(j)
num(j)=num(j1)
num(j1)=mid
endif
next
next
mid=num(4)/2num(5)/2
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行