' vbhirakana.vb Imports System Imports Microsoft.VisualBasic Public Class VBHiraganaKatakana Shared Sub Main() Dim hiragana, katakana As String hiragana = "あいうがぎぐぱぴぷ" katakana = StrConv(hiragana, VbStrConv.Katakana) Console.WriteLine(katakana) ' 出力:アイウガギグパピプ katakana = "アイウガギグパピプアイウガギグパピプ" hiragana = StrConv(katakana, VbStrConv.Hiragana) Console.WriteLine(hiragana) ' 出力:あいうがぎぐぱぴぷアイウガギグパピプ hiragana = StrConv(katakana, VbStrConv.Hiragana Or VbStrConv.Wide) Console.WriteLine(hiragana) ' 出力:あいうがぎぐぱぴぷあいうがぎぐぱぴぷ End Sub End Class ' コンパイル方法:vbc vbhirakana.vb