Question

求VB大神帮助，这个怎么做呢

'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)生成一个一维数组(10个数组元素依次为：
' 15、23、72、43、96、23、3、65、88、17)，
' 写程序求出这个数组中的最大值、最小值和平
' 均值，并输出在窗体上。
' 将最大值，最小值，平均值分别存入变量
' Max,Min,Aver中
'-------------------------------------------------
Private Sub Form_Click()
Dim max, min, aver As Integer
'*********** Program **********

'********** End **************
Call YZJ(max, min, aver)
End Sub

Private Sub YZJ(ByVal i As Integer, ByVal j As Integer, ByVal k As Integer)

Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\15.out" For Output As #OUT
Print #OUT, i, j, k;
Close #OUT
End Sub

Answer 1

Private Sub Form_Click()
Dim max, min, aver As Integer
 a = Array(15, 23, 72, 43, 96, 23, 3, 65, 88, 17)
 max = a(0): min = a(0): Sum = a(0)
 For i = 1 To 9
   If a(i) > max Then max = a(i)
   If a(i) < min Then min = a(i)
   Sum = Sum + a(i)
 Next i
 aver = Sum / 10
 Call YZJ(max, min, aver)
End Sub

追问

你有题库么？可以发我一份?353921498

追答

没有

Answer 2

for i=0 to 8
for j=1 to 9
if a(i)<a(j) then
k=a(i)
a(i)=a(j)
a(i)=k
end if
next j
next i
k=0
for i=0 to 9
k=k+a(i)
next i
k=k/10
i=a(0)
j=a(9)