vb编程题目

vb编程题目请问这道题怎么做？

2025-04-15 12:49:02

推荐回答（1个）

回答1：

Private Sub Form_Activate()
Label1.BorderStyle = 1
Label1.Caption = ""
Dim a%(1 To 10), i%, max%, min%, sum!, avg!
For i = 1 To 10
a(i) = Int(Rnd * (100 - 30 + 1) + 30)
Label1.Caption = Label1.Caption & a(i) & " "
Next i
max = a(1)
min = a(1)
sum = a(1)
For i = 2 To 10
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Label1.Caption = Label1.Caption & vbCrLf & "min=" & min & " max=" & max & " aver=" & Round(sum / 30, 1)
End Sub