VB题目1---计算长方体的体积和表面积

VB题目：计算长方体的体积和表面积在文本框中输入长方体的的长、宽、高的数据，单击“计算”按钮，在图形框中输出该长方体的体积和表面积。相关代码如下：PrivateSubForm_Load()Picture1.FontName=黑体Text1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimSAsSingle,VAsSinglea=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长方体的体积为=;VEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Picture1.ClsText1.SetFocusEndSub