设计vb程序要求计算1到100的所有数的和并且求可以整除19的数的个数

Sub test() Dim i As Integer, s As Integer, n As Integer For i = 1 To 100 s = s + i If i Mod 19 = 0 Then n = n + 1 Next i MsgBox "1到100所有数的和是" & s MsgBox "其中能被19整除的数有" & n & "个"End Su