其中考前的題目~_~!!

Private Sub Form_Activate()
Dim s, i, sum ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

謝謝你的分享囉 ~
或許有人不會這題, 你正好可以分享這答案 !

^^

Dim s, i, sum As Integer

這樣宣告的話,只有 sum 會被宣告成Integer

s,i兩變數是 varient 型態

正確宣告法 > Dim s as Integer,i as Integer, sum as Integer
不能不注意!!

稍微改些地方，僅供參考
變數定義後不使用的話會浪費記憶體
Private Sub Form_Activate()
  '以下定義變數
  Dim s As Integer, i As Integer, sum As String
  '以下初始化變數
  s = 0: sum = "": i = 0
  '以下使用迴圈計數
  For i = 1 To 10 Step 1
      s = s + i
      If i < 10 Then
        sum = sum & CStr(i) & "+"
      Else
        sum = sum & CStr(i)
      End If
  Next i
  '以下印出結果
  sum = sum & "=" & s
  Print sum '最後直接一次處理結果
End Sub