for及び配列操作について (ID:124801)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 えーと、０って偶数でしたっけ？ と言うことで奇数をやって見ます。 Const MaxD = 9 Dim mytel(0 To MaxD) As String Dim i As Integer '何か文字を入れる For i = 0 To MaxD mytel(i) = CStr(i) Next Dim temp(0 To MaxD \ 2) As String For i = 0 To MaxD If i Mod 2 <> 0 Then temp(i \ 2) = mytel(i) End If Next Text1.Text = Join(temp, vbCrLf)