同一组数据要在不同的按钮事件中进行不同的计算

'command1为控件数组0-4
Option Explicit
Dim arr()
Private Sub Command1_Click(Index As Integer)
　　Dim n
　　Select Case Index
　　Case 0: setdata
　　Case 1: Label1 = "均值：" & getaverage
　　Case 2: Label1 = "最大值：" & getmax
　　Case 3: Label1 = "最小值：" & getmin
　　Case 4: init
　　End Select
End Sub
Private Sub Form_Load()
　　Dim temp, i
　　temp = Split("生成随机数列,均值,最大值,最小值,清除", ",")
　　For i = 0 To Command1.ubound
　　　　Command1(i).Caption = temp(i)
　　Next
　　init
End Sub
Function setdata()
　　Dim i
　　List1.Clear
　　For i = 1 To UBound(arr)
　　　　Randomize: arr(i) = Int(Rnd * 151 + 50)
　　　　List1.AddItem arr(i)
　　Next
End Function
Function getaverage()
　　Dim i
　　For i = 1 To UBound(arr)
　　　　getaverage = getaverage + arr(i)
　　Next
　　getaverage = getaverage / UBound(arr)
End Function
Function getmax()
　　Dim i
　　For i = 1 To UBound(arr)
　　　　If i = 1 Then
　　　　　　getmax = arr(i)
　　　　Else
　　　　　　If getmax < arr(i) Then getmax = arr(i)
　　　　End If
　　Next
End Function
Function getmin()
Dim i
　　For i = 1 To UBound(arr)
　　　　If i = 1 Then
　　　　　　getmin = arr(i)
　　　　Else
　　　　　　If getmin > arr(i) Then getmin = arr(i)
　　　　End If
　　Next
End Function
Function init()
　　ReDim arr(1 To 20)
　　Label1.Caption = ""
　　List1.Clear
End Function