用VB编程求1到100（包括100）自然数中能被3和7同时整除的个数
1个回答
展开全部
Private Sub Form_click()
Me.AutoRedraw = True
Me.Cls
k = 0
For i = 1 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then k = k + 1
Next i
Print "1-100之间既能被3整除又能被7整除的数有" & k & "个"
End Sub
Me.AutoRedraw = True
Me.Cls
k = 0
For i = 1 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then k = k + 1
Next i
Print "1-100之间既能被3整除又能被7整除的数有" & k & "个"
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
