小问题~ 如何 把一个小数分成两个数？ 如 3.5 怎样 把它分成 3 和 5 两个数？？？

Question

如何 把一个小数分成两个数？ 如 3.5  怎样 把它分成 3 和 5 两个数？？？
哪位大哥帮下忙！ 先谢了顺便问个 问题 
    
    Access 数据库中的 自动编号  在使用一段时间后 怎样把它 重新置为 1 ？？

Answer 1

a = Int(3.56511)
b = 3.56511 - Int(3.56511)
For n = 1 To Len(b) - 1
b = b * 10
Next
Print a
Print b

Answer 2

先取得小数的长度(包含小数点)
再用left和right函数分别取两边的字符

Answer 3

a = Int(Val(Text1.Text))
b = Mid(Val(Text1.Text), Len(a) + 2)
Print a
Print b
这个更好

Answer 4

1
dim arr() as string
arr = split("3.5", ".")debug.print arr(0)
debug.print arr(1)2
删除所有数据后压缩数据库。

Answer 5

Access 数据库中的 自动编号  在使用一段时间后 怎样把它 重新置为 1 ？？答：你先把表里数据全部删除了，然后点 工具－>数据库实用工具－>压缩和修复数据库就可以了，你下次再输入数据时自动编号就又会从1开始