章末問題７−１解答例

    Private Sub 上限_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 上限.TextChanged

        Dim i, 合計, 二乗の合計, 三乗の合計 As Integer
        i = 0
        合計 = 0
        二乗の合計 = 0
        三乗の合計 = 0
        For i = 1 To Val(上限.Text)
            合計 = 合計 + i
            二乗の合計 = 二乗の合計 + i * i
            三乗の合計 = 三乗の合計 + i * i * i
        Next
        和.Text = 合計
        二乗の和.Text = 二乗の合計
        三乗の和.Text = 三乗の合計

    End Sub

章末問題７−２解答例

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer
        Dim 合計 As Double
        合計 = Val(預金額.Text)
        For i = 1 To Val(年後.Text)
            合計 = 合計 * (1 + Val(利子.Text) / 100)
        Next
        年後の預金額.Text = Format(合計, "\\#,#.00")

    End Sub