DOBON.NET DOBON.NETプログラミング掲示板過去ログ

ＦＯＲ文？

  • 題名: ＦＯＲ文？
  • 著者: A
  • 日時: 2004/07/16 11:09:02
  • ID: 4891
  • この記事の返信元:
    • （なし）
  • この記事への返信:
  • ツリーを表示
分類:[.NET]

１，２，３，４，５，６という数字を
１，２，４，５，６，０に変換したいです。
３を削除して数字をつめる形になります。

Dim i As Integer
Dim j As Integer
Dim a As Integer 'ダミー
Dim DATA(6) As Integer
DATA(0) = 0
DATA(1) = 1
DATA(2) = 2
DATA(3) = 3
DATA(4) = 4
DATA(5) = 5
DATA(6) = 6

For i = 0 To 9
For j = i + 1 To 9
If DATA(i) < DATA(j) Then
a = DATA(i) 'ダミー
DATA(i) = DATA(j)
DATA(j) = a
End If
Next
Next
コードはこれです 
Aさんはじめまして

For i = 3 To 5
    DATA(i) = DATA(i + 1)
Next
DATA(i) = DATA(0)


処理の内容的には
初期値は、削除したい位置で
終了値は、最後の番地ー１を入れてあげればいいです。
具体的には、For文で１つずつ値をずらして行きます。
DATA(3) = DATA(4)
DATA(4) = DATA(5)
DATA(5) = DATA(6)
For文が終わったら
DATA(6) = DATA(0)
をおこなってあげれば最後に0が入ってくる形となっています。
DOBON.NET | プログラミング道 | プログラミング掲示板