我在程序中得到的变量值很大,超过了LONG DECIMAL的范围了,要得到精确的计算结果(包括小数)。该怎么处理啊?谢谢!

解决方案 »

  1.   

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Dim aa!, bb$
    Private Sub Command1_Click()
       aa = 1.234567E-36
       bb = CStr(Format(aa, "0.000000000000000000000000000000000000000000"))
       MsgBox bb
    End Sub
      

  2.   

    呵忘了删第一行Dim aa!, bb$ 
    Private Sub Command1_Click() 
       aa = 1.234567E-36 
       bb = CStr(Format(aa, "0.000000000000000000000000000000000000000000")) 
       MsgBox bb 
    End Sub