多个数据中找中位数vba代码
答案:1 悬赏:0 手机版
解决时间 2021-03-03 16:19
- 提问者网友：蓝莓格格巫
- 2021-03-03 04:22
多个数据中找中位数vba代码
最佳答案
- 五星知识达人网友：狂恋
- 2021-03-03 05:01
Sub s()
Const n = 100
Dim a#(n)
For i = 1 To n
a(i) = InputBox("请输入第" & i & "个数")
Next
For i = 1 To n
For j = 1 To n - i
If a(j) > a(j + 1) Then
tmp = a(j)
a(j) = a(j + 1)
a(j + 1) = tmp
End If
Next
Next
If n Mod 2 Then
MsgBox ("中位数为" & a(n \ 2))
Else
MsgBox ("中位数为" & (a(n / 2) + a(n / 2 + 1)) / 2)
End If
End Sub
Const n = 100
Dim a#(n)
For i = 1 To n
a(i) = InputBox("请输入第" & i & "个数")
Next
For i = 1 To n
For j = 1 To n - i
If a(j) > a(j + 1) Then
tmp = a(j)
a(j) = a(j + 1)
a(j + 1) = tmp
End If
Next
Next
If n Mod 2 Then
MsgBox ("中位数为" & a(n \ 2))
Else
MsgBox ("中位数为" & (a(n / 2) + a(n / 2 + 1)) / 2)
End If
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯