Эхехе... вобщем надо чтоб нажал кнопку "кнопка" и оно вывело все нечётноые числа по возростанию на примере:
1 3 5 7 9 ..... итд до 99 ...
.................................................. .................................................. ....
Зы... понятное дело, что моно смухлевать было бы (я так всегда делаю, преподы ламеры), но это ксожалению исключение ... надо через масив...
Эхехе... Пора уже учить этот визуал безик самому.. да некогда....
Option Explicit
Private Sub Command1_Click()
' Упорядочить одномерный массив по возрастанию
Dim i As integer
Dim ip As integer
Dim max As integer
Dim imax As integer
Const N = 5
Dim Mas(0 To 10) As integer
' Очистить форму
Cls
' Заполняем массив случайными числами
For i = 0 To 10
Mas(i) = Int(Rnd * 50)
Print Mas(i);
Next i
Print
For ip = 0 To 10
max = Mas(ip)
imax = ip
For i = ip + 1 To N
If Mas(i) < max Then max = Mas(i): imax = i
Next i
Mas(imax) = Mas(ip)
Mas(ip) = max
Next ip
' Вывести упорядоченный массив на экран
For i = 0 To N
Print Mas(i);
Next i
End Sub
|
Это то, что имеется... но оно выводит числа не попорядку и чётные и нечётные... вобщем багов больше чем "полезного"....