投稿日 | : 2006/04/10(Mon) 18:04 |
投稿者 | : GOD |
Eメール | : |
URL | : |
タイトル | : Re^4: 追記 |
> わかりました。ソートの使い方のコードも教えてほしいです。
> あとで講師にコードの意味も聞きたいのでお願いします。
>
回答者にとってはコードだけ投げた方が楽だったり。
テキストボックスは「txtSort」という名前のコントロール配列にしてね。
「txtSort.Count - 2」と「i + 1」と「txtSort.Count - 1」は理解してね。
(なぜそのように書いているのか。理解できないと後々貴方が辛いですよ。)
Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim strChanged As String
For i = 0 To txtSort.Count - 2
For j = i + 1 To txtSort.Count - 1
If CLng(txtSort(i).Text) > CLng(txtSort(j).Text) Then
strChanged = txtSort(i).Text
txtSort(i).Text = txtSort(j).Text
txtSort(j).Text = strChanged
End If
Next
Next
End Sub