VB题目:计算长方体的体积和表面积在文本框中输入长方体的的长、宽、高的数据,单击“计算”按钮,在图形框中输出该长方体的体积和表面积。相关代码如下:Private Sub Form_Load() Picture1.FontName = 黑体 Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim S As Single, V As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)S = 2 * (a * b + b * c + c * a)V = a * b * cPicture1.Print 长方体的表面积为=; SPicture1.Print 长方体的体积为=; VEnd SubPrivate