Парни, помогите, пожалуйста, с программкой в строк 20. Работа с массивами - VB
Формулировка задачи:
Короче вот задание: "Массив состоит из 12 целых положительных и отрицательных чисел, каждое из которых находится в интервале от 2 до 12. Вывести на экран сначала положительные затем отрицательные числа."
Я пытался ее написать, получилось только разделить положительные и отрицательные оператором mod. Например:
а= 9 mod 2
if a <> 0 then
end if.
Заранее спасибо за помощь.
Я пытался ее написать, получилось только разделить положительные и отрицательные оператором mod. Например:
а= 9 mod 2
if a <> 0 then
end if.
Заранее спасибо за помощь.
Решение задачи: «Парни, помогите, пожалуйста, с программкой в строк 20. Работа с массивами»
textual
Листинг программы
Sub test() Dim aMy(12) As Integer, i As Byte Randomize For i = 1 To 12 aMy(i) = (Int(Rnd * 11) + 2) * IIf(Round(Rnd, 0) = 0, -1, 1) Next For i = 1 To 12 If aMy(i) > 0 Then Debug.Print aMy(i), i Next For i = 1 To 12 If aMy(i) < 0 Then Debug.Print aMy(i), i Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д