21 Сентябрь 2011

Получить массив и в нем найти числа больше 7

Массив |  Таги:

Получить массив и в нем найти числа больше 7

Private Sub Command1_Click()
Dim a() As Integer, I As Integer, J As Integer, k As Integer
ReDim a(1 To 23, 1 To 43)
k = 0
For I = 1 To 23
For J = 1 To 43

If I > J Then a(I, J) = I

If I = J Then a(I, J) = I + 8 * J

If I < J Then a(I, J) = J

Print a(I, J);
Print ;
If a(I, J) > 7 Then k = k + 1

Next
Next
Print ;
MsgBox "Количество элементов, которые больше семи - " & k & " шт"
End Sub

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



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

Я не робот.