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
VB.NETの配列にExcelから読み込んできたデータを格納したい
Visual Basic(VBA)
-
6
Designer.vbは直接コードをいじってはだめ?
Visual Basic(VBA)
-
7
VB2008: CSV を二次元配列に読み込む方法?
Visual Basic(VBA)
-
8
[VBA] Classから他のClassを呼び出す場合
Visual Basic(VBA)
-
9
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
10
VB.NETでフォーム間でのコントロールの参照
Visual Basic(VBA)
-
11
Visual Basic.NETの、Form 間での引数の引渡し方法を教えてください。
Visual Basic(VBA)
-
12
VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか?
Visual Basic(VBA)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
15
【VB】コンボボックスにデータベースから取り出した値を入れたい
Visual Basic(VBA)
-
16
データセットのレコード更新がしたい
Visual Basic(VBA)
-
17
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
18
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
19
Functionの戻り値を配列にしたいのですが
Visual Basic(VBA)
-
20
VB.net Double と Decimal の違い?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAで3秒だけ時間を止めたい
-
DOSコマンドのループ内のTIMEコ...
-
UWSCの終了の仕方
-
どうしたら過去を忘れることが...
-
vbscriptでIE自動入力(途中で...
-
C#で別のフォームのprogress ba...
-
エクセルの当番表を作っていま...
-
寝ても寝ても眠くて困ってます...
-
CSVファイルの特定の行だけを読...
-
VBAでForループを抜けるためには?
-
エクセル関数で1〜12の数字がル...
-
範囲指定したセルを1つずつ飛...
-
乱数の桁数指定、または範囲指定。
-
vb.netです。2次元配列の要素を...
-
GIFアニメをループさせたくない
-
繰り返し処理で50音順にする方法
-
正しいWebBrowserの使い方(ル...
-
ループ内での条件処理
-
VBAでの一時停止と再開の方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラミングについて。 1つ...
-
画面を強制的に再描画させる方法
-
どなたかこのプログラミングを...
-
VBAでの一時停止と再開の方法
-
VBA for i=1 to lastrow
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
エクセルの当番表を作っていま...
-
VBAで3秒だけ時間を止めたい
-
GIFアニメをループさせたくない
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
CSVファイルの特定の行だけを読...
-
アクティブセルから、A列最終行...
-
vb.netからエクセル関数書き込み
-
範囲指定したセルを1つずつ飛...
-
テキストボックスの名前に変数...
-
乱数の桁数指定、または範囲指定。
-
「偶数・奇数の和」のフローチ...
-
vbscriptでIE自動入力(途中で...
おすすめ情報
すみません。説明が悪かったです。
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