Private Sub cmdok_Click()Const n As Integer = 100Dim int1(0 To n) As SingleDim max As SingleDim min As SingleDim result As SingleDim int2 As IntegerFor int2 = 0 To nint1(int2) = Rnd * 1000Next int2max = int1(0)min = int1(0)result = int1(0)For int2 = 1 To nIf max < int1(int2) Then max = int1(int2)If min > int1(int2) Then min = int1(int2)result = result + int1(int2)Next int2txt1.Text = maxtxt2.Text = mintxt3.Text = result / (n+1)End Sub为什么n+1
參考答案:计算机编程题啊 应该是VB的吧
