作业帮 > 数学 > 作业

1-100乘3.14的数值

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/16 15:46:07
1-100乘3.14的数值
比如1π=3.14
2π=6.28
3π=9.42
……
按顺序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 Su