vb圆柱体侧面积(vb求圆柱体表面积)

您好,蔡蔡就为大家解答关于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。

本文就讲到这里，希望大家会喜欢。