Top >VB.NET　練習問題集

6. メソッド

練習問題 6 - 1

整数の 2 乗を計算するメソッドを作成しなさい。１つの Integer 型引数を取り、結果を Integer 型の戻り値として返すこと。

また、メソッドの動作を検証できるようにプログラムを作成しなさい。

Function pow2(ByVal n As Integer) As Integer
    Return n * n
End Function

Sub Main()
    Console.WriteLine("3の2乗={0}", pow2(3))
End Sub

練習問題 6 - 2

２つの整数の平均を計算するメソッドを作成しなさい。２つの Integer 型引数を取り、結果を Integer 型の戻り値として返すこと。

また、メソッドの動作を検証できるようにプログラムを作成しなさい。

Function average(ByVal x As Integer, ByVal y As Integer) As Integer
    Return (x + y) \ 2
End Function

Sub Main()
    Console.WriteLine("4と9の平均={0}", average(4, 9))
End Sub

練習問題 6 - 3

２つの整数の大きい方を選ぶメソッドを作成しなさい。２つの Integer 型引数を取り、大きい方の数値を戻り値として返すこと。

また、このメソッドを使用して、Integer 型の変数 x、y、z にそれぞれ数値を入力し、最も大きい数値を表示するプログラムを作成しなさい。

Function MaxValue(ByVal n1 As Integer, ByVal n2 As Integer) As Integer
    If n1 > n2 Then
        Return n1
    Else
        Return n2
    End If
End Function

Sub Main()
    Dim x, y, z As Integer

    x = Integer.Parse(Console.ReadLine())
    y = Integer.Parse(Console.ReadLine())
    z = Integer.Parse(Console.ReadLine())

    Console.WriteLine(MaxValue(x, MaxValue(y, z)))
End Sub

練習問題 6 - 4

サイズを示す数値（ Integer ）を引数とし、何等かの文字で例のような三角形を表示するメソッドを作成しなさい。

また、このメソッドを使用してサイズ 3、4、5 の三つの三角形を表示するプログラムを作成しなさい。

Sub DrawTriangle(ByVal size As Integer)
    For i = 1 To size
        For j = 1 To i
            Console.Write("$")
        Next

        Console.WriteLine()
    Next
End Sub

Sub Main()
    DrawTriangle(3)
    Console.WriteLine()
    DrawTriangle(4)
    Console.WriteLine()
    DrawTriangle(5)
End Sub

練習問題 6 - 5

サイズを示す数値と、表示する文字（ Char ）を引数とし、三角形を表示するメソッドを作成しなさい。

このメソッドを使用して、サイズと文字の異なる三つの三角形を表示しなさい。

Sub DrawTriangle2(ByVal size As Integer, ByVal ch As Char)
    For i = 1 To size
        For j = 1 To i
            Console.Write(ch)
        Next

        Console.WriteLine()
    Next
End Sub

Sub Main()
    DrawTriangle2(3, "%")
    Console.WriteLine()
    DrawTriangle2(5, "#")
    Console.WriteLine()
    DrawTriangle2(7, "@")
End Sub

練習問題 6 - 6

九九のひとつの段を表示するメソッドを作成しなさい。何の段（ 1 ～ 9 ）であるかを引数とします。

このメソッドを使用して、九九表を作成しなさい。

Sub KukuColumn(ByVal num As Integer)
    For i = 1 To 9
        Console.Write("{0,2} ", num * i)
    Next

    Console.WriteLine()
End Sub

Sub Main()
    For i = 1 To 9
        KukuColumn(i)
    Next
End Sub

練習問題 6 - 7

ある数が素数かどうかを判定するメソッドを作成しなさい。

このメソッドを使用して 1000 未満の素数をすべて表示するプログラムを作成しなさい。

Function IsPrimeNumber(ByVal num As Integer) As Boolean
    If num <= 3 Then
        Return True
    End If

    For i = 2 To num \ 2
        If (num Mod i) = 0 Then
            Return False
        End If
    Next

    Return True
End Function

Sub Main()
    For n As Integer = 1 To 999
        If IsPrimeNumber(n) Then
            Console.Write("{0} ", n)
        End If
    Next
End Sub

練習問題 6 - 8

２つの Integer 型変数の値を交換するメソッドを作成しなさい。引数に Integer 型で参照型の変数を２つ取り、値を交換します。

このメソッドを使用して、10 個の整数を入力し小さい順に並べ替えて表示するプログラムを作成しなさい。

Sub swap(ByRef r1 As Integer, ByRef r2 As Integer)
    Dim t As Integer = r1

    r1 = r2
    r2 = t
End Sub

Sub Main()
    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
                swap(values(i), values(j))
            End If
        Next
    Next

    For i = 0 To 9
        Console.Write("{0} ", values(i))
    Next
End Sub

練習問題 6 - 9

Integer 型整数の配列を小さい順に並べ替えるメソッドを作成しなさい。引数に Integer 型の配列を取ります。

このメソッドを使用して、10 個の整数を入力し小さい順に並べ替えて表示するプログラムを作成しなさい。

Sub swap(ByRef r1 As Integer, ByRef r2 As Integer)
    Dim t As Integer = r1

    r1 = r2
    r2 = t
End Sub

Sub sort(ByVal array() As Integer)
    For i = 0 To array.Length - 1
        For j = i + 1 To array.Length - 1
            If array(i) > array(j) Then
                swap(array(i), array(j))
            End If
        Next
    Next
End Sub

Sub Main()
    Dim values(9) As Integer

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

    sort(values)

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