以下程序的功能是由随机函数产生100个在100~600间的整数,然后找出其中最大者,并记下是第几个数。请填空。 Private Sub Form_Click( ) Dim a(1 to 100)As Integer For j = 1 To 100 a(j)=Int(501*Rnd + 100) Print a(j); Next j Print P = 1 Max = 【 】 For j = 2 To 100 If a(j)>Max Then Max=a(j) P= 【 】 End If Next j Print ′′最大值是:′′;Max Print ′′最大值的下标是:′′; P End Sub