Здравейте писах преди няколко дена на потребител Kен и той беше така любезен да ми направи задачата която го помолех,но реших да не му досаждам и да му се моля повече и е време да питам вас къде е грешката в този програмен код,ето и задачата :

Да се създаде програма преобразуваща текст написан на кирилица в LAB (изписване на български текст с латински букви)

Ето и кода който ми написа Ken,но за съжалание има някаде грешка а моите познати по ВБ са много жалки не мога да го оправя -,- цялата работа е като напиша кода ми дава някаде грешка при декларирането и не иска да се изпълни задачата .... ето и снимка да видите за какво става въпрос http://img684.imageshack.us/img684/8299/shitvi.jpg

Public Class Form1

Dim c_str As String, l_str(30) As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer, n_str As String, pos As Integer

TextBox2.Text = ""

For i = 1 To Len(TextBox1.Text)

n_str = Mid(TextBox1.Text, i, 1)

pos = InStr(c_str, n_str)

If pos > 0 Then

n_str = l_str(pos - 1)

End If

TextBox2.Text += n_str

Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer

c_str = "абвгдежзийклмнопрстуфхцчшщъьюя"

l_str(0) = "a"

l_str(1) = "b"

l_str(2) = "w"

l_str(3) = "g"

l_str(4) = "d"

l_str(5) = "e"

l_str(6) = "v"

l_str(7) = "z"

l_str(8) = "i"

l_str(9) = "j"

l_str(10) = "k"

l_str(11) = "l"

l_str(12) = "m"

l_str(13) = "n"

l_str(14) = "o"

l_str(15) = "p"

l_str(16) = "r"

l_str(17) = "s"

l_str(18) = "t"

l_str(19) = "u"

l_str(20) = "f"

l_str(21) = "h"

l_str(22) = "c"

l_str(23) = "ch"

l_str(24) = "sh"

l_str(25) = "sht"

l_str(26) = "y"

l_str(27) = "x"

l_str(28) = "iu"

l_str(29) = "ia"

End Sub

End Class

Моля за помощ как ще стане точно ?

Редактирано 29 януари 201016 г. от shokersun (преглед на промените)

Ето този ред си пропуснал да вмъкнеш:

Dim c_str As String, l_str(30) As String

след

Public Class Form1

Мерси! Задачата е готова и работи !