Question

输出(1,100)之间同时被5和7整除的数的个数及他们的和?要求用vb编写程序 哪位大神帮帮忙啊

马上就要考试了各位大神帮帮忙吧

Answer 1

Private Sub Command1_Click()
Dim i As Integer, s As Integer, n As Integer
For i = 1 To 100
If i Mod 5 + i Mod 7 = 0 Then n = n + 1: s = s + i
Next
Print "(1,100)之间同时被5和7整除的数的个数："; n
Print "它们的和："; s
End Sub

Answer 2

Option Explicit
Dim k As Integer
Dim s As Integer
Dim d As Integer
Private Sub Command1_Click()
For k = 1 To 100
If k Mod 5 = 0 And k Mod 7 = 0 Then
s = s + 1 ‘个数
d = d + k ’他们的和
End If
Next
End Sub

Answer 3

temp=o；J=o

for i = 1 to 100
if i mod 5 =0 and i mod 7 = 0
then
{
temp=temp + i
j=j+1
}
next
print(temp)
print(j)