求出100到200之间能同时满足除3余2,除5余3条件的数的个数VB怎样编程

求出100到200之间能同时满足除3余2,除5余3条件的数的个数VB怎样编程

满足除3余2,除5余3条件的数符合公式15n+8（n是整数），所以可用以下代码：
Private Sub Command1_Click()
n = 0: m = 0: k = 8
Print "满足条件的数有：";
Do While k <= 200
If k >= 100 Then Print k;: m = m + 1
n = n + 1
k = 15 * n + 8
Loop
Print
Print "共计有" & m & "个。"
End Sub
结果：满足条件的数有：113 128 143 158 173 188 共计有6个。

a=0 for i=100 to 200 if i mod 3 =2 and i mod 5=3 then a=a+1 end if next i

Dim s3 As Integer Dim s5 As Integer Dim y2 As Integer Dim y3 As Integer s3 = 0 s5 = 0 For i = 100 To 200 y2 = i Mod 3 y3 = i Mod 5 If y2 = 2 Then s3 = s3 + 1 If y3 = 3 Then s5 = s5 + 1 Next i

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer, sum As Integer For i = 100 To 200 If i Mod 3 = 2 And i Mod 5 = 3 Then sum = sum + 1 End If Next TextBox1.Text = sum.ToString End Sub

100到200之间能同时满足除3余2,除5余3条件的数的个数为6个。具体代码如下： Private Sub Form_Click() Dim x As Integer x = 0 For i = 100 To 200 If i Mod 3 = 2 And i Mod 5 = 3 Then Print i x = x + 1 End If Next i MsgBox "100到200之间能同时满足除3余2,除5余3条件的数的个数为" & x & "个。" End Sub

private sub command1_click() dim sum as integer,i as integer for i=1 to 100 sum=sum+i next i print "sum=";sum end sub