急！！！！！统计输出100至999内能被3整除且至少有一位是5的整数的个数 要VB代码 最好有流程图 谢谢

补充：Private Sub Command1_Click()
Dim i(100 To 999) As Integer
m = 0
i = 100
Do While i <= 999
  If i Mod 3 = 0 Then
  a = i Mod 10
  b=?
  c=i\100
  if ? then
    m=m+1
    i=i+1
loop
?的地方填什么？

追问：Private Sub Command1_Click()
Dim i(100 To 999) As Integer
m = 0
i = 100
Do While i <= 999
  If i Mod 3 = 0 Then
  a = i Mod 10
  b=?
  c=i\100
  if ? then
    m=m+1
    i=i+1
loop
?的地方填什么？

答案：有些错误，改正如下：

Private Sub Command1_Click()
Dim i As Integer
m = 0
i = 100
Do While i <= 999
  If i Mod 3 = 0 Then
    a = i Mod 10
    b = (i - a) \ 10 Mod 10
    c = i \ 100
    If a = 5 Or b = 5 Or c = 5 Then m = m + 1
  End If
  i = i + 1
Loop
Print m
End Sub

其他：Sub test()
    Dim i As Integer
    Dim n As Integer
    For i = 102 To 999 Step 3'大于100且能被3整除的最小数为102,用step 3而不用mod可以使程序运行时间缩短2/3
        If InStr(i, 5) Then n = n + 1
    Next
    MsgBox n
End Sub

上一个：VB问题，如何设计一个简单的用于输入图的处理器，类似于简单的文本处理器那种
下一个：10分求vb中tab（n）问题