vb，如何提取一个四位数的四个数字？ x=4321d=x \\ 1000 '千位c=x \\ 100 Mod 10 '百位b=x \\ 10 Mod 10 '十位a=n.
输入一个三位数，分别求出百，十，个位数各为多少？vb语言程序设计 k=987NNN k，a，b，cmsg=CStr(k)+vbTab+\"百位：\"+CStr(a)+vbTab+\"十位：\"+CStr(b)+vbTab+\"个位：\"+CStr(c)MsgBox msgFunction NNN(byval n，byref n100，byref n10，byref n1)'n为待分析的数字，通过n100返回n的百位，n10返回十位，n1返回个位'如果输入可能会有大于999的数字需要在开始的时候判断一下n100=Int(n/100)'除以100再取整数就是百位n=n-n100*100 '把n百位去掉，就是原来的n减去整百，以下依据这个规律n10=Int(n/10)n1=n-n10*10End Function
VB代码 一个四位数的完全平方，它的千位加十位等于百位乘个位. For i=1000 To 9999j=i-Int(i/10)*10k=Int(i/1000)l=i-k*1000m=Int(l/100)n=l-m*100o=Int(n/10)If Int(Sqr(i))=Sqr(i)And o+k=j*m Thena=iEnd IfNext iPrint a
