4

簡単なコーディングの割り当て：テキストボックスからテキストを取り出して、バックワードになるように反転します。

つまり、Hello My NameIsDavidは"divadsi eman ym olleh"になります（プログラムは大文字と小文字を区別する必要はなく、文字だけです）

これは私が見つけたものですが、他に方法はありますか？

Dim str As String = Textbox1.Text
Dim arr As New List(Of Char)
arr.AddRange(str.ToCharArray)
arr.Reverse()

For Each l As Char In arr
lblOne.Text &= l
Next
4

8 に答える 8

6

StrReverse（Microsoft.VisualBasicの）関数を使用すると、1行で実行できます。

Dim myText As String = "My Name is Dave"
Dim revText As String = StrReverse(myText)
于 2012-11-05T04:46:56.183 に答える
2

クイックワンライナー。

lblOne.Text = String.Join("", "divad si eman ym olleh".Reverse())
于 2012-11-05T12:42:13.573 に答える
1

Microsoft.VisualBasic

Dim myText As String = My Name is  abc
Dim revText As String = StrReverse(myText)

出力： "cba si eman ym"

于 2018-12-15T20:44:09.007 に答える
0

String.Join各文字をループして連結する代わりに、次を使用できます。

lblOne.Text = String.Join("", arr)
于 2012-11-05T04:22:22.717 に答える
0

文字列を受け入れるaを作成しfunction、逆の文字列を返します。

Function Reverse(ByVal value As String) As String
    Dim arr() As Char = value.ToCharArray()
    Array.Reverse(arr)
    Return New String(arr)
End Function

このように使ってみてください

lblOne.Text  = Reverse(Textbox1.Text)
于 2012-11-05T04:24:18.783 に答える
0

これも同様の方法ですが、行数が少なくなっています。

Dim Original_Text As String = "Hello My Name is Ahmad"
Dim Reversed_Text As String = ""

For i = Original_Text.Length To 1 Step -1
    Reversed_Text &= Original_Text.Substring(i, 1)
Next
于 2012-11-05T04:45:57.440 に答える
0

文字列を逆にする最も簡単な方法は次のとおりです。

Dim s As String = "1234ab cdefgh"
MessageBox.Show(s.AsEnumerable.Reverse.ToArray)
于 2014-07-29T07:20:46.323 に答える
0
  1. 最初にテキストボックスを作成します。これはTextBox1になります
  2. 次に、ボタンを作成し、Reverseという名前を付けます
  3. 次に、ラベルを作成します。これはLabel1になります。
  4. 次に、リバースボタンをダブルクリックします（ボタンクリックイベントに移動）
  5. 次のコードを入力します。

  6. ソフトウェアを実行し、テキストボックスに文字列を入力して、反転ボタンをクリックします。

    Dim MainText As String = TextBox1.Text
Dim revText As String = StrReverse(MainText)
Label1.Text = revText
于 2014-08-21T14:19:50.490 に答える