四位数千百十个位vb代码 vb,如何提取一个四位数的四个数字?

vb，如何提取一个四位数的四个数字？ x=4321d=x1000 '千位c=x100 Mod 10 '百位b=x10 Mod 10 '十位a=n.输入一个三位数，分别求出百，十，个位数各为多少？vb语言程序设计 k=987...