VB语句哪里有错误？请指出来并改正谢谢~！PrivateSubCommand1Click()Dima(1To10)AsIntegerDimi,max,minAsIntegerFori=1To10a(i)=100+Int(Rnd*999)NextiFori=1To10Printa(i)Nextimax=a(1)min=a(1)Fo

Question

VB语句哪里有错误？请指出来 并改正 谢谢~！Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i, max, min As Integer For i = 1 To 10 a(i) = 100 + Int(Rnd * 999) Next i For i = 1 To 10 Print a(i) Next i max = a(1) min = a(1) For i = 20 To 10 If a(i) > max Then max = a(i) End If If a(i) < min Then min = a(i) End If Next Print "min" =: min , "max" =: max End Sub

Answer 1

这可能是你要的: Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i, max, min As Integer For i = 1 To 10 a(i) = 100 + Int(Rnd * 999) Next i For i = 1 To 10 Print a(i) Next i max = a...