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
