啊啊新手求大佬这个题目怎么写？
vb吧
全部回复
仅看楼主
level 1
Sunbor_ 楼主
输出1到100之间所有7的倍数的自然数个数及累加和

#VB#
2020年12月01日 12点12分 1
level 11
DiverAZAM
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim s As Integer
For i = 1 To 100
If i Mod 7 = 0 Then
n = n + 1
s = s + i
End If
Next i
Print "个数" & n & "，累加和" & s
End Sub
2020年12月01日 17点12分 7
DiverAZAM
我突然想起来，如果题目是要求手写而非机器输入，那么内容应该略微不一样
2020年12月02日 11点12分
level 10
laola1000
我认为已经告诉了7的倍数就没必要用if语句了。
for i=7 to 100 step7
a=a+1:b=b+i
next
debug.print "共计:& a & "个数，和为:"& b
2020年12月02日 08点12分 8
DiverAZAM
我认为8楼"1到100之间"的"1"没有用上[汗]
2020年12月02日 10点12分
1