《孙子算经》中有一个“物不知其数”的问题,某数以3除余2,以5除余3,以7 除余 2。下面的 VB 程序用于求 1000
以内满足该条件的自然数及个数,请在程序划线处应填入合适的表达式。
Private Sub Command1_Click()
Dim c As
Integer, n As Integer c = 0 : n = 9
Do While n <=
1000
If n Mod 3
= 2 And n Mod 5 = 3 Then
List1.AddItem
Str(n)
c
={#blank#}1{#/blank#}
End If
n
={#blank#}2{#/blank#}
Loop
Label1.Caption
= "1000 以内满足条件的数有" & Str(c)& "个"
End Sub