13518219792
方法如下：
创新互联是一家专业提供金口河企业网站建设,专注与成都网站设计、网站制作、H5开发、小程序制作等业务。10年已为金口河众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
方法一：
保留三位整数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, "000")
保留三位小数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, ".000")
方法二：
用Format函数，比如通过text输入，转换后在窗体打印：Private Sub Command1_Click()
n = Text1.Text
t = Format(n, "000.###")
Print t
End Sub
拖三个textbox，一个button
在窗体上双击button1，在自动生成的button1的Click事件中：
textbox2.text=val(textbox1.text)^2
textbox3.text=val(textbox1.text)^3
注意只能对整型执行按位运算。浮点值必须转换为整型后，才能执行按位运算。按位运算采用二进制（以 2 为基）形式计算两个整数值。它们比较对应位置上的位，然后基于比较的结果赋值。下面的示例演示了 And 运算符。复制Dim x As Integerx = 3 And 5 前面的示例将 x 的值设置为 1。发生这种情况的原因如下：这些值以二进制形式处理：二进制格式的 3 为 011二进制格式的 5 为 101And 运算符比较这些二进制表示方式，一次比较一个二进制位置（位）。如果给定位置的两个位都为 1，则将 1 放在结果中的该位置。如果任何一个位是 0，则将 0 放在结果中的该位置。在前面的示例中，按如下所示计算结果：011（二进制格式的 3）101（二进制格式的 5）001（二进制格式的计算结果）计算结果以十进制形式处理。值 001 是 1 的二进制表示形式，因此 x = 1。除了在任何一个比较位是 1 或两个比较位都是 1 的情况下将 1 赋予结果位以外，按位 Or 运算与此类似。Xor 在比较的位正好只有一个是 1（而不是两者都是 1）时将 1 赋给结果位。Not 采用单个操作数并反转所有位（包括符号位），然后将该值赋予结果。这意味着，对于有符号正数，Not 始终返回负值，而对于负数，Not 始终返回正值或零。AndAlso 和OrElse 运算符不支持按位运算。 追问： 好复杂啊...还是不会,还有整数怎么转换为二进制数? 回答： 为什么一定要用位运算呢，你那个乘法只能通过左移操作符“ ”来进行，而左移一次代表乘以2，要是乘以一个小数，就必须先化成2的n次方，不够再用加减法调整，很麻烦啊，没必要用位运算啊。。。 追问： 因为我要进行大量的运算,但速度要快,所有用位运算...我也不想啊.. 回答： 那就不该用VB 啊，c/c++在执行效率上是没话说的。 追问： 问题就是不会嘛... 回答： 那你上csdn上发帖效果应该不错 追问： CSDN发了,我发在高性能运算,没人... 回答： 耐心一些，或者你应该发到VB.NET论坛那里。。。 追问： 额..只能这样了... 提问者 的感言： 太复杂了..算了 2010-11-08
非整数类型包括Decimal(128位)定点数、Single(32位)单精度浮点数和Double(64位)双精度浮点数。他们都是有符号类型。定点数取值不允许有舍入的误差，而浮点数允许有舍入的误差。浮点数的表示形式为：mmmEeee其中mmm为屦，而eee为指数（以10为底），对于非整数类型，值类型D表示Decimal，F表示Single，R表示Double。数字类型一般情况下可以直接相互进行转换.
