изучаю вставку программного кода в сообщения - блог №282493

тут я попытаюсь оттестировать вставку программного кода в сообщения на нашем сайте

<span>Module</span> <span>Module1</span>     <span>Sub</span> Main()        <span>Dim</span> N <span>As</span> <span>Integer</span>        <span>Dim</span> M <span>As</span> <span>Integer</span>        <span>Console</span>.WriteLine(<span>"Ведите N"</span>)        N = <span>Console</span>.ReadLine()        <span>Console</span>.WriteLine(<span>"Ведите M"</span>)        M = <span>Console</span>.ReadLine()        <span>For</span> X = 1 <span>To</span> N            <span>If</span> X * X = M <span>Then</span>                <span>Console</span>.WriteLine(<span>"X = "</span> + X.ToString())            <span>End</span> <span>If</span>        <span>Next</span>        <span>Console</span>.WriteLine(<span>"Нажмите Enter для окончания"</span>)        <span>Console</span>.ReadLine()    <span>End</span> <span>Sub</span> <span>End</span> <span>Module</span>

Дополнение автора от 04.06.12 20:24:20

как видите пока не очень ))))))

Дополнение автора от 04.06.12 20:26:05

следующая попытка

Module Module1<br /><br /> Sub Main()<br /> Dim N As Integer<br /> Dim M As Integer<br /> Console.WriteLine("Ведите N")<br /> N = Console.ReadLine()<br /> Console.WriteLine("Ведите M")<br /> M = Console.ReadLine()<br /> For X = 1 To N<br /> If X * X = M Then<br /> Console.WriteLine("X = " + X.ToString())<br /> End If<br /> Next<br /> Console.WriteLine("Нажмите Enter для окончания")<br /> Console.ReadLine()<br /> End Sub<br /><br />End Module