程序设计汇总(共4页).doc
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《程序设计汇总(共4页).doc》由会员分享,可在线阅读,更多相关《程序设计汇总(共4页).doc(4页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、精选优质文档-倾情为你奉上程序设计题目汇总36、购物计费:某商场为了促销而实行购物打折,在商场购物500元以上(不包括500元),超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元,编程计算顾客实际应付的金额。A表示顾客的购物金额,x表示顾客应该实际付给商场的金额。请将程序缺失部分补充完整。Function func()Dim a As Single, x As Singlea = 898If a = 500 Then_Elsex = 500 + ( a 500) * 0.8End Iffunc = 应付金额x= & xEnd Function答案:x = a39、计算房租费,70
2、平方以下(包括70)每平方4元,如果超过70平方则超过部分每平方6元。程序中变量m为平方数,变量n为房租费。Function func()Dim m As Integer, n As Integerm = 128If m = 70 Thenn = 4 * m_n = 4 * 70 + 6 * (m 70)End Iffunc = 房租费n= & nEnd Function答案:Else40、已知正方形的边长A是8,下列程序的功能是计算正方形的周长L。请将程序缺失部分补充完整。Function func()Dim A As SingleDim L As SingleA = 8L = _Func
3、= 正方形的周长 & LEnd Function答案:4*A37、判断奇偶性,如果是偶数让x为0,如果是奇数让x为1Function func()Dim a As Integer, x As IntegerIf a / 2 = Int( a / 2) Thenx = 0Elsex = _End Iffunc = xEnd Function答案:138、从键盘输入圆的半径R,输出圆的周长L和面积S,补充完整下列程序段。Dim R As Single, L As Single, S As Single_= InputBox(输入半径R)L = 2 * 3.14 * RS = 3.14 * R *
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计 汇总
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内