vb编程，计算0至100不能被7整除的所有整数的和！

窗体上有一个名称为List的列表框,一个名称为Text1的文本框,一个名称为Lable1、Caption属性为"Sum"的标签,一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1~100之间能够被7整除的数添加到列表框中。
如果单击“计算”按钮，则对List中的数进行累加求和，并在文本框中显示计算结果，代码如下：：：

Dim i As Integer, Sum As Integer
Private Sub Form_Load()
For i= 1 to 100
if i Mod 7 =0 then
List1.AddItem i
End if
Next
End Sub
Private Sub Command1_Click()
Sum =0
For i = 0 to List1.ListCount -1
Sum =Sum + List1.List(i)
Next
Text1.text =Sum
End Sub
调试一下试试

main()
int a,i,n;
a=0;i=i++;
后面自己想吧。忘了

Private Sub Command1_Click()
Dim i, sum As Integer
sum = 0
For i = 0 To 100
If i Mod 7 = 0 Then sum = sum + i
Next i
Print sum
End Sub