質問編集履歴
1
修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -18,19 +18,31 @@
|
|
18
18
|
|
19
19
|
|
20
20
|
|
21
|
-
'最大値をmaxに代入
|
22
|
-
|
23
|
-
|
21
|
+
Dim max = data(0)
|
24
22
|
|
25
23
|
|
26
24
|
|
25
|
+
For i As Integer = 0 To data.Length - 1
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
If data(i) > max Then
|
30
|
+
|
31
|
+
max = data(i)
|
32
|
+
|
33
|
+
End If
|
34
|
+
|
35
|
+
|
36
|
+
|
37
|
+
Next
|
38
|
+
|
27
|
-
Console.WriteLine("最大値は" + CStr(max) + "です
|
39
|
+
Console.WriteLine("最大値は" + CStr(max) + "です")
|
28
40
|
|
29
41
|
|
30
42
|
|
31
43
|
Console.ReadLine()
|
32
44
|
|
33
|
-
|
45
|
+
|
34
46
|
|
35
47
|
End Sub
|
36
48
|
|