Question

编写VB程序：计算在0至99的范围内有多少个数,其每位数的乘积大于每位数的和.

Answer 1

dim i,j,a,b as integer

for i=0 to 99

a=i10

b=i mod 10

if a*b>a+b then j=j+1

next

print j