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

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

<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
04.06.12
168
0 ответов
Опубликовать в социальных сетях

Рекомендуем личную консультацию

Андрей FaceOff

только зарегистрированным пользователям сайта: консультации и разработка под заказ - C#, VB. NET, VBA, JS, вебтехнологии, сети; чистка сайтов от вирусов (в т. ч. php), удаленное сопровождение офисных (Windows) или вебсерверов на абонентской основе. по Узнать подробнее
Посмотреть всех экспертов из раздела Технологии


Комментарии

еще один дубль

Module Module1

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

End Module

04.06.12

если кто то знает удобные решения вопроса — прошу поделиться ))

04.06.12