vb中 求数组中的最大值，最小值的平均值
利用随机函数产生[50,100]范围内的20个随机整数函数A)保存到名称为a的数组中，并显示该数组中的所有数组元素值B)然后求该数组中的最大值，最小值的平均值...
利用随机函数产生[50,100]范围内的20个随机整数函数
A) 保存到名称为a的数组中，并显示该数组中的所有数组元素值
B) 然后求该数组中的最大值，最小值的平均值 展开
A) 保存到名称为a的数组中，并显示该数组中的所有数组元素值
B) 然后求该数组中的最大值，最小值的平均值 展开
1个回答
展开全部
dim a(19) as integer, imax as integer, imin as integer, i as integer
imax=49
imin=101
for i=0 to 19
a(i)=int(rnd*51)+50
if imax<a(i) then imax=a(i)
if imin>a(i) then imin=a(i)
print a(i),
next
print
print "最大值和最小值的平均值是：";(imax+imin)/2
imax=49
imin=101
for i=0 to 19
a(i)=int(rnd*51)+50
if imax<a(i) then imax=a(i)
if imin>a(i) then imin=a(i)
print a(i),
next
print "最大值和最小值的平均值是：";(imax+imin)/2
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
