设计一个算法，计算2+4+6+8+……+200，并画出程序框图

Question

如题所述

Answer 1

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  S = 0 : i = 2
  Do
    S = S + i
    If Not (i < 200) Then Exit Do
    i = i + 2
  Loop
  MsgBox S, vbInformation, "输出"
End Sub  '结束

Answer 2

Dim s As Long, i As Long
For i = 2 To 200 Step 2
s = s + i
Next i
Print s本回答被网友采纳