《计算机应用基础》期末练习题.doc

期末综合练习题（201-12）一、单选题1、下列语句中，_可以调用Sub过程。 A. IFB. CallC. ForD. Dim答案：B2、在HTML文档中，使用标记的_属性可以设置整个网页的文字颜色。 A. FACE B. BGCOLOR C. TEXT D. COLOR答案：C3、要将下列文字“Web网页”设置为粗体,填写所缺部分（2个空格填写相同内容）。 Web网页 A. IB. SUPC. UD. B答案：D4、下列的简单HTML文档，在浏览器中显示的页面内容是_。 简单HTML文档 <HTML;> A. B. C. 简单HTML文档 D. <HTML;>答案：B5、使用标记设置文字属性，文字大小（字号）的缺省值（也称“默认值”）为_号。 A. 1 B. 3 C. 5 D. 7答案：B6、使标题“计算机程序设计”右对齐显示，ALIGN属性应为_。 计算机程序设计 A. centerB. leftC. rightD. width答案：C7、设x=ABCdefg，则函数 Mid(Right(x,3),1,2) 的值为_。 A. BCB. efC. defD.EF答案：B8、设x=ABCabcdABCD，s=AB，执行下列语句后，变量y的值是_。 y=Len(x) - Instr(3,x,s) A. 5 B. 6 C. 3 D. 4答案：C9、以下标识符中，_可以作为有效VBScript变量名。 A. you_name B. for C. you name D. false 答案：A10、要产生50,60(含50和60)的随机整数应使用_表达式。 A. Int(10 * Rnd + 50)B. Int(11 * Rnd + 50) C. Int(60 * Rnd)D. Int(50 * Rnd + 11)答案：B11、以下哪条语句能实现变量x加？ A. Document.write(x=x+1)B. x = 1 C. Document.write(x+1) D. x = x + 1答案：D12、设 x=100，下列语句执行后，输出结果是_。 Document.Write(x= & x) A. x=xB. 100=100C. x=100D. 100=x答案：C13、要求出当前日期的月份数，可以使用函数_。 A. Month(Date)B. Month(#2006/12/30#) C. Month()D. Day(Date)答案：A14、设 x=ABCDE，k=2，执行下列程序段后，变量y值为_。 a = x + VBScript y = Len(a) + Len(Mid(a, 2, k+3) + ABC) A. 21 B. 22 C. 23 D. 24答案：A15、下列程序执行后，输出结果是_。 过程试题 Sub fnmax(a,b,c) If ab Then c = a Else c = b End If End Sub Dim a,b,c a = 3 : b = a*2 Call fnmax(a, b, c) Document.Write(c+1) A. 3 B. 6 C. 7 D. 8答案：C16、设 a=3,执行下列语句后，变量s的值是_。 s = 2*Cint(a) If s5 Then s = s - 3 If s4 Then s = s + 1 Else s = s - 1 End If A. 4 B. 3 C. 2 D. 1答案：C17、设 s=abcdABCD，执行以下语句后，输出结果是_。 x = InStr(s,A) If x= 1 Then y = * Else If x=2 Then y = * Else If x=3 Then y = * Else y = * End If End If End If Document.Write(y) A. * B. * C. * D. *答案：D18、下列程序段运行后，假设按提示输入字符串ABCD，则输出结果是_。 t = InputBox(输入字符串) c = t & Lcase(Mid(t,4) s = Right(c,2) + Mid(c,2,2) Document.Write(s) A. DdBC B. BCDd C. DdCD D. DdB答案：A19、执行下列程序段后，变量s的值是_。 s = 0 For m = 1 To 4 If m1 Then s = s + m End If Next A. 6 B. 7 C. 8 D. 9答案：D20、以下程序段，由用户输入一个字符串（长度大于3），然后去掉头尾两个字符，剩余部分组成一个新的字符串。如输入字符串为ABCDEF，处理成的字符串为BCDE。 完善下列程序代码。 x = InputBox(输入一个字符串) n = Len(x) y = _ Document.Write(组成的新字符串为： & y) A. Right(x,n-1) B. Mid(x,2,n-2) C. Mid(x,2,n-1) D. Mid(x,n-2)答案：B21、按提示依次输入三个数，求这三个数的倒数之积。 如输入2、2、3，则计算式子(1/2)*(1/2)*(1/3)的结果。 填写所缺部分。 t = 1 For n=1 To 3 x = Csng(InputBox(输入数据) _ Next Document.Write(t) A. t = 1/x B. t = t*(1/n) C. t = t/x D. t = t*x答案：C22、由用户输入考试分数，判断该分数属于哪个等级，等级规定如下： 成绩60“不及格”， 60成绩70“及格” 70成绩80“中”， 80成绩“优良” 某同学编程如下： Dim x, s x = Cint(InputBox(输入考试分数) If x=70 Then If x=60 Then s = 及格 Else s = 不及格 End If End If Document.Write(该成绩等级是： & s) 测试时发现程序有错，需要修改，请从下面修改方法中选择一个正确选项。A.把语句 If x=70 Then 改为 If x70 Then B.把语句 If x=70 Then 改为 If x=80 Then C.语句 If x=80 Then 应改为 If x=60 Then 应改为 If x=60 And xb Then 第1个条件语句 m=a End If If mc Then 第2个条件语句 m=c End If If mb Then 第1个条件语句 m=b Else m=a End If C. 第1个条件语句应改为 If ab Then 第1个条件语句 m=a Else m=b End If D. 第3个条件语句中的语句m=d应改为d=m答案：C24、为计算t = 123 + 234 + 345 + + 100101102的值，某同学编程如下： Dim k,t,s t = 0 For k=2 To 101 s = k*(k+1) t = t + s Next Document.Write(t= & t) 在调试时发现运行结果有错误，需要修改。请从下面的四个修改方案中选择一个正确选项。 A. 语句For k=2 To 101 应改为 For k=1 To 100 B. 语句For k=2 To 101 应改为 For k=1 To 101 C. 把语句s = k*(k+1) 改为 s = k*(k-1)*(k+1) D. 循环体中两条赋值语句的顺序错误，应调换位置，即改为 t = t + s s = k*(k+1)答案：C25、下列程序运行后，假设通过输入对话框输入数值67，则显示结果是_。 数据处理 Sub subcal(a) b = a 6 + a Mod 13 Document.Write(b) End Sub Dim x x = Cint(InputBox(输入一个数) Call subcal(x) A. 12 B. 13 C. 14 D. 15答案：B二、判断题26、XML（扩展标记语言）是一种新兴的面向Web应用的标记语言。答案：正确27、设x=123ABC，则函数 Left(x,Len(x)-3) 的值为ABC。答案：错误28、HTML是一种用于制作网页的计算机高级语言。答案：错误29、HTML文档的实质是ASCII（文本）文档。答案：正确三、单选题多问30、以下 HTML 代码定义了两段文字，第二段强制分成了两行，填写所缺部分。 第一段 _1_ _2_ 第二段的第一行 _3_ 第二段的第二行 1 A. B. C. D. 2 A. B. C. D. 3 A. B. C. D. 答案：ADC31、要在HTML页面上显示如下数字图案：111112222333445 该HTML文档的代码如下,请填写所缺部分。 For i=1 To 5 For j= _1_ Document.Write(_2_) _3_ Document.Write() Next 1 A. 1 To IB. 1 To 5C. 1 To i+1D. i To 52 A. jB. IC. i + 1D. 13 A. End IfB. End SubC. NextD. End For答案：DBC四、填空题编程求结果32、通过编程求出结果。求级数 S = 1/(1*1+1) + 1/(2*2-1) + 1/(3*3+1) + 1/(4*4-1) + + 1/(n*n+1) + 1/(n+1)*(n+1)-1) + 的前1