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)
-
2次元動的配列の第一引数のみを可変にする
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
-
4
Designer.vbは直接コードをいじってはだめ?
Visual Basic(VBA)
-
5
Visual Basic.NETの、Form 間での引数の引渡し方法を教えてください。
Visual Basic(VBA)
-
6
VB.NETの配列にExcelから読み込んできたデータを格納したい
Visual Basic(VBA)
-
7
VB2008: CSV を二次元配列に読み込む方法?
Visual Basic(VBA)
-
8
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
9
VB.NETで小数点以下の桁数を取得したい
その他(ソフトウェア)
-
10
VB.NETで、配列をテーブルに変換して表示する。
Visual Basic(VBA)
-
11
DateTimePickerでに年月までしか選択できないようにしたいです。
Visual Basic(VBA)
-
12
[VBA] Classから他のClassを呼び出す場合
Visual Basic(VBA)
-
13
VB.NET の配列の要素数
Visual Basic(VBA)
-
14
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
15
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
16
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
17
VBでReplace
Visual Basic(VBA)
-
18
カンマの含まれる文字列の数値変換方法について
Visual Basic(VBA)
-
19
データセットのレコード更新がしたい
Visual Basic(VBA)
-
20
動的配列が存在(要素が有る)か否かを判定できますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクティブセルから、A列最終行...
-
画面を強制的に再描画させる方法
-
どなたかこのプログラミングを...
-
乱数の桁数指定、または範囲指定。
-
アセンブラによるウェイト(WAIT...
-
VBA for i=1 to lastrow
-
VBAでの一時停止と再開の方法
-
alarmの使用について
-
For文を使った九九表の作成
-
「偶数・奇数の和」のフローチ...
-
UWSCの終了の仕方
-
EXCEL VBA(初心者)印刷ルー...
-
テキストボックスの名前に変数...
-
C言語 4) int 型配列 month を...
-
ループフリー
-
VBA Dir関数でファイルをループ...
-
変数の扱える範囲
-
vb.netからエクセル関数書き込み
-
一巡伝達関数と開ループ伝達関数
-
while(*s++=*t++)の判定は?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
ループ7回目の悪役令嬢は、元敵...
-
UWSCの終了の仕方
-
Escキーを押すと、中断する時と...
-
エクセルの当番表を作っていま...
-
GIFアニメをループさせたくない
-
VBAで3秒だけ時間を止めたい
-
どなたかこのプログラミングを...
-
VBA for i=1 to lastrow
-
DOSコマンドのループ内のTIMEコ...
-
ListBox 複数選択 で オートフ...
-
vbscriptでIE自動入力(途中で...
-
vb.netからエクセル関数書き込み
-
DoEventsが必要な理由について
-
Java 南京錠
-
アクティブセルから、A列最終行...
-
テキストボックスの名前に変数...
-
範囲指定したセルを1つずつ飛...
-
VBA Dir関数でファイルをループ...
おすすめ情報
すみません。説明が悪かったです。
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