Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 1 из 1 |
[ Сообщений: 2 ] |
|
Автор | Сообщение | ||
---|---|---|---|
Maxpower55 |
|
||
|
|||
Вернуться к началу | |||
slava_psk |
|
||
Dim a(100) As Variant
Dim b(100) As Variant Private Sub Form_Load() For i = 1 To 100 a(i) = 10 * Rnd Next j = 0 For i = 1 To 100 If Abs(a(i)) <= 1 Then j = j + 1 b(j) = a(i) End If Next For i = 1 To 100 If Abs(a(i)) > 1 Then j = j + 1 b(j) = a(i) End If Next For i = 1 To 100 MsgBox b(i) Next End Sub |
|||
Вернуться к началу | |||
[ Сообщений: 2 ] |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |