按顺序1 to 100
3.14 6.28 9.42 12.56 15.7 18.84 21.98 25.12 28.26 31.4 34.54 37.68 40.82 43.96 47.1 50.24 53.38 56.52 59.66 62.8 65.94 69.08 72.22 75.36 78.5 81.64 84.78 87.92 91.06 94.2 97.34 100.48 103.62 106.76 109.9 113.04 116.18 119.32 122.46 125.6 128.74 131.88 135.02 138.16 141.3 144.44 147.58 150.72 153.86 157 160.14 163.28 166.42 169.56 172.7 175.84 178.98 182.12 185.26 188.4 191.54 194.68 197.82 200.96 204.1 207.24 210.38 213.52 216.66 219.8 222.94 226.08 229.22 232.36 235.5 238.64 241.78 244.92 248.06 251.2 254.34 257.48 260.62 263.76 266.9 270.04 273.18 276.32 279.46 282.6 285.74 288.88 292.02 295.16 298.3 301.44 304.58 307.72 310.86 314
附带一个VB程序
Private Sub Command1_Click()
Dim a(1 To 100) As Single
For i = 1 To 100
a(i) = 3.14 * i
If i Mod 20 = 0 Then
Print
End If
Print a(i);
Next i
For i = 1 To 100
Open "E:/h.txt" For Append Access Write As #1
Print #1,a(i);
Close #1
Next i
End Sub
Private Sub Form_Load()
Form1.Width = 15000
End Sub