统计输出100至999内能被3整除且至少有一位是5的整数的个数 要VB代码 最好有流程图
Private Sub Command1_Click()
Dim i(100 To 999) As Integer
m = 0
i = 100
Do While i