https://opennet.ru/openforum/vsluhforumID10/5249.html Private Sub zasS_S_Rand(ByRef textIsxod As String, ByRef textRez As String, ByRef ChifrVxod As Short, ByRef RotorVxod As Short, ByRef NomerVxod1 As Integer, ByRef NomerVxod2 As Integer, ByRef BazisVxod As String, ByRef OblikVxod As String, ByRef ChaosVxod() As UShort, Optional ByRef LocalBB As Short = 1)<br>Dim J0 As Integer, J1 As Integer, Ich0 As Integer, Ich1 As Integer, Ich2 As Integer, DlinaIsxod As Integer<br>Dim L0 As String, DlinaBazis As UShort, DlinaChaos As Integer, DlinaNomer As Integer, DlinaProgres As Short<br>Dim AdresBazis As Integer, AdresOblik As Integer, AdresChaos As Integer, Ichet As Integer, Ipro As Short<br>Dim Simvol As Char, Lbuilder As New System.Text.StringBuilder("")<br>Dim Progres1 As Integer<br>'Процедура на языке Visual Basic 9.0 (Visual Basic 2008) Все параметры передаются по ссылке, так как тексты в виде строк могут быть очень большими.<br>'Типы данных:<br>'Byte = От 0 до 255 (беззнаковый). Один байт<br>'Short = От &#8211;32 768 до 32 767 (знаковый). Два байта.<br>'Integer = От &#8211;2 147 483 6 https://opennet.ru/openforum/vsluhforumID10/5249.html#2 Thu, 24 Apr 2014 04:42:40 GMT &gt; вы так и не поменяли драгдиллера?<br><br>зачем ви т'гавите?!<br> https://opennet.ru/openforum/vsluhforumID10/5249.html#1 Thu, 24 Apr 2014 04:02:55 GMT вы так и не поменяли драгдиллера?<br><br>