【输入正整数1～n中所有能被3和7整除的数字,数字的和,数字的个数.】

发布时间：2021-03-18 13:45:00

输入正整数1～n中所有能被3和7整除的数字,数字的和,数字的个数.

网友回答

这个很简单的...
给你个样本：
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long,s As String
Dim n As Long,sum As Long
s = InputBox(输入正整数n,输入,100)
If s = Then Exit Sub
n = Val(s)
If n
以上问题属网友观点，不代表本站立场，仅供参考！