VB 输出同时能被3和7整除的数

Question

如题所述

Answer 1

用Mod 运算符来将两数作除法运算，但返回其余数为0条件判断。

Mod 运算符，用来对两个数作除法并且只返回余数。

And 运算符，用来对两个表达式进行逻辑连接。

假设某数是i：

i Mod 3 = 0 And i Mod 7 = 0

    Dim i As Long
    For i = 1 To 1000
        If i Mod 3 = 0 And i Mod 7 = 0 Then Print i
    Next追问

还是不太懂 怎么写在本子上

追答Private Sub Command1_Click()
    Dim i As Long
    For i = 1 To 1000
        If i Mod 3 = 0 And i Mod 7 = 0 Then Print i
    Next
End Sub

Answer 2

用mod,如下述测试100是否能被3和7整除

如：
Dim a
Dim b

a = 100 mod 3
b = 100 mod 7

If a=0 and b=0 Then
'能被3和7同时整除
else
'不能被3和7同时整除
End If

Answer 3

Dim I As Integer
Dim str As String
For I = 1 To 10000
If I Mod 7 = 0 And I Mod 3 = 0 Then
str = str & "," & I
End If
Next I
Print str追问

你那个10000是什么意思？