利用随机函数形成50～200范围内的30个随机数 bvbvbv

来源：百度知道 编辑：UC知道 时间：2024/05/27 18:08:30
我在线等！！～哥哥姐姐们谢谢了
利用随机函数形成50～200范围内的30个随机数，先显示其中最大数、最小数和平均数，然后将其从大到小排序，再全部输出

dim a(30) as integer
dim max,min,aver
max=0
min=300
aver=0
for i=1 to 30
a(i)=int(50+151*rnd())
if max<a(i) then max=a(i)
if min>a(i) then min=a(i)
aver=aver+a(i)
next
textbox1.text="MAX=" & max & ",MIN=" & min & ",AVER=" aver
for i=1 to 29
for j=i+1 to 30
if a(i)<a(j) then
t=a(i):a(i)=a(j):a(j)=t
end if
next
next
for i=1 to 30
textbox2.text=textbox2.text & vbCrLf & a(i)
next
以上程序在VB上运行

什么语言？