Как правильно написать код? - VB (171984)

Формулировка задачи:

Необходимо заполнить одномерный массив случайными числами от (-10) до 20, и записать отрицательные числа в файл 1.txt, а положительные в файл 2.txt на диске D!

Код к задаче: «Как правильно написать код? - VB (171984)»

textual
        
Dim Mas(10) As Integer
IO.File.CreateText("D:\1.txt").Close() 'Отрицаетльные
IO.File.CreateText("D:\2.txt").Close() 'Положительные
For a = 1 To 10
 Mas(a) = Int(Rnd() * 30) - 10
 If Mas(a) >= 0 Then
 IO.File.WriteAllText("D:\2.txt", IO.File.ReadAllText("D:\2.txt") & vbNewLine & Mas(a))
 ElseIf Mas(a) < 0 Then
 IO.File.WriteAllText("D:\1.txt", IO.File.ReadAllText("D:\1.txt") & vbNewLine & Mas(a))
 End If
Next

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ