Top >VB.NET　練習問題集

3. 分岐

練習問題 3 - 1

Integer 型の変数 x、y にそれぞれ数値を入力し、x が y より大きい場合に、“xはyより大きい。”という文を表示するプログラムを作成しなさい。

Dim x, y As Integer

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

If x > y Then
    Console.WriteLine("xはyより大きい。")
End If

練習問題 3 - 2

Integer 型の変数 x、y にそれぞれ数値を入力し、x が ｙより大きい場合には“xはyより大きい”、x が y より小さい場合には“xはyより小さい”と表示するプログラムを作成しなさい。

Dim x, y As Integer

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

If x > y Then
    Console.WriteLine("xはyより大きい。")
ElseIf x < y Then
    Console.WriteLine("xはyより小さい。")
End If

練習問題 3 - 3

２つの整数値を入力し、大きい方の数を表示するプログラムを作成しなさい。

Dim x, y As Integer

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

If x > y Then
    Console.WriteLine(x)
Else
    Console.WriteLine(y)
End If

練習問題 3 - 4

Integer 型の変数 x、y にそれぞれ数値を入力し、x が ｙ より大きい場合には“xはyより大きい”、x が y より小さい場合には“xはyより小さい”、x と y が等しい場合には“xとyは等しい”と表示するプログラムを作成しなさい。

Dim x, y As Integer

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

If x > y Then
    Console.WriteLine("xはyより大きい。")
ElseIf x < y Then
    Console.WriteLine("xはyより小さい。")
Else
    Console.WriteLine("xとyは等しい。")
End If

練習問題 3 - 5

正の整数値を入力し、それが偶数か奇数かを判定するプログラムを作成しなさい。

Dim x As Integer

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

If (x Mod 2) = 0 Then
    Console.WriteLine("偶数です。")
Else
    Console.WriteLine("奇数です。")
End If

練習問題 3 - 6

整数値を入力し、以下の４つの分類から該当するものを表示するプログラムを作成しなさい。

“正の偶数”、“正の奇数”、“負の偶数”、“負の奇数”

Dim x As Integer

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

If (x Mod 2) = 0 Then
    If x >= 0 Then
        Console.WriteLine("正の偶数")
    Else
        Console.WriteLine("負の偶数")
    End If
Else
    If x >= 0 Then
        Console.WriteLine("正の奇数")
    Else
        Console.WriteLine("負の奇数")
    End If
End If

練習問題 3 - 7

試験の点数を入力し、対応する成績を表示するプログラムを３種類作成しなさい。

ケース1
Dim score As Integer

score = Integer.Parse(Console.ReadLine())

If score >= 60 Then
    Console.WriteLine("合格")
Else
    Console.WriteLine("不合格")
End If
ケース2
Dim score As Integer

score = Integer.Parse(Console.ReadLine())

If score >= 80 Then
    Console.WriteLine("たいへんよくできました。")
ElseIf score >= 60 Then
    Console.WriteLine("よくできました。")
Else
    Console.WriteLine("ざんねんでした。")
End If
ケース3
Dim score As Integer

score = Integer.Parse(Console.ReadLine())

If score >= 80 Then
    Console.WriteLine("優")
ElseIf score >= 70 Then
    Console.WriteLine("良")
ElseIf score >= 60 Then
    Console.WriteLine("可")
Else
    Console.WriteLine("不可")
End If

練習問題 3 - 8

中間試験と、期末試験の点数（それぞれ 0 ～ 100 点）を入力し、次の条件に従って合格、不合格を判定するプログラムを作成しなさい。

  • 両方とも60点以上の場合、合格
  • 合計が130点以上の場合、合格
  • 合計が100点以上で、どちらかの試験が90点以上であれば合格
  • 上記以外は不合格
Dim score1, score2 As Integer

score1 = Integer.Parse(Console.ReadLine())
score2 = Integer.Parse(Console.ReadLine())

If score1 >= 60 And score2 >= 60 Then
    Console.WriteLine("合格")
ElseIf (score1 + score2) >= 130 
    Console.WriteLine("合格")
ElseIf (score1 + score2) >= 100 And (score1 >= 90 Or score2 >= 90) Then
    Console.WriteLine("合格")
Else
    Console.WriteLine("不合格")
End If

練習問題 3 - 9

曜日と、午前、午後、夜間の区別を入力し、病院が開いているか、休診であるかを表示するプログラムを作成しなさい。

Dim day, zone As Integer
Dim bopen As Boolean = True

Console.WriteLine("曜日を選択してください")
Console.Write("0=日曜、1=月曜、2=火曜、3=水曜、4=木曜、5=金曜、6=土曜")
day = Integer.Parse(Console.ReadLine())

Console.WriteLine("時間帯を選択してください")
Console.Write("0=午前、1=午後、2=夜間")
zone = Integer.Parse(Console.ReadLine())

If day = 0 Then
    bopen = False
ElseIf zone = 0 And (day = 2 Or day = 5) Then
    bopen = False
ElseIf zone = 1 And day = 6 Then
    bopen = False
ElseIf zone = 2 And (day = 3 Or day = 6) Then
    bopen = False
End If

If bopen Then
    Console.WriteLine("診療しています。")
Else
    Console.WriteLine("休診です。")
End If

練習問題 3 - 10

整数値 x, y を入力し、以下の条件に該当する場合、そうであることを示す文を表示しなさい。

  • x は y より小さく、かつ、x と y は共に偶数である。
  • x と y は等しく、かつ、負の数である。
  • x は y より小さい、または、x は偶数である。
  • x は 10 以下または 100 以上で、かつ、y は 10 以上かつ 100 以下である。
  • x も y も負の数である、ではない。（ x も y も負の数である、の否定）
Dim x, y As Integer

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

If x < y And (x Mod 2) = 0 And (y Mod 2) = 0 Then
    Console.WriteLine("xはyより小さく、かつ、xとyは共に偶数である。")
End If

If x = y And x < 0 Then
    Console.WriteLine("xとyは等しく、かつ、負の数である。")
End If

If x < y Or (x Mod 2) = 0 Then
    Console.WriteLine("xはyより小さい、または、xは偶数である。")
End If

If (x <= 10 Or x >= 100) And (y >= 10 And y <= 100) Then
    Console.WriteLine("xは10以下または100以上で、かつ、yは10以上かつ100以下である。")
End If

If Not ( x < 0 And y < 0 ) Then
    Console.WriteLine( "xもyも負の数である、ではない。" )
End If

練習問題 3 - 11

好きな鮨（すし）を選択させ、それに対応したメッセージを表示する、鮨占いプログラムを作成しなさい。

Dim sushi As Integer

Console.WriteLine("お好きな寿司を選んでください")
Console.WriteLine("1:まぐろ 2:えび 3:こはだ 4:あなご 5:いくら")

sushi = Integer.Parse(Console.ReadLine())

Select sushi
    Case 1
        Console.WriteLine("何か良いことがあります。")
    Case 2
        Console.WriteLine("驚くほど良いことがあります。")
    Case 3
        Console.WriteLine("ちょっと良いことがあります。")
    Case 4
        Console.WriteLine("とても良いことがあります。")
    Case 5
        Console.WriteLine("そこそこ良いことがあります。")
End Select

練習問題 3 - 12

月を表す数値を入力し、大の月であれば、“n月は大の月です”、小の月であれば“n月は小の月です”と表示するプログラムを作成しなさい。

　

また、1 ～ 12 以外の数値が入力された場合に、“そんな月はありません”と表示する機能を追加しなさい。

Dim month As Integer

Console.WriteLine("何月ですか？")
month = Integer.Parse(Console.ReadLine())

Select Case month
    Case 1, 3, 5, 7, 8, 10, 12
        Console.WriteLine("{0}月は大の月です", month)
    Case 2, 4, 6, 9, 11
        Console.WriteLine("{0}月は小の月です", month)
End Select
Dim month As Integer

Console.WriteLine("何月ですか？")
month = Integer.Parse(Console.ReadLine())

Select Case month
    Case 1, 3, 5, 7, 8, 10, 12
        Console.WriteLine("{0}月は大の月です", month)
    Case 2, 4, 6, 9, 11
        Console.WriteLine("{0}月は小の月です", month)
    Case Else
        Console.WriteLine("そんな月はありません")
End Select
PAPER BOWL
NEZEN