程序设计汇总(共4页).doc

精选优质文档-倾情为你奉上程序设计题目汇总36、购物计费：某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。A表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分补充完整。Function func()  Dim a As Single, x As Single  a = 898  If a <= 500 Then _  Else    x = 500 + ( a 500) * 0.8  End If  func = "应付金额x=" & xEnd Function答案：x = a39、计算房租费，70平方以下（包括70）每平方4元，如果超过70平方则超过部分每平方6元。程序中变量m为平方数，变量n为房租费。Function func()  Dim m As Integer, n As Integer  m = 128  If m <= 70 Then    n = 4 * m  _    n = 4 * 70 + 6 * (m 70)  End If  func = "房租费n=" & nEnd Function答案：Else40、已知正方形的边长A是8，下列程序的功能是计算正方形的周长L。请将程序缺失部分补充完整。Function func()  Dim A As Single  Dim L As Single  A = 8  L = _  Func = "正方形的周长" & LEnd Function答案：4*A37、判断奇偶性，如果是偶数让x为0，如果是奇数让x为1Function func()  Dim a As Integer, x As Integer  If a / 2 = Int( a / 2) Then    x = 0  Else    x = _  End If  func = 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 _Then  Y = 0Else  Y = 20 * (X - 20)End IfPrint "行李费="Y答案：x <= 2036、将a、b的值互换后输出Function func()  Dim a As Single  Dim b As Single  Dim c As Single  a = 3  b = 4  _  a = b  b = t  func = "a=" & a & "     b=" & bEnd Function答案：t = a37、编写一元二次方程X2+3X+2=0的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。请将下列程序补充完整。Function func()  Dim a As Single  Dim b As Single  Dim c As Single  Dim d As Single  Dim x1 As Single  Dim x2 As Single  a = 1  b = 3  c = 2  d = b * b - 4 * a * c  if d>=0 Then    x1 = _    x2 = (-b - Sqr(d) / (2 * a)    func = "x1="&x1&"    x2="&x2  Else    func = "无实根"  End IfEnd Function答案：x = (-b + Sqr(d) / (2 * a)37、该程序功能是求S=10+20+30+100，请将空格补完整实现前述功能。Function func()  Dim I As Integer, s As Integer  s = 0  For i= 10 To 100 Step 10    s = _  Next I  func = sEnd Function答案：s+i36、该程序的功能是求S=1+3+5+99。请将程序缺失部分补充完整。Function func()  Dim i As Integer, s As Integer  s = 0  For i = 1 To  _  Step 2    s = s + i  Next i  func = sEnd Function答案：9937、该程序功能是求S=10+20+30+100，请将空格补完整实现前述功能。Function func()  Dim i As Integer, s As Integer  s = 0  For i= 10 To 100 Step _    s = s + i  Next i  func = sEnd Function答案：1038、完成如下算法设计：该程序功能是求S=2+4+6+100。Function func()  Dim I As Integer, s As Integer  s = 0  For i = 2 to 100 Step _    s = s + i  Next i  Func = sEnd Function答案：240、已知长宽高A、B、H，求长方体的体积V  Dim A As Single  Dim B As Single  Dim H As Single  Dim V As Single  A = 8  B = 7  H = 12  V = _-  func = "长方体的体积V=" & V答案：A*B*H39、已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。Function func()  Dim x As Integer  Dim a As Integer  Dim b As Integer  Dim c As Integer  Dim d As Integer  Dim s As Integer  x = 1987  a = x Mod 10  b = _  c = x 100 mod 10  d = x 1000  s = a + b + c + d  func = "各位数字之和s=" & sEnd Function答案：x10 mod 1040、变量R为半径，计算圆面积S（圆周率取3.14）  Dim R As Single  Dim S As Single  R = 5  S = _答案：3.14*R2或3.14*R*R专心-专注-专业