关于vb用半径计算圆的面积，vb求圆柱体表面积这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！

1、1234567891011121314151617181920212223242526Private Sub Command1_Click()Dim l As Double, sm As Double, s As Double, v As Double, r As Double, h As DoubleDim pi As Doublepi = 3.1415926r = Val(Text1.Text)h = Val(Text2.Text)l = 2 * pi * rsm = pi * r ^ 2s = 2 * sm + l * hv = sm * h  Label7.Caption = Format(l, "0.000")Label8.Caption = Format(sm, "0.000")Label9.Caption = Format(s, "0.000")Label10.Caption = Format(v, "0.000")End Sub  Private Sub Form_Load()Text1.Text = "1.5"Text2.Text = "3"  Label7.Caption = ""Label8.Caption = ""Label9.Caption = ""Label10.Caption = ""End Sub。

本文到此分享完毕，希望对大家有所帮助。