找出被3、5、7除,余数均为1的最小的5个正整数。 Private Sub Command1_Click() Dim countn%, n% n =1: countn = 0 Do n= n + 1 If Then Print n countn = countn + 1 End If Loop until count n=5 End Sub
A.n mod 3=1 And n mod 5=1 And n mod 7=1
B.n mod 3=1 or n mod 5=1 or n mod 7=1
C.n \ 3=1 And n \ 5=1 And n \ 7=1
D.n \ 3=1 or n \ 5=1 or n \ 7=1
- · 有6位网友选择 B,占比54.55%
- · 有2位网友选择 C,占比18.18%
- · 有2位网友选择 D,占比18.18%
- · 有1位网友选择 A,占比9.09%