【我用vb写了一个计算长方形~正方形或三角形面积的程序~代码-查字典问答网
分类选择

来自曲寒冰的问题

  【我用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

3回答
2020-04-09 18:00
我要回答
请先登录
李相键

  判断写错,改完的:PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状(只限于长方形~正方形或三角形)","请输入")If(a="长方形"Ora="正方形")Thenh=InputBox("请...

2020-04-09 18:04:28
曲寒冰

  谢谢呀~~顺便问一下~h=InputBox("请输入宽","请输入")在这段代码里~我想显示为这样“请输入长方形的宽”即请输入a形的宽~~应该怎么改呀~~?

2020-04-09 18:08:50
李相键

  PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状(只限于长方形~正方形或三角形)","请输入")If(a="长方形"Ora="正方形")Thenh=InputBox("请输入"&a&"的宽","请输入")l=InputBox("请输入"&a&"的长","请输入")s=h*lPrinta;"的面积为";sElseh=InputBox("请输入"&a&"的高","请输入")l=InputBox("请输入"&a&"的底","请输入")s=h*l/2Printa;"的面积为";sEndIfMsgBox"计算完毕",,"提示"EndSub

2020-04-09 18:11:53

最新问答

推荐文章

猜你喜欢

附近的人在看

推荐阅读

拓展阅读

  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  •