VB高手请帮帮我，万分感激你！

来源：百度知道 编辑：UC知道 时间：2024/05/22 00:29:25
请帮忙写一下以下三道题要求的程序代码，谢谢了！

1，在窗体上画一个名称为command1的命令按钮，完善以下程序。实现通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

2，单击命令按钮command1的命令按钮时，生成20个(0,100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。

3，某次比赛，有七个裁判打分，输入七个裁判的打分分数后，去掉最高和最低分，并求出平均分。

1,关键，中间变量tmp,1-10，2-9的关系，A-B，B=11-A
private sub command1_click()
for i=1 to 5
tmp=a(i)
a(i)=a(11-i)
a(11-i)=tmp
next
end sub

2,关键问题，随机数相关，条件判断
private sub command1_click()
randomize'随机种子按照TIMER生成，不明白去看书
dim ary(19)
dim arysum
arysum=0
for i=0 to 19
ary(i)=int(rnd*100)
if ary(i)>20 then
me.print ary(i)
arysum=arysum+ary(i)
end if
next
end sub

3,排序
private sub command1_click()
dim a(6)
dim tmp
for i=0 to 6
a(i)=inputbox("输入裁判" & i & "的分数")
next
'开始排序,这不是最好的方法,从小到大
for x=0 to 5
for y=x to 6
if a(x)>a(y) then
tmp=a(x)
a(x)=a(y)
a(y)=tmp
next
next
print "最高分:" & a(6)
print "最低分:" & a(0)
dim allsum
for i=1 to 5
allsum=allsum+a(i)
next
print "平均分:" & allsum/5
end sub

没上机实验，应该是对的