質問編集履歴
2
修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -8,13 +8,13 @@
|
|
8
8
|
|
9
9
|
1行目の合計 = 15
|
10
10
|
|
11
|
-
|
11
|
+
2行目の合計 = 35
|
12
12
|
|
13
|
-
|
13
|
+
3行目の合計 = 55
|
14
14
|
|
15
|
-
|
15
|
+
4行目の合計 = 75
|
16
16
|
|
17
|
-
|
17
|
+
5行目の合計 = 95
|
18
18
|
|
19
19
|
|
20
20
|
|
1
修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -24,11 +24,23 @@
|
|
24
24
|
|
25
25
|
Private Sub Button_Display_Click(sender As Object, e As EventArgs) Handles Button_Display.Click
|
26
26
|
|
27
|
-
Dim arrayData As Integer(,) = {{1, 2, 3, 4, 5}, {5, 6, 7, 8, 9},
|
27
|
+
Dim arrayData As Integer(,) = {{1, 2, 3, 4, 5}, {5, 6, 7, 8, 9}, {9, 10, 11, 12, 13}, {13, 14, 15, 16, 17}, {17, 18, 19, 20, 21}}
|
28
|
-
|
29
|
-
{9, 10, 11, 12, 13}, {13, 14, 15, 16, 17}, {17, 18, 19, 20, 21}}
|
30
28
|
|
31
29
|
|
30
|
+
|
31
|
+
Dim array1 As Integer = arrayData(0, 0) + arrayData(0, 1) + arrayData(0, 2) + arrayData(0, 3) + arrayData(0, 4)
|
32
|
+
|
33
|
+
Dim array2 As Integer = arrayData(1, 0) + arrayData(1, 1) + arrayData(1, 2) + arrayData(1, 3) + arrayData(1, 4)
|
34
|
+
|
35
|
+
Dim array3 As Integer = arrayData(2, 0) + arrayData(2, 1) + arrayData(2, 2) + arrayData(2, 3) + arrayData(2, 4)
|
36
|
+
|
37
|
+
Dim array4 As Integer = arrayData(3, 0) + arrayData(3, 1) + arrayData(3, 2) + arrayData(3, 3) + arrayData(3, 4)
|
38
|
+
|
39
|
+
Dim array5 As Integer = arrayData(4, 0) + arrayData(4, 1) + arrayData(4, 2) + arrayData(4, 3) + arrayData(4, 4)
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
MessageBox.Show("1行目の合計" + "=" + CStr(array1) + Environment.NewLine + "2行目の合計" + "=" + CStr(array2) + Environment.NewLine + "3行目の合計" + "=" + CStr(array3) + Environment.NewLine + "4行目の合計" + "=" + CStr(array4) + Environment.NewLine + "5行目の合計" + "=" + CStr(array5))
|
32
44
|
|
33
45
|
|
34
46
|
|