![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
skill不足ですみません
でもそのやり方だと汎用性が無いのでこのやり方で試してみて下さい
あと、デバッグするのにブレークポイントとウォッチウィンドウ、コンソールウィンドウは必須かと思います
やり方はGoogle先生に聞いてみて下さい
for i =0 to arr.length
console.write(arr(i,0) & " " & arr(i,1))
next
知りたかったのはこれです。
arr(i,0) と arr(i,1)だけで良かったのですね。
ありがとうございました。簡単になりました。
No.4
- 回答日時:
書き出す事( Syu(i, 0) & " " & Syu(i, 1) )だけが目的であるのなら、
Dim arr(,) As Integer = {{2, 2}, {2, 3}, {3, 5}, {3, 4}, {3, 3}, {3, 2}, {3, 1}}
Dim str = Enumerable.Range(0, arr.GetLength(0)).Select(Function(x) arr(x, 0) & " " & arr(x, 1)).ToArray()
For Each z As String In str
Console.WriteLine($"{z}")
Next
結果:
2 2
2 3
3 5
3 4
3 3
3 2
3 1
とかも?
No.2
- 回答日時:
For Each o as Object In arr
MsgBox(o(0) & " " & o(1))
Next
でも
For Each o as Object In arr
For Each o2 as Object In o
MsgBox(o2)
Next
Next
でも
No.1
- 回答日時:
for文とfor eachを上手く使い分けて下さい
for:カウンタを加算しながらループさせる処理
for each:要素数だけループさせる処理
ループさせると同時に1個1個要素を変数に入れるという便利な機能
今回はこうやると楽かも
For Each o as Object In arr
MsgBox(Join(o," "))
Next
※For Each i() As Integerが上手く通るか分からないから
Object型で逃げましたw
色々試して経験を積んでいってください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- C言語・C++・C# c言語 プログラムのエラー 1 2023/02/11 20:31
- JavaScript EasyUIのSubGrid(jquery)におけるObjectに入れた連想配列について 1 2022/05/02 11:21
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
二次元配列のインデックスについて
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
-
4
2次元動的配列の第一引数のみを可変にする
Visual Basic(VBA)
-
5
[VBA] Classから他のClassを呼び出す場合
Visual Basic(VBA)
-
6
クラスのプロパティに構造体を使いたい。
Visual Basic(VBA)
-
7
モーダルフォームとモードレスフォーム
Visual Basic(VBA)
-
8
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
9
Visual Basic.NETの、Form 間での引数の引渡し方法を教えてください。
Visual Basic(VBA)
-
10
VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか?
Visual Basic(VBA)
-
11
データセットのレコード更新がしたい
Visual Basic(VBA)
-
12
【VB】コンボボックスにデータベースから取り出した値を入れたい
Visual Basic(VBA)
-
13
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
14
CloseとDisposeの違い
Visual Basic(VBA)
-
15
VB2008: CSV を二次元配列に読み込む方法?
Visual Basic(VBA)
-
16
Designer.vbは直接コードをいじってはだめ?
Visual Basic(VBA)
-
17
VB.net Double と Decimal の違い?
Visual Basic(VBA)
-
18
Functionの戻り値を配列にしたいのですが
Visual Basic(VBA)
-
19
「タイプ初期化子が例外をスローしました」エラー何?
Visual Basic(VBA)
-
20
構造体配列の特定のメンバーをFor~Eachで
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
VBAでの一時停止と再開の方法
-
DoEventsが必要な理由について
-
乱数の桁数指定、または範囲指定。
-
vb.netからエクセル関数書き込み
-
VBA Boxが空白の場合のメッセー...
-
Java 南京錠
-
vbscriptでIE自動入力(途中で...
-
ループを回すという意味は何で...
-
GIFアニメをループさせたくない
-
Do whileでExitせず、ループの...
-
エクセルの当番表を作っていま...
-
ループ内での条件処理
-
範囲指定したセルを1つずつ飛...
-
WHILE (CHKIMG(”A.bmp”)=FALSE)...
-
モンテカルロ法
-
UWSCに制限時間を付けたいです
-
csh foreachで「*」でエラ...
-
スレッド起動したフォームを正...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
範囲指定したセルを1つずつ飛...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
vbscriptでIE自動入力(途中で...
-
乱数の桁数指定、または範囲指定。
-
GIFアニメをループさせたくない
-
プログラミングについて。 1つ...
-
エクセルの当番表を作っていま...
-
テキストボックスの名前に変数...
-
ループフリー
-
vb.netからエクセル関数書き込み
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
どなたかこのプログラミングを...
-
Do whileでExitせず、ループの...
おすすめ情報
すみません。説明が悪かったです。
Dim arr(,) As Integer = {{2, 2}, {2, 3}, {3, 5}, {3, 4}, {3, 3}, {3, 2}, {3, 1}}
実際は上記の順番で、最初のループで2と2を、次のループで2と3を、次のループで3と5を...と2つづつ取得できるようにしたいのですが。
よろしくお願いします。
すみません。お示しのプログラムではエラーになってしまいました。
自分で次のプログラムを考えて解決いたしました。ありがとうございました。
Dim arr(,) As Integer = {{2, 2}, {2, 3}, {3, 5}, {3, 4}, {3, 3}, {3, 2}, {3, 1}}
' Co \ 2 → 1,1,2,2,3,3......
Dim Syu(7, 1) As Integer
Dim Co As Integer = 2
For Each i As Integer In arr
If Co Mod 2 = 0 Then Syu(Co \ 2, 0) = i Else Syu(Co \ 2, 1) = i
Co += 1
Next
For i = 1 To 7
Magbox(Syu(i, 0) & " " & Syu(i, 1))
Next