Visual Basic 中学校 掲示板 投稿内容
タグのない投稿を抽出 統計 RSS

Visual Basic 中学校 > 投稿一覧 >

ソート 解決済み

タグの編集...

投稿者 けい   (学生)   投稿日時 2016/12/19 19:48:36
プログラミング初心者の学生です。
ソートについてなのですが、

Textbox1                          Textbox6
     〜              button1           〜
Textbox5                          Textbox10

と、並べた時、(Textboxは縦に5個ずつ並べます)
button1を押すとTextbox1-Textbox5に入力したものがTextbox6-Textbox10で整列される
プログラムを作りたいのですが、どなたか教えて頂けますでしょうか。

投稿者 (削除されました)   ()   投稿日時 2016/12/20 14:56:11
(削除されました)

投稿者 masaX   (社会人)   投稿日時 2016/12/20 14:59:19
 こんな感じでどうですか? 

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

         '配列の変数を宣言(データが数値だとして)
         Dim vl(4) As Integer

         '変数にTextboxの値を入れる
        vl(0) = CInt(TextBox1.Text)
         vl(1) = CInt(TextBox2.Text)
         vl(2) = CInt(TextBox3.Text)
         vl(3) = CInt(TextBox4.Text)
         vl(4) = CInt(TextBox5.Text)

         '配列を並べ替える
        Array.Sort(vl)

         '並べ替えた配列をTextboxに
        TextBox6.Text = CStr(vl(0))
         TextBox7.Text = CStr(vl(1))
         TextBox8.Text = CStr(vl(2))
         TextBox9.Text = CStr(vl(3))
         TextBox10.Text = CStr(vl(4))

     End Sub

投稿者 (削除されました)   ()   投稿日時 2016/12/21 10:27:30
(削除されました)

投稿者 けい   (学生)   投稿日時 2016/12/21 10:32:25
MasaXさん、ありがとうございます。
並び替えできました^^