///　実習C3　制御文(If〜Then〜ElseIf〜Else〜End If)	プログラミング実習

プロジェクト名　　実習C3 西暦元号変換

動作

　西暦年を元号年に変換するプログラムである。

デザイン

フォームのプロパティ 　Font.Size = 11 　Size = 400, 150

ヒント 　明治は1868年、大正 1912年は、昭和1926年は、平成は1989年がそれぞれ元年である。 　西暦を元号に変換するには、入力された西暦から(元年-1)を減算すれば求められる。例えば、1926年は、1926-(1962-1)=1となり、昭和1年であると求められる。

コード(プログラム)    [終了ボタン]のメソッドは省略しています。　

Public Class Form1
　　Private Sub btnHenkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHenkan.Click
　　　　Dim seireki, gengou As Integer
　　　　Dim str_gengou As String
　　　　seireki = 　�@　(tbxSeireki.Text)
　　　　If seireki 　�A　　1989 Then
　　　　　　str_gengou = "平成"
　　　　　　gengou = seireki ? 　�B　
　　　　ElseIf seireki 　�A　　1926 Then
　　　　　　str_gengou = "昭和"
　　　　　　gengou = seireki ? 　�C　
　　　　ElseIf seireki 　�A　　1912 Then
　　　　　　str_gengou = "大正"
　　　　　　gengou = seireki ? 　�D　
　　　　ElseIf seireki 　�A　　1868 Then
　　　　　　str_gengou = "明治"
　　　　　　gengou = seireki ? 　�E　
　　　　Else
　　　　　　MessageBox.Show("入力された西暦年は正しくありません。", "実習C3")　　←※
　　　　　　Exit Sub
　　　　End If
　　　　lblGengou.Text = "西暦" & seireki.ToString & "年は、" & str_gengou
　　　　lblGengou.Text = lblGengou.Text & gengou.ToString & "年です。"
　　End Sub
End Class

解答欄（英数字は半角で入力すること。余分な空白は入れないこと）
　　�@ 　　�A 　　�B
　　�C 　　�D 　　�E
　　　解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

キーワード

Exit

処理を抜け出す。”Exit Sub”はSub〜End Subを抜け出す。
ほかに、”Exit For”(For〜Next)、”Exit Do”(Do〜Loop)などがある。

解説

ElseIf は、IfとEnd If(またはElse)の間に、何個でも書くことができる。

MessageBox.Show("入力された西暦年は正しくありません。", "実習C3")

テスト

1867年(1867以下)でメッセージボックスが開くことを確認する。
各元号の1年の西暦を入力して、正しい出力がされるか確認する。

///　実習C3　制御文(If〜Then〜ElseIf〜Else〜End If)	Copyright©2014 Hiroshi Masuda