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

ericniu2001
1 ℃
2020-05-16

整理文档很辛苦，赏杯茶钱您下走！

还剩 ... 页未读，继续阅读 >>

免费阅读已结束，点击下载阅读编辑剩下 ... 页

阅读已结束，您可以下载文档离线阅读编辑

资源描述

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