[local]2[/local]Private Sub Command1_Click()
Dim i%, j%, l%, b(1 To 101, 1 To 101)

For i = 1 To 100

 If i Mod 3 = 0 Then

 L = L + i

 b(i, 1) = i

 Print b(i, 1)

 End If

 If i Mod 7 = 0 Then

 N = N + i      '累加7的倍数
 b(i, 2) = i    '记录7的倍数
'Print b(i, 2)
 End If
Next i
End Sub

b(i，1) 二维数组1记录3的倍数每一条
b(i,2)  二维数组2记录7的倍数每一条

给新手学习

谁说不能 上图[attach]72616[/attach]

输出2条选一条 否则一个3一个7

[ 本帖最后由 tonoy 于 2013-9-1 13:41 编辑 ]

大佬：上机试试结果好似不正确呀

dim a as integer
for a=1 to 100
  if a mod 3 =0 and a mod 7=0 then
   print a
  else
  end if
next