vb 程序设计教程(机械工业出版社)习题答案 实验4

《vb 程序设计教程(机械工业出版社)习题答案 实验4》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验4习题1程序PrivateSubForm_Click()Dima%,b%,c%a=Val(InputBox("输入第一边长","输入数据"))b=Val(InputBox("输入第二边长","输入数据"))c=Val(InputBox("输入第三边长","输入数据"))Ifa+b>cAnda+c>bAndb+c>aThenIfc*c=a*a+b*bOra*a=b*b+c*cOrb*b=a*a+c*cThenMsgBox"直角三角形"ElseIfa=bAndb=cThenMsgBox"等边三角形"ElseIfa=bOrb=cOra=cTh

2、enMsgBox"等腰三角形"ElseMsgBox"一般三角形"EndIfElseMsgBox"不是三角形"EndIfEndSub截图（1）直角三角形（2）等边三角形（3）等腰三角形（4）一般三角形（5）不是三角形习题2程序PrivateSubForm_Click()Dima!,b!,c!,d!,e!a=Val(InputBox("输入一个整数","输入数据"))b=aMod2c=aMod3d=aMod5e=a*aIfb=0Andc=0Andd=0ThenPrinta&"它的平方是"&eElsePrint"不能同时被2,3和5整除"EndI

3、fEndSub截图习题3程序PrivateSubCommand1_Click()Dima!,b!,c!,d!a=Val(Text1.Text)b=0.2*aIfa<20ThenMsgBox"行李费(元)="&a*0.2ElseIfa<50ThenMsgBox"行李费(元)="&a*0.3ElseIfa<100ThenMsgBox"行李费(元)="&a*0.4ElseMsgBox"行李费(元)="&(a-100)*0.5+20EndIfEndSubPrivateSubCommand2_Click()EndEndSub截图