程序改错，c语言初学者，请各位大佬帮忙！谢谢你！！！

Question

1、程序功能：求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。程序中有一处错误。改正错误，使它能输出正确的结果。
Private Sub Command1_Click()
Dim c As Integer
Dim x As Integer
For x = 351 To 432
If x Mod 3 <> 0 And x Mod 8 <> 0 Then
c = c + 1
End If
'下一行程序有错
Next c
Print c
End Sub
2、程序功能：求1～200之间的能被7整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果。
Private Sub Command1_Click()
Dim x As Integer
Dim sum As Long
x = 1
sum = 0
While x <= 200
'下一行程序有错
If x / 7 = 0 Then
sum = sum + x ^ 2
End If
x = x + 1
Wend
Print sum
End Sub

Answer 1

你到底是C语言还是Basic语言？

改错如下
Next c
->
Next x

If x / 7 = 0 Then
->
If x Mod 7 = 0 Then