從N1+(N1+1)+(N1+2)+...+N2之總和

wilson.lion

:D
利用主控台(console)應用程式專案來撰寫

1.開啟新增專案，選擇主控台應用程式

2.輸入程式碼

Module Module1
    Sub Main()
        Dim iN1 As Integer                                    
        Dim iN2 As Integer
        Dim iSum As Integer
        Dim i As Integer
        iSum = 0
        Console.Write("請輸入第一個數值：")
        iN1 = Console.ReadLine
        Console.Write("請輸入第二個數值：")
        iN2 = Console.ReadLine
        If iN1 < iN2 Then
            For i = iN1 To iN2
                iSum = iSum + i
            Next i
        Else
            For i = iN2 To iN1
                iSum = iSum + i
            Next i
        End If
        Console.Write(iSum)
        Console.Read()
    End Sub
End Module

3.開始偵錯(F5)

輸入第一個數：(任何數值)
輸入第二個數：(任何數值)
顯示總和

P.S.
因在輸入兩個任何數值中，如果後者比前者小時會出現問題，故在程式中再加入大小判斷
所以不管是前者大於後者或者是後者大於前者，都可以馬上計算總和


[ 本帖最後由 wilson.lion 於 2009-2-2 00:49 編輯 ]