VB 代码实现 1 到 100 的累加

以下是 VB 代码，实现 1 到 100 的累加：

Dim sum As Integer
sum = 0
For i = 1 To 100
    sum = sum + i
Next i
MsgBox '1到100的累加和为：' & sum

代码解释：

1. 首先定义一个整形变量 sum 并初始化为 0。
2. 使用 For 循环，从 1 到 100 进行遍历，每次将 i 加到 sum 中。
3. 循环结束后，使用 MsgBox 输出累加的结果。