Шифр Цезаря VB 2010

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Kathia
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 15.06.2015 (Пн) 10:29

Шифр Цезаря VB 2010

Сообщение Kathia » 15.06.2015 (Пн) 10:34

Выдаёт ошибку Приведение строки "" к типу "Integer" является недопустимым. или Ошибка в назначение ключа
Ничего не могу придумать, помогите


Код: Выделить всё
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!
Вложения
WindowsApplication2.rar
(64.33 Кб) Скачиваний: 107

Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList