已解决问题
谷歌zqy1fc88d6b1用户在2013.01.15提交了关于“修真界败类用VB求最大值最小值和平均值。怎么办？”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-27T09:12:26。希望大家能够帮助她。详细问题描述及疑问：期待您的答案，谢了,下次有事儿别忘了找我 ！
用VB求最大值最小值和平均值。怎么办？
时间：2013.01.15 发布人：zqy1fc88d6b1
谷歌zqy1fc88d6b1用户在2013.01.15提交了关于“修真界败类用VB求最大值最小值和平均值。怎么办？”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-27T09:12:26。希望大家能够帮助她。
希望以下的回答，能够帮助你。用户名：andyseng
第1个回答
"dimarr,i
dimn_min,n_max,n_sum,n_**
arr="1,2,3,4,5,6,7,8,9,10,11,12"
arr=split(arr,",")
n_min=clng(arr(0))
n_max=clng(arr(0))
n_sum=clng(arr(0))
fori=1toubound(arr)
ifn_min>clng(arr(i))thenn_min=clng(arr(i))
ifn_max<clng(arr(i))thenn_max=clng(arr(i))
n_sum=n_sum+clng(arr(i))
next
n_**=n_sum/(ubound(arr)+1)
msgbox"最小值="&n_min&vbcrlf&"最大值="&n_max&vbcrlf&"平均值="&n_**"