Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Public Partial Class Form1
    Inherits Form
    Public Sub New()
        InitializeComponent()
    End Sub

    'Clear
    Private Sub button2_Click(sender As Object, e As EventArgs)
        If textBox1.Text <> "" OrElse textBox2.Text <> "" Then
            textBox1.Clear()
            textBox2.Clear()
        End If
    End Sub

    '
    Private Sub button1_Click(sender As Object, e As EventArgs)
        Dim str As String = textBox1.Text
        Dim i As Integer
        'テキストボックスに文字列を追加する前にバッファをクリア
        If textBox2.Text <> "" Then
            textBox2.Clear()
        End If
        For i = 0 To str.Length - 1
            Select Case str.Substring(i, 1)
                Case "А"
                    textBox2.Text += "a"
                    Exit Select
                Case "Б"
                    textBox2.Text += "b"
                    Exit Select
                Case "В"
                    textBox2.Text += "v"
                    Exit Select
                Case "Г"
                    textBox2.Text += "g"
                    Exit Select
                Case "Д"
                    textBox2.Text += "d"
                    Exit Select
                Case "Е"
                    textBox2.Text += "je"
                    Exit Select
                Case "Ё"
                    textBox2.Text += "jo"
                    Exit Select
                Case "Ж"
                    textBox2.Text += "ʐ"
                    Exit Select
                Case "З"
                    textBox2.Text += "z"
                    Exit Select
                Case "И"
                    textBox2.Text += "i"
                    Exit Select
                Case "Й"
                    textBox2.Text += "j"
                    Exit Select
                Case "К"
                    textBox2.Text += "k"
                    Exit Select
                Case "Л"
                    textBox2.Text += "l"
                    Exit Select
                Case "М"
                    textBox2.Text += "m"
                    Exit Select
                Case "Н"
                    textBox2.Text += "n"
                    Exit Select
                Case "О"
                    textBox2.Text += "o"
                    Exit Select
                Case "П"
                    textBox2.Text += "p"
                    Exit Select
                Case "Р"
                    textBox2.Text += "r"
                    Exit Select
                Case "С"
                    textBox2.Text += "s"
                    Exit Select
                Case "Т"
                    textBox2.Text += "t"
                    Exit Select
                Case "У"
                    textBox2.Text += "u"
                    Exit Select
                Case "Ф"
                    textBox2.Text += "f"
                    Exit Select
                Case "Х"
                    textBox2.Text += "x"
                    Exit Select
                Case "Ц"
                    textBox2.Text += "ʦ"
                    Exit Select
                Case "Ш"
                    textBox2.Text += "ʃ"
                    Exit Select
                Case "Щ"
                    textBox2.Text += "ɕɕ"
                    Exit Select
                Case "Ъ"
                    textBox2.Text += "-"
                    Exit Select
                Case "Ы"
                    textBox2.Text += "ɨ"
                    Exit Select
                Case "Ь"
                    textBox2.Text += "-"
                    Exit Select
                Case "Э"
                    textBox2.Text += "e"
                    Exit Select
                Case "Ю"
                    textBox2.Text += "ju"
                    Exit Select
                Case "Я"
                    textBox2.Text += "ja"
                    Exit Select
                Case "а"
                    textBox2.Text += "a"
                    Exit Select
                Case "б"
                    textBox2.Text += "b"
                    Exit Select
                Case "в"
                    textBox2.Text += "v"
                    Exit Select
                Case "г"
                    textBox2.Text += "g"
                    Exit Select
                Case "д"
                    textBox2.Text += "d"
                    Exit Select
                Case "е"
                    textBox2.Text += "je"
                    Exit Select
                Case "ё"
                    textBox2.Text += "jo"
                    Exit Select
                Case "ж"
                    textBox2.Text += "ʐ"
                    Exit Select
                Case "з"
                    textBox2.Text += "z"
                    Exit Select
                Case "и"
                    textBox2.Text += "i"
                    Exit Select
                Case "й"
                    textBox2.Text += "j"
                    Exit Select
                Case "к"
                    textBox2.Text += "k"
                    Exit Select
                Case "л"
                    textBox2.Text += "l"
                    Exit Select
                Case "м"
                    textBox2.Text += "m"
                    Exit Select
                Case "н"
                    textBox2.Text += "n"
                    Exit Select
                Case "о"
                    textBox2.Text += "o"
                    Exit Select
                Case "п"
                    textBox2.Text += "p"
                    Exit Select
                Case "р"
                    textBox2.Text += "r"
                    Exit Select
                Case "с"
                    textBox2.Text += "s"
                    Exit Select
                Case "т"
                    textBox2.Text += "t"
                    Exit Select
                Case "у"
                    textBox2.Text += "u"
                    Exit Select
                Case "ф"
                    textBox2.Text += "f"
                    Exit Select
                Case "х"
                    textBox2.Text += "x"
                    Exit Select
                Case "ч"
                    textBox2.Text += "ʧ"
                    Exit Select
                Case "ц"
                    textBox2.Text += "ʦ"
                    Exit Select
                Case "ш"
                    textBox2.Text += "ʃ"
                    Exit Select
                Case "щ"
                    textBox2.Text += "ɕɕ"
                    Exit Select
                Case "ъ"
                    textBox2.Text += "-"
                    Exit Select
                Case "ы"
                    textBox2.Text += "ɨ"
                    Exit Select
                Case "ь"
                    textBox2.Text += "-"
                    Exit Select
                Case "э"
                    textBox2.Text += "e"
                    Exit Select
                Case "ю"
                    textBox2.Text += "ju"
                    Exit Select
                Case "я"
                    textBox2.Text += "ja"
                    Exit Select
                Case Else

                    textBox2.Text += str.Substring(i, 1)
                    Exit Select
            End Select
        Next
    End Sub
End Class