'''此程式碼為幫助各位做出作業三用，來源為ch7中之程式碼之組合，請直接複製貼上至VB內
''' 程式碼內尚有許多要修改之處，請各位同學細心修改

Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a, terms, last, i, first, dif, sum As Integer
        a = InputBox("要使用VB嗎? 按(1)表示要，其他數字表示不要", "選擇視窗")

        If a = 1 Then
            terms = InputBox("要使用VB嗎? 按(1)表示要，其他數字表示不要", "選擇視窗")

            last = first + (terms - 1) * dif


            For i = first To last Step dif
                sum = sum + i

            Next
            MsgBox("歡迎使用VB", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "使用VB")

        Else
            MsgBox("不使用VB", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "不使用VB")

        End If
        MsgBox("程式結束", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "程式結束")

    End Sub
End Class