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

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