Question

用VB编程实现下面的目的，输入一个正整数，然后计算该数的每一位非零数字相乘的积。

如输入103601计算结果为1*3*6*1=18

Answer 1

x = Val(InputBox("正整数", "输入", 1234556))
t = 1
While x >= 1
y = x Mod 10 '截取得余数
Print y; '查看值
If y <> 0 Then t = t * y
x = x \ 10 '截取后的内容
Wend
Print t