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

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

1、实验3自测1程序PrivateSubForm_Click()Dimx#,y#,a#,b#,c#,d#x=Val(InputBox("输入第一个数","输入一个数"))y=Val(InputBox("输入第二个数","输入一个数"))a=x+yb=x-yc=x*yd=x/yd=Fix(d*100+0.5)/100MsgBox"x+y="&a&vbCrLf&"x-y="&b&vbCrLf&"x*y="&c&vbCrLf&"x/y="&dEndSub截图自测2程序PrivateSubForm_Click()Dima%,b%,c%,d%,m

2、%,n%a=Val(InputBox("输入第一个数","输入一个数"))b=Val(InputBox("输入第二个数","输入一个数"))c=Val(InputBox("输入第三个数","输入一个数"))d=Val(InputBox("输入第四个数","输入一个数"))m=a+b+c+dn=m/4Print"和为"&mPrint"平均值为"&nEndSub截图自测3，程序（1）程序代码：PrivateSubForm_click()DimX%,Y%,H%,F%H=Val(InputBox("输入鸡和兔的总头数H","输入数据"))F

3、=Val(InputBox("输入鸡和兔的总脚数F","输入数据"))X=2*H-F/2Y=F/2-HPrint"笼中鸡为"&X&"只"&Chr（13）&"笼中兔为"&Y&"只"EndSub截图