621利用赋值语句输入数据 例6-1.求半径为3的圆周长 a Form1 Private Sub Command1 Click Const p=3. 1415 圆周长为:1849 Dimr As single, L As Single 3 L=2米p*r 显示 Text1. Text = L End sub6.2.1利用赋值语句输入数据 ❖例6-1．求半径为3的圆周长 Private Sub Command1_Click() Const p = 3.1415 Dim r As Single, L As Single r = 3 L = 2 * p * r Text1.Text = L End Sub