1-100乘3.14的数值

按顺序1 to 1003。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 SingleFor i = 1 To 100a(i) = 3。14 * iIf i Mod 20 = 0 ThenPrintEnd IfPrint a(i);Next iFor i = 1 To 100Open "E:/h。txt" For Append Access Write As #1Print #1,a(i);Close #1Next iEnd SubPrivate Sub Form_Load()Form1。Width = 15000End Su