And will be digital format for integer part in the first row, the decimal part output 20 per row.

CodePudding user response:

dizzy dizzy, ask for help,

CodePudding user response:

High precision operation
Vb6 is not the default function, or find someone else to write the class libraries, or your own,
Vb.net has a largenumber library

CodePudding user response:

reference crispy big ice cream on the second floor response:

precision operationsVb6 is not the default function, or find someone else to write the class libraries, or your own,
Vb.net has a largenumber library

I only thought, library classes, retrieval is less than others?? Section, the first, after the decimal, but the decimal part of my old show overflow, don't know how to output,??????

CodePudding user response:

As Long the Function div_high_sigle (a, b) As Long As the String
Dim As Long, I j As Long, k, As Long As c String
K=Int j (a/b)=a Mod b c=k & amp; ". "
While I & lt; 200 j=j * 10
While j & lt; B c=c & amp; "0" j=j * 10 I=I + 1
Wend c=c & amp; Int j (j/b)=j Mod I=I + 1 b Wend div_high_sigle=c End Function Private Sub Command1_Click Text1 ()="" Text1=div_high_sigle (49) 1, MsgBox Len (Text1) End Sub

CodePudding user response:

Problem has been solved,