一个小于200的自然数,它的每位数字都是奇数,且是两个两位数的乘积,应用函数调用的方法编写程序求解这个数

public function find_num() as integer
dim i,j as integer
dim sum as integer
dim a,b,c as integer
for i=10 to 99
for j=10 to 99
sum=i*j
a= sum100
b=( sum-a*100)10
c=mod(sum,10)
if((a/20) and (b/20) and( c/20)) then
print sum
end if
next j
next i
end function
VB写的 自己看看