用vb6.0做求圆的周长和面积的程序代码

发布网友发布时间：2022-06-02 20:34

共1个回答

热心网友时间：2024-12-04 13:51

Private Sub Command1_Click()
Const PI = 3.1415926
Dim R As Integer, Area As Double, Perimeter As Double
R = Val(Text1.Text) ’不是Test1.Test
Area = PI * R * R
Perimeter = 2 * PI * R
Label1.Caption = R & " - --" & Area & " - --" & Perimeter
'或者 Label1.Caption = Cstr(R) & " - --" & Cstr(Area) & " - --" & Cstr(Perimeter）
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
End Sub

Private Sub Command3_Click()
End
End Sub这里面还有就是求直径。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com