程序设计汇总.doc

程序设计题目汇总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平方以下（包括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 = 正方形的周长 & 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 * RPrint 圆的周长是;LPrint 圆的面积是;S答案：R40、计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。补充完整下列程序段。Dim X As Single, Y As SingleX = InputBox(输入行李重量)If _ThenY = 0ElseY = 20 * (X - 20)End IfPrint 行李费=;Y答案：x =0 Thenx1 = _x2 = (-b - Sqr(d) / (2 * a)func = x1=&x1&x2=&x2Elsefunc = 无实根End IfEnd Function答案：x = (-b + Sqr(d) / (2 * a)37、该程序功能是求S=10+20+30+100，请将空格补完整实现前述功能。Function func()Dim I As Integer, s As Integers = 0For i= 10 To 100 Step 10s = _Next Ifunc = sEnd Function答案：s+i36、该程序的功能是求S=1+3+5+99。请将程序缺失部分补充完整。Function func()Dim i As Integer, s As Integers = 0For i = 1 To_Step 2s = s + iNext ifunc = sEnd Function答案：9937、该程序功能是求S=10+20+30+100，请将空格补完整实现前述功能。Function func()Dim i As Integer, s As Integers = 0For i= 10 To 100 Step _s = s + iNext ifunc = sEnd Function答案：1038、完成如下算法设计：该程序功能是求S=2+4+6+100。Function func()Dim I As Integer, s As Integers = 0For i = 2 to 100 Step _s = s + iNext iFunc = sEnd Function答案：240、已知长宽高A、B、H，求长方体的体积VDim A As SingleDim B As SingleDim H As SingleDim V As SingleA = 8B = 7H = 12V = _-func = 长方体的体积V= & V答案：A*B*H39、已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。Function func()Dim x As IntegerDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim s As Integerx = 1987a = x Mod 10b = _c = x 100 mod 10d = x 1000s = a + b + c + dfunc = 各位数字之和