24 Декабрь 2009

Заполнить массив А[200] случайными целыми числами x[0,1000] и посчитать их сумму

Задачи |  Таги: , , , , , ,

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

Запись опубликована on 24.12.2009 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.