章末問題9−1の解答例 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 答え.Text = xのy乗(Val(x.Text), Val(y.Text)) End Sub Public Function xのy乗(ByVal x As Integer, ByVal y As Integer) As Integer Dim i, 計算結果 As Integer 計算結果 = 1 For i = 1 To y 計算結果 = 計算結果 * x Next Return 計算結果 End Function