Private Sub Command1_Click()

Label1.Caption = "算法與程序設計"

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command1_Click(Index As Integer)

Form1.BackColor = RGB(255, 255, 255)

End Sub

Private Sub Command2_Click(Index As Integer)

Label1.ForeColor = RGB(255, 0, 0)

End Sub

Private Sub Command3_Click(Index As Integer)

End

End Sub

圓周長和面積

Private Sub cmdCalcu_Click()

Dim Radius As Single

Dim Peri As Single

Dim Area As Single

Radius = Val(txtRadius.Text) '取得半徑值

Peri = 2 * 3.14159 * Radius '計算周長

Area = 3.14159 * Radius * Radius '計算面積

txtPeri.Text = Str(Peri) '輸出周長

txtArea.Text = Str(Area) '輸出面積

End Sub

Private Sub cmdClose_Click()

End

End Sub

總結

以上是生活随笔為你收集整理的python编程计算圆面积和周长_vb编程计算圆周长面积的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。