作业帮 > 英语 > 作业

用VB求最大值最小值和平均值

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:英语作业 时间:2024/08/08 08:38:15
用VB求最大值最小值和平均值
用VB求最大值最小值和平均值
dim arr,i
dim n_min,n_max,n_sum,n_av
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))
for i=1 to ubound(arr)
if n_min>clng(arr(i)) then n_min=clng(arr(i))
if n_max