求助！

zxcnet

以下代码为统计[text1]至[text2]之间有多少个能被3整除的数
Dim I, J
J = 0
For I = [Text1] To [Text2]
If I / 3 - Int(I / 3) = 0 Then
J = J + 1
End If
Next I
[Text3] = J

现在想设一个字段能将这些数罗列出来，请问改如何操作？

zyp

Dim I As Integer,A as  Integer,B as  Integer,MyStr as string
a=me.text1
b=me.text2
mystr=""
for i=a to b
      if i mod 3=0 then
          mystr=mystr & i &";"
      end if
next i
if len(mystr)>0 then  mystr=left(mystr,len(mystr)-1)
msgbox "在指定范围内,能被3整除的数有("& mystr &")"

zxcnet

非常感谢！