Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Заполнить массив А[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


В избранное