设计一个VB程序，求20~200的6的倍数或9的倍数的和。

这个题目也太那个了。。
代码如下：

Private Sub Form_Click()
Dim x As Integer, sum As Integer
sum = 0
For x = 20 To 200
If x Mod 6 = 0 Or x Mod 9 = 0 Then
sum = sum + x
End If
Next x
Print "20到200的6的倍数或9的倍数的和为："; sum
End Sub

Private Sub Command1_Click()

Dim x As Integer, sum As Integer
sum = 0
For x = 20 To 200
If x Mod 6 = 0 Or x Mod 9 = 0 Then
sum = sum + x
End If
Next x
Print "20到200的6的倍数或9的倍数的和为："; sum

End Sub

搞定

再多加点分，高手没准会帮你