文字列を使った選択ソートプログラムの問題点は何ですか？

Question

私は5ワードの配列をアルファベット順に並べようとしています。私は多分混乱しています。だから誰かが私に何が起こっているのか、どのようにコードを修正すれば大いに感謝するのかを説明できれば。ここで

はコードです：

パブリック・クラスのForm1

Dim List() As String = {"bravo", "charlie", "zulu", "alpha", "whiskey"} 
Dim swap, value As Integer 
Dim i As Integer 
Dim sw As String 
Dim j, sp, x As Integer 
Dim temp(0) As String 

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

    Label1.Text = Nothing 

    For i = 0 To List.Length - 1 
     sw = List(i) 
     sp = i 
     For x = sp To List.Length - 2 

     Next 
     If sw > List(x) Then 
      temp(0) = List(x) 
      List(x) = sw 
      sw = temp(0) 
     End If 
    Next 
    For j = 0 To List.Length - 1 
     Label1.Text &= List(j) & ", " 
    Next 
End Sub 

エンドクラス

Answer 1

あなたのコードの主な問題は、sw変数の使用です。問題は、割り当てsw = temp(0)を実行すると、swが指し示す参照が変更されますが、最初にswが割り当てられた元のList(i)は変更されません。一時的な変数を効果的に更新していて、元のリストは更新していません。私もList以外のクラスレベルの変数のすべてを排除した

For i = 0 To List.Length - 1 
    For x = i To List.Length - 1 
     If List(i) > List(x) Then 
      Dim temp = List(x) 
      List(x) = List(i) 
      List(i) = temp 
     End If 
    Next 
Next 

：

はここにあなたのコードがどのように見えるかです。彼らはすべて不必要だった。あなたが保持する必要があった唯一のものはtemp（Stringではなく、String()ではありません）と私はButton1_Clickの方法で入れました。

私はあなたの元のリストにこのコードを実行すると、私はこれを取得：

 
alpha, bravo, charlie, whiskey, zulu 

Answer 2

1. あなたの内側のループ（For x = sp To List.Length - 2）が空です。
2. 内部ループ終了条件が正しくありません。なぜそれはList.Length - 2にループしていますか？
3. 一時文字列を格納するために配列を使用する必要はありません。 Dim temp As Stringで十分です。