Private Sub Command1_Click()

Label1.Caption = "算法與程序設(shè)計(jì)"

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

圓周長(zhǎng)和面積

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 '計(jì)算周長(zhǎng)

Area = 3.14159 * Radius * Radius '計(jì)算面積

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

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

End Sub

Private Sub cmdClose_Click()

End

End Sub

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。