vb,通过公式计算得到一个数值，怎样取到小数点后三位，并...
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上新建一个Command控件；
3、双击Command1控件，进入代码编辑界面，输入代码：
Private Sub Command1_Click()Dim res As Doubleres = Format(1 / 3, "0.000")Print res;End Sub
4、运行工程，单击按钮，可以看到数据被保留三位小数；
5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：
format(1/3,"0.00000")
方法1：
先取10倍后小数，再取整，再与10求余数，得到小数点后一位
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Str(Int(a * 10) Mod 10), 0, "提示"
方法2：
先将小数用Format转成只有一位小数字符，然后用Right取最后一位字符，得到小数点后一位
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Right(Format(a, ".#"), 1), 0, "提示"
方法3：
先将小数放大1倍，再取整数，然后用Right取最后一位字符，得到小数点后一位
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Right(Str(Int(a * 10)), 1), 0, "提示"
方法4：
将数先放大10倍，取整，减去取整后放大10倍的数，得到得到小数点后一位的值
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Str(Int(a * 10) - Int(a) * 10), 0, "提示"
设你上面的E值要取三位小数点：
【方法一】
E = Round(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,3)
【方法二】
E = Format(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,"0.000")
显示三位小数点的作用是，一般主要用于显示的时候才用，中间过程没必要使用的。上面的两个方法其实也是没必要的，因为它是中间过程，这里只是给你看而已。真正使用时如下（假如要在文本框text1显示E值给用户看）：
【方法一】
Text1.text= Round(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,3)
或Text1.text=Round(E,3)
【方法二】
Text1.text== Format(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,"0.000")
或Text1.text=Format(E,"0.000")
round(xxxxxxx,3)
format(xxxxxxxxx,"#0.000")
vb中计算任意一位数组元素个数的公式是
答：对于一维数组a 元素个数为 UBound(a)-LBound(a)+1
vb中,如何实现在textbox中输入公式后,能计算结果。
答：Function StepLine(ByVal cmd As String) As Long StepLine = EbExecuteLine(StrPtr(ByVal cmd), 0, 0, 0)End Function Private Sub Command1_Click()Dim a As String a = "form1.text2.text=" & Text1.Text StepLine a '把a的内容看成代码来执行 End Sub Private Sub Command2_Click...
VB中的数学表达式
答：1、算术表达式：算术表达式是最常用的表达式，又称为数值表达式。它是通过算术运算符来进行运算的数学公式。我们先来看Visual Basic中的算术运算符：算术运算符1）乘法运算符 *X*Y 求X乘Y的值 举例：6*7=422） 除法运算符 /X/Y 求X除Y的值（浮点数运算） 举例：2.76/1.2=2.33)整除运算符 ...
怎么用vb生成一个1-8的随即数,急急。谢谢!
答：Function Rand(b, a)Randomize Rand = Int(Rnd * b + a)End Function 生成一个1-8的随机数：Rand(1, 8)
单元格的数值由公式计算得到,如何根据该数值的大小自动确定显示位数...
答：Sub aa()For i = 1 To [A65536].End(xlUp).Row If Cells(i, 1) > 0.01 Then Cells(i, 1).NumberFormatLocal = "0.000"End If Next i End Sub
VB中怎样使文本1中输入的数学公式运算
答：在form中放入2个textbox和1个按钮，并且单击工程-〉部件，在框中加入“Microsoft Script Control”,添加完以后在工具箱找到它，放一个在form中即可使用 Private Sub Command1_Click()On Error GoTo errhandler ScriptControl1.Language = "vbscript"Text2 = ScriptControl1.Eval(Text1)Exit Sub errhandler...
VB中用随机函数产生一个两位的随机正整数的公式是什么?
答：INT((RND*B-A+1 )+A)
vb题.输入x值,按下列公式计算cos(x)。精度要求7位有效数字,最后一项<...
答：在文本框中输入x的值，然后点击窗体运行：Function jc(n As Integer) As DoubleIf jc = 0 Then jc = nIf n > 2 Then jc = jc * jc(n - 1)End Function Private Sub Form_Click()Dim x As Single, cosX As Single, n As Integerx = Val(Text1.Text)n = 1cosX = 1Do Until x...
vb用于产生随机数的公式是什么
答：VB使用Rnd 函数产生随机数。Rnd 函数，返回一个包含随机数值的 Single。Rnd 函数示例 本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。Dim MyValue MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值
VB中文本内公式的计算问题
答：'算术四则运算符号表达式的字符串（下称“源字符串”），'转换为算术表达式并计算出结果 '并将计算结果转换为字符串后返回 '例：tran("1+2-3*4/5") 返回 ".6"'Function tran() 处理的字符串必须是 '经过检验合法的算术表达式 '否则会出错 Dim k As Integer '存放源字符串中运算符个数 Dim...
