Dim 入力文 As String = "apple orange banana melon" Dim 出力文 As String = Join(入力文.Split().Reverse().ToArray(), " ") MsgBox(出力文)
Dim 入力文 As String = "apple orange banana melon" Dim words() As String = 入力文.Split() Array.Reverse(words) Dim 出力文 As String = Join(words, " ") MsgBox(出力文)