作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/29 00:27:11
设计vb程序要求计算1到100的所有数的和并且求可以整除19的数的个数
设计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