text1用来输入一个三位数代码如下:PrivateSubForm_Click()Print"个位数是:"&Val(Text1.Text)Mod10Print"十位数是:"&Val(Text1.Text)\10Mod10Print"百位数是:"&Val(Text1.Text)\100EndSub