VB高手请帮帮我,万分感激你!

发布网友发布时间：2024-09-30 05:18

共1个回答

热心网友时间：2024-10-31 06:47

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

没上机实验，应该是对的