VB用FOR语句编程,计算1-3+5-7+...-99+101的值

VB用FOR语句编程,计算1-3+5-7+...-99+101的值

Private Sub Command1_Click()
  Dim i%, k%, sum%
  sum = 1
  For i = 2 To 51
    k = i * 2 - 1
    If i Mod 2 = 0 Then
      k = -1 * k
    End If
    sum = sum + k
  Next i
  Print "sum = " & sum
End Sub运行结果，显示 sum = 51

Dim n As Integer, k As Integer, s As Integer k = 1 For n = 1 To 101 Step 2     s = s + k * n     k = -k Next MsgBox s

Dim n As Integer, k As Integer, s As Integer k = 1 For n = 1 To 101 Step 2     s = s + k * n     k = -k Next MsgBox s 再看看别人怎么说的。