For i As Integer = 0 To 3 Me.size.Add(mp.size(i)) Me.act.Add(mp.act(i)) Next
For l As Integer = 0 To 3 For i As Integer = 0 To Me.size(l) - 1 u(l).Add(0) x(l).Add(0) d(l).Add(0) Next Next
Dim a As String = "1.234568E+007" Dim b As Double = CDbl(a) '12345680.0 に変換される
Dim d As Double = 12345678.9 Dim s1 As String = d.ToString("E") '"1.234568E+007"に変換される Console.WriteLine("{0:E}", d) '"1.234568E+007"と出力される Console.WriteLine("{0:E3}", d) '"1.235E+007"と出力される