洋河酒代理商:vb高手帮忙
来源:百度文库 编辑:高考问答 时间:2024/05/06 09:45:47
Private Sub Form_click()
Dim a(10) As Integer, min As Integer, max As Integer, i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
For i = 2 To 10
min = a(1)
max = a(1)
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Print a(i): max: min
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
'试着参照对比一下。
把
min = a(1)
max = a(1)
放到 For i = 2 To 10 前面
.....
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
min = a(1)
max = a(1)
For i = 2 To 10
If a(i) > max Then
max = a(i)
End If
....
还有 Print a(i): max: min 这里把冒号改成分号 >>>> ;
就行了
Private Sub Form_click()
ME.Cls
Randomize
Dim a(10) As Integer, min As Integer, max As Integer, i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
Print "a(1) ="; a(1)
min = a(1)
max = a(1)
For i = 2 To 10
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Print "a(" & i & ") ="; a(i)
Next i
Print "max ="; max
Print "min ="; min
End Sub