Ничего не могу придумать, помогите
- Код: Выделить всё
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear()
Dim bukva As Integer
Try
Dim key As Integer = CInt(TextBox3.Text)
If key = 0 OrElse key > 255 Then
MsgBox("Ошибка в назначении ключа! ")
Exit Sub
End If
Dim ss As String = ""
For i = 1 To TextBox1.Text.Length
bukva = key + Asc(Mid(TextBox1.Text, i))
If bukva > 32 Then bukva -= 32
ss &= Chr(bukva)
Next
TextBox2.Text = ss
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
[Viper] :: Пользуйся тэгом CODE!
