第五章 隨堂練習二程式

Public Class Form1
'計算鈕
　Private Sub Bt_com_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt_com.Click

　Dim i, j, ans As Double
　j = Val(Tx_num.Text)
　ans = 1
　For i = 1 To j
　　ans = ans * i
　Next i
　lb_result.Text = j & "!" & "=" & ans

　End Sub
'清除鈕
　Private Sub Bt_clear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt_clear.Click
　　Tx_num.Text = ""
　　lb_result.Text = ""
　　Tx_num.Focus()

　End Sub
'結束鈕
　Private Sub Bt_end_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt_end.Click
　　End
　End Sub
End Class