作业帮 > 综合 > 作业

在小于100的正整数中共有多少个数被7除余2?这些数的和是多少编成vb程序

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/08 13:32:02
在小于100的正整数中共有多少个数被7除余2?这些数的和是多少编成vb程序
在小于100的正整数中共有多少个数被7除余2?这些数的和是多少编成vb程序
Private Sub Command1_Click()
Dim X As Integer, S As Integer
For I = 1 To 99
    If I Mod 7 = 2 Then
        X = X + 1
        S = S + I
    End If
Next I
Text1.Text = "" & X & "个数被7除余2,这些数的和是:  " & S
End Sub
有14个数,和是 665