【我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状(只限于长方形~正方形或三角形)","请输】
我用vb写了一个计算长方形~正方形或三角形面积的程序~
代码如下~怎样修改啊~
PrivateSubCommand1_Click()
DimaAsString
Dimh,l,sAsSingle
a=InputBox("请输入形状(只限于长方形~正方形或三角形)","请输入")
If(a="长方形"Or"正方形")Then
h=InputBox("请输入宽","请输入")
l=InputBox("请输入长","请输入")
s=h*l
Printa;"的面积为";s
Else
h=InputBox("请输入的高","请输入")
l=InputBox("请输入的底","请输入")
s=h*l/2
Printa;"的面积为";s
EndIf
MsgBox"计算完毕",,"提示"
EndSub