Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму
Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму
2009-12-24 07:00 Александр
Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму
Dim myArray(200) As Integer
Dim amount As Long
Private Sub Command1_Click()
Randomize
For a = 0 To 200
myArray(a) = Rnd * 1000
Next a
For b = 0 To 200
amount = amount + myArray(b)
Next b
Label1.Caption = amount
End Sub