第一回定期試験　試験範囲

以下のかだいができればOKです。がんばってやりましょう。

１．次の四則演算のプログラムの空白を埋めなさい。

それぞれのオブジェクト名
　 ①ＴｅｘｔＢｏｘ１
　 ②ＴｅｘｔＢｏｘ２
　 ③ＴｅｘｔＢｏｘ３
　 ④ＴｅｘｔＢｏｘ４
　 ⑤Ｂｕｔｔｏｎ２
　 ⑥Ｂｕｔｔｏｎ１
　 ⑦Ｂｕｔｔｏｎ３
　 ⑧Ｂｕｔｔｏｎ４
　 ⑨Ｂｕｔｔｏｎ５
　 ⑩Ｌａｂｅｌ１

⑩のラベルは、それぞれのボタンを押すとその演算記号になる。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
　Label1.Text = " "
　TextBox3.Text = Val( ) + Val( )
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　Label1.Text = " "
　TextBox3.Text = Val( ) - Val( )
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
　Label1.Text = " "
　TextBox3.Text = Val( ) * Val( )
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
　Label1.Text = " "
　If Val( ) Then
　　TextBox3.Text = Val( ) / Val( )
　Else
　　MsgBox("除算数が０の場合は、計算できません。")
　End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
　Label1.Text = " "
　If Val( ) Then
　　TextBox3.Text = Val( ) \ Val( )
　　TextBox4.Text = Val( ) Mod Val( )
　Else
　　MsgBox("除算数が０の場合は、計算できません。")
　End If
End Sub

２．次のプログラムは、大小を比較するプログラムである。空白を埋めなさい。

＜条件＞
　 ・ａ＞ｂのときは、「変数ａのほうが大きい」とＬａｂｅｌ６に表示させる。
　 ・ａ＜ｂのときは、「変数ｂのほうが大きい」とＬａｂｅｌ６に表示させる。
　 ・ａ＝ｂのときは、「変数ａと変数ｂは等しい」とＬａｂｅｌ６に表示させる。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　Dim a, b As
　a = Val( )
　b = Val( )
　If Then
　　Label5.Text = "変数ｂのほうが大きい"
　End If
　If Then
　　Label5.Text = "変数ａのほうが大きい"
　End If
　If Then
　　Label5.Text = "変数ａと変数ｂは等しい"
　End If
End Sub

３．次は、ストップウォッチのプログラムである。空白を埋めなさい。

それぞれのオブジェクト名
　①ＴｅｘｔＢｏｘ１
　②ＴｅｘｔＢｏｘ２
　③Ｂｕｔｔｏｎ１
　④Ｂｕｔｔｏｎ２
　⑤Ｂｕｔｔｏｎ３

　＜条件＞
　　 ・ テキストボックスは、２つとも「０」を表示させておく。
　　 ・クリアボタンを押すとテキストボックスは、２つとも「０」を表示する。
　　 ・タイマー（Ｔｉｍｅｒ）をツールボックスから配置し、プロパティ「Ｉｎｔｅｒｖａｌ」を１０にする。
　　 ・スタートボタンを押すとストップウォッチが動作し、ストップボタンを押すとストップウォッチがストップする。
　　 ・ＴｅｘｔＢｏｘ２は、１／１００秒でカウントし、９９の次は、０になる。
　　 ・ＴｅｘｔＢｏｘ１は、１秒でカウントし、５９の次は、０になる。
　　 ・タイマーは、プロパティ「Ｅｎａｂｌｅｄ」をＴｒｕｅにすると動作し、Ｆａｌｓｅにすると停止する。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　Timer1.Enabled =
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
　　Timer1.Enabled =
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
　　TextBox1.Text =
　　TextBox2.Text =
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
　If Val( ) Then
　　TextBox2.Text = Val( ) + 1
　Else
　　TextBox2.Text =
　　If Val( ) Then
　　　TextBox1.Text = Val( ) + 1
　　Else
　　　TextBox1.Text =
　　End If
　End If
End Sub