中央論壇 - CENTER BBS

標題: 從N1+(N1+1)+(N1+2)+...+N2之總和 [打印本頁]

作者: wilson.lion 時間: 2009-2-1 20:32
標題: 從N1+(N1+1)+(N1+2)+...+N2之總和
: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 編輯 ]

歡迎光臨中央論壇 - CENTER BBS (https://www.centerbbs.com/)