Privatesubform_click()
forj=1to10
x=j*2-1
ifx/3=int(x/3)orx/5=int(x/5)thens=s+x
nextj
Print"s=";s
endsub
A.27
B.30
C.32
D.37