《计算机程序设计》期末考试卷 试卷一标准答案及评分标准.docVIP

试卷二标准答案及评分标准 语言基础题 判断题评分标准：本题10分，每小题1分 1．√ 2．× 3．× 4．√ 5．× 6．√ 7．√ 8．× 9．× 10．√ 单选题评分标准：本题10分，每小题1分 1．A 2．B 3．B 4．C 5．B 6．D 7．A 8．C 9．B 10．C 填空题评分标准：本题10分，每小题2分 Sqr(y^3+3*(a^2+b^2)/(x^2+y^2)) 说明：Sqr函数用指数^0.5表示也可以。 True 说明：写为Ture一律不得分。 x \ 10 Mod 2 = 1（或 Int(x/10) Mod 2 = 1 、用Fix函数也行、用0也行） -30 2002-6-19 (或6/19/2002) 说明：加上# #限定符扣1分。 0（次） CD1. ShowColor 或 CD1.Action=3 Pic.Line (0, 0)-(Pic.ScaleWidth, Pic.ScaleHeight), vbBlue, BF 说明：未写对象名pic.扣1分；Line方法参数不完整可酌情扣1分 （1） MaxLength （2） * 说明：各1分 Open c:\data.txt For Input As #1 程序阅读题 评分标准：每小题5分。完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。 1 22 333 4444 55555 2． s= 0 s=-7 s= 1 s= 9 3． 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 4． x=2 y=4 x=3 y=7 x=3 y=6 x=4 y=10 程序填空题 评分标准：本题20分，每空2分。 1． Dim a As Integer Rnd * 90 + 10 或加上Int、Fix函数 i = List1.ListCount – 1 或 i = 19 List2.AddItem List1.List(i) i = i + 1 2． （6）InputBox(x=) （7）Len(x) To 1 Step -1 （8）s = Mid(x, j, 1) （9）j i - 1 或 j = i （10）CStr(n) 程序设计题 1．评分标准：本题4分 事件名及变量声明（1分）：变量必须正确声明。 键盘输入x （0.5分） 计算s (2分)，其中： 循环结构（1分）：循环结构语句不限。 求和语句1分：求和项可以直接表示，也可以写成递推式（要正确置初值）。 输出0.5分。 参考程序： Private Sub Command1_Click() Dim x As Single, i As Integer, s As Single x = Val(InputBox(x=)) For i = 1 To 20 s = s + x ^ (i - 1) / i Next i Print s End Sub 2．评分标准：本题6分 事件名及变量声明（1分）：变量、数组必须正确声明。 求平均值（2分），其中： 循环结构语句0.5分； 产生随机数语句0.5分； 求和语句0.5分；计算平均值0.5分 找大于平均值的数（1分），其中： 循环结构语句0.5分；选择结构0.5分 排序（1分） 说明：可以先排序再找大于平均值的数，这样可以省略一个数组的声明。 输出（1分） 参考程序： Private Sub Command1_Click() Dim x(100) As Single, y(100) As Integer Dim i As Integer, j As Integer, temp As Integer, s As Long, ave As Single, n As Integer For i = 1 To 100 x(i) = Int(298 * Rnd) + 3 s = s + x(i) Next i ave = s / 100 For i = 1 To 100 If x(i) ave Then n = n + 1 y(n) = x(i) End If Next i For i = 1 To n - 1 For j = i + 1 To n If y(i) y(j) Then temp = y(i): y