日本医生检查身体内射:vb高手帮忙
Private Sub Command1_Click()
Dim Arr(10) As Integer
Dim I As Integer
Dim Max As Integer
Dim Min As Integer
'为数组随机赋值
For I = 0 To 10
'指定为从10到99之间的数
Arr(I) = Int(Rnd() * 89 + 10)
Next I
Max = Arr(0)
Min = Arr(0)
'求最大值和最小值
For I = 1 To 10
If Arr(I) > Max Then
Max = Arr(I)
End If
If Arr(I) < Min Then
Min = Arr(I)
End If
Next I
End Sub
Private Sub Form_Click()
Dim a(10) As Integer
Dim Max As Integer
Dim Min As Integer
Dim Sum As Integer
Randomize Timer
Min = 100
For i = 1 To 10
a(i) = Rnd * 90 + 10
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Sum = Sum + a(i)
Print a(i);
Next
Print
Print "The max number is"; Max
Print "The min number is"; Min
Print "The average is"; Sum / 10
End Sub