Top >VB.NET　練習問題集

5. 配列

練習問題 5 - 1

次のプログラムを作成しなさい。

  • 10 個の数値を入力する。
  • 入力された各々の数値を 2 倍にして表示する。
Dim values(9) As Integer

For i = 0 To 9
    values(i) = Integer.Parse(Console.ReadLine())
Next

For i = 0 To 9
    Console.WriteLine(values(i) * 2)
Next

練習問題 5 - 2

次のプログラムを作成しなさい。

  • 10 個の数値を入力する。
  • 入力された順番と逆の順番で 10 個の数値を表示する。
Dim values(9) As Integer

For i = 0 To 9
    values(i) = Integer.Parse(Console.ReadLine())
Next

For i = 9 To 0 Step -1
    Console.WriteLine(values(i))
Next

練習問題 5 - 3

次のプログラムを作成しなさい。

  • 10 個の数値を入力する。
  • 入力された数値を偶数と奇数に分類して表示する。
Dim values(9) As Integer

For i = 0 To 9
    values(i) = Integer.Parse(Console.ReadLine())
Next

Console.Write(vbLf & "偶数：")

For i = 0 To 9
    If (values(i) Mod 2) = 0 Then
        Console.Write("{0} ", values(i))
    End If
Next

Console.Write(vbLf & "奇数：")

For i = 0 To 9
    If (values(i) Mod 2) <> 0 Then
        Console.Write("{0} ", values(i))
    End If
Next

練習問題 5 - 4

数値を繰り返して入力し、合計が 100 を超えた場合、または入力が 10 回行われた場合、入力を止め入力された数値をすべて表示するプログラムを作成しなさい。

Dim sum As Integer = 0
Dim count As Integer = 0
Dim values(9) As Integer

While count < 10 And sum <= 100
    values(count) = Integer.Parse(Console.ReadLine())
    sum += values(count)
    count += 1
End While

For i = 0 To count - 1
    Console.WriteLine(values(i))
Next

練習問題 5 - 5

次のコードに追加し、入力された数値を 16 桁の 2 進数で表示するプログラムを完成させなさい。

Dim binary(15) As Integer

Dim value = Integer.Parse(Console.ReadLine())

For i = 15 To 0 Step -1
    binary(i) = value Mod 2
    value \= 2
Next

For i = 0 To 15
    Console.Write(binary(i))
Next

練習問題 5 - 6

次のコードに追加し、九九表を表示するプログラムを完成させなさい。

Dim kuku(8, 8) As Integer

For i = 0 To 8
    For j = 0 To 8
        kuku(i, j) = (i + 1) * (j + 1)
    Next
Next

For i = 0 To 8
    For j = 0 To 8
        Console.Write(" {0,2}", kuku(i, j))
    Next

    Console.WriteLine()
Next

練習問題 5 - 7

１桁の数値（ 1 ～ 9 に限定）を２つ入力し、その積を表示するプログラムを作成しなさい。ただし、九九の計算結果が入った配列を予め作成して利用すること。（前問を参考に）

Dim kuku(8, 8) As Integer

For i = 0 To 8
    For j = 0 To 8
        kuku(i, j) = (i + 1) * (j + 1)
    Next
Next

Dim p = Integer.Parse(Console.ReadLine())
Dim q = Integer.Parse(Console.ReadLine())

Console.WriteLine(kuku(p - 1, q - 1))

練習問題 5 - 8

整数を 10 回入力し、小さい順に並べ替えて表示するプログラムを作成しなさい。

Dim values(9) As Integer

For i = 0 To 9
    values(i) = Integer.Parse(Console.ReadLine())
Next

For i = 0 To 9
    For j = i + 1 To 9
        If values(i) > values(j) Then
            Dim t = values(i)
            values(i) = values(j)
            values(j) = t
        End If
    Next
Next

For i = 0 To 9
    Console.Write("{0} ", values(i))
Next
PAPER BOWL
NEZEN