Private Sub Command1_Click() Const PI = 3.1415926 Dim r As Integer Dim s As Double Dim v As Double r = Val(banjin.Text) s = 4 * PI * r * r mianji.Caption = s v = 4 / 3 * PI * r ^ 3 tiji.Caption = vEnd Sub最后两个标签只显示标签tiji.Caption的值，而标签mianji.Caption的值不显示
