求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?_数学解答

求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?

人气：195 ℃　时间：2020-03-24 12:23:24

解答

Private Sub Command1_Click()Dim m%, n%For i = 1 To 100 If i Mod 3 = 0 Then m = m + 1 If i Mod 7 = 0 Then n = n + 1Next iPrint "统计1~100中,满足3的倍数的个数是"; mPrint "统计1~100中,满足7的倍数的个...