工程1-For1(Code) 回区 For■ Click Private Sub Form Click 求丌的近似值 Dim pi As single, c As Integer, s As Integer pi=0 For c=1 To 10000 Step 2 s Next c Print"π=";pi*4 End sub ★