Question

vb怎么判断一个整数是几位数？求代码

Answer 1

x/10;
循环判断取整，直到结果为零；
同时设定一个变量初始值为零，每循环一次加一，循环结束，变量结果即为整数位数。

Answer 2

那就来点通俗的吧
新建一个vb工程
添加一个command按钮控件
然后复制下面代码
private
sub
command1_click()
dim
a
as
double,
b
as
long,
c
as
double
a
=
3.143
if
a
=
int(a)
then
b
=
a
c
=
0
else
b
=
int(a)
c
=
(a
-
int(a))
*
60
end
if
print
a,
b,
round(c,
2)
end
sub
点击按钮
即可达到你要的目的
代码中的a=3.143
你自己可以随意修改
a就是你的输入数.