求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?
问题描述：
求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?
答
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的倍数的个...