Question

设计一个VB程序，从键盘输入任意一个整数，判断其为几位数。怎么编写程序？

Answer 1

X为得到的位数。
X=len(val(inputbox("请输入任意整数：","提示","")))

追问

请问全部怎么打？打入输入负整数怎么判断？

追答

private sub PanDuan()
dim X as long
x=len(abs(val(inputbox(“请输入任意整数：","提示",""))))
msgbox “您输入的数字为 " & x & " 位数!"
end sub