Vb 用自定义函数求数组最大值！求帮助！

用随机函数生成一个有10个人100~200之间元素的数组，在label1中显示，使用自定义函数来求数组中最大元素，在label2种显示！

Private Sub Command2_Click()
Dim i As Integer
Dim s As String

Randomize
For i = 0 To 9
a(i) = Rnd * 100 + 100
s = s & Str(a(i))
Next i
Label1.Caption = s
End Sub

Private Function GetMax() As Integer
Dim i As Integer
Dim imax As Integer

For i = 0 To 9
If a(i) > imax Then imax = a(i)
Next i
GetMax = imax
End Function

Private Sub Command3_Click()
Label2.Caption = Str(GetMax)
End Sub

dim a(1 to 30) dim max, min, pv private sub command1_click() max = a(1) min = a(1) pv = (1 / 30) * a(1) for i = 2 to 30 if a(i) > max then max = a(i) if a(i) < min then min = a(i) pv = pv + (1 / 30) * a(2) next i print "最大数为：", max print "最小数为：", min print "平均数为：", pv print end sub private sub command2_click() print "删除后的数组为：" for i = 1 to 30 if a(i) >= pv then print a(i); m = m + 1 end if if m mod 10 = 0 then print next i end sub private sub form_load() show print "原始数组为" '给数组赋值， 你可以采用其他方法赋值，比如逐个输入！ randomize for i = 1 to 30 a(i) = int(rnd * 99 + 1) '这里产生的都是100以内的整数 print a(i); if i mod 10 = 0 then print next i print end sub

Function max(d() As Integer) s = 0     For i = 0 To UBound(d) - LBound(d)         If s < d(i) Then s = d(i)     Next     max = s End Function Private Sub Command1_Click() Label1.Caption = "" Dim d(10) As Integer For i = 0 To 10 Randomize d(i) = Int(Rnd * 101 + 100) Label1.Caption = Label1.Caption & " " & d(i) Next Label2.Caption = max(d) End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息