计算机基础期末测试

Quiz
选择题
下列IP地址中，属于C类地址的是（）。
125.54.21.3
193.66.31.4
129.57.57.96
240.37.59.62
B
下列（）不是各种计算机网络都具有的共同的特点。
计算机之间可进行数据交换
各计算机之间保持相对独立性
具有共同的系统连接结构
易于分布处理
C
*要在HTML页面上显示如下数字图案： 该HTML文档的VB代码如下，请填写所缺部分（）。
  For i=1 To 5
      For j= ____[1]____
        Document.Write(____[2]____)
        ____[3]____
      Document.Write("<BR>")
  Next
1 1 1 1 1
2 2 2 2
3 3 3
4 4
5
1 To i
1 To 5
1 To i + 1
i To 5
j
i
i + 1
"1"
End If
End Sub
Next
End For
D、B、C
在HTML文档中，使用<BODY>标记的（）属性可以设置整个网页的文字颜色。
FACE
BGCOLOR
TEXT
COLOR
C
以下超链接标记中，格式正确的是（）。
<A HREF="http://www.net.edu.cn/"> 中国教科计算机网 </A>
<A> HREF="http://www.net.edu.cn/" 中国教科计算机网 </A>
<A HREF="http://www.net.edu.cn/" 中国教科计算机网> </A>
<A HREF="http://www.net.edu.cn/" 中国教科计算机网 /A>
A
下列的简单HTML文档，在浏览器中显示的页面内容是（）。
<HTML>
  <HEAD>
    <TITLE>简单HTML文档 </TITLE>
  </HEAD>
  <BODY>
  &lt;HTML;&gt;
  </BODY>
</HTML>
<HTML>
<HTML;>
简单HTML文档
<HTML;>
B
在设置表单的多行文本框时，INPUT标记的TYPE属性应为（）。
password
text
reset
textarea
D
以下HTML代码定义了两段文字，第二段强制分成了两行，填写所缺部分（）。
<P> 第一段 ____[1]____
____[2]____ 第二段的第一行 ____[3]____
第二段的第二行 </P>
</P>
<P>
<BR>
<FONT>
<BR>
</P>
<FONT>
<P>
<FONT>
<P>
<BR>
</P>
A、D、C
下列叙述正确的是（）。
算法的执行效率与数据的存储结构无关
算法的空间复杂度是指算法程序中指令（或语句）的条数
算法的有穷性是指算法必须能在执行有限个步骤之后终止
以上三种描述都不对
C
算法与程序的关系是（）。
算法是对程序的描述
算法决定程序，是程序设计的核心
算法与程序之间无关系
程序决定算法，是算法设计的核心
B
以下标识符中，（）可以作为有效VBScript变量名。
you_name
for
you name
false
A
已知变量a = 8，下列语句能显示“a值为8”的是（）。
Document.Write("a值为" + a)
Document.Write(a值为 & a)
Document.Write("a值为" & "a")
Document.Write("a值为" & a)
D
要产生[60, 80](含60和80)的随机整数应使用（）表达式。
Int(20 * Rnd + 60)
Int(21 * Rnd + 60)
Int(60 * Rnd)
Int(80 * Rnd + 11)
B
设x = "ABCabcdABCD"，s = "AB"，执行下列语句后，变量y的值是（）。
y = Len(x) - Instr(3, x, s)
5
6
3
4
C
设 x = “123” + “4”，下列语句执行后，输出结果是（）。
Document.Write("x=" & x)
x = 127
x = “123”
x = 1234
x = “1234”
C
设 a="3"，执行下列语句后，变量s的值是（）。
s = 2*Cint(a)
If s > 5 Then
  s = s - 3 
If s > 4 Then
  s = s + 1 
Else s = s - 1 
End If
4
3
2
1
C
设 s="abcdABCD"，执行以下语句后，输出结果是（）。
x = InStr(s,"A")		'x = 5                                                   
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)
*
**
***
****
D
数列0，1，1，2，3，5，8，… 称为波契纳数列，它的前两个数是0和1，以后每一个数都是前两个数之和。输出这个数列的前20个数。将程序补充完整。
a = 0: b = 1
Document.Write(a & ",")
Document.Write(b & ",")
For k = 3 To 20
    ____(1)____
    Document.Write(c & ",")
    ____(2)____
    ____(3)____
Next
c = a
c = a + b
c = b
a = c + b
b = a
a = c
a = b
c = b
b = a
b = c
a = b
c = a
B、C、B
按提示依次输入三个数，求这三个数的倒数之积；如输入2、2、3，则计算式子(1/2)*(1/2)*(1/3)的结果。填写所缺部分（）。
t = 1
For n = 1 To 3
    x = Csng(InputBox("输入数据"))
    ______
Next
Document.Write(t)
t = 1/x
t = t*(1/n)
t = t/x
t = t*x
C
执行下列程序段后，变量s的值是（）。
s = 0     
For m = 1 To 6
    If m < 5 Then
        s = s + m
    End If
Next
9
10
11
12
B
执行下列程序段后，变量s的值是（）。
s = 0     
For m = 1 To 4
    If m > 1 Then
          s = s + m   '2, 3, 4
    End If
Next
6
7
8
9
D
设x = "ABCdefg"，则函数 Mid(Right(x, 3), 1, 2) 的值为（）。
"BC"
"ef"
"def"
"EF"
B
下列程序段运行后，假设按提示输入字符串"ABCD"，则输出结果是（）。
t = InputBox("输入字符串")
c = t & Lcase(Mid(t, 4))    'ABCDd
s = Right(c, 2) + Mid(c, 2, 2)    'Dd BC
Document.Write(s)
DdBC
BCDd
DdCD
DdB
A
以下程序段，由用户输入一个字符串（长度大于3），然后去掉头尾两个字符，剩余部分组成一个新的字符串。 如输入字符串为"ABCDEF"，处理成的字符串为"BCDE"。完善下列程序代码（）。
x = InputBox("输入一个字符串") 
n = Len(x)
y = _______
Document.Write("组成的新字符串为：" & y)
Right(x, n-1)
Mid(x, 2, n-2)
Mid(x, 2, n-1)
Mid(x, n-2)
B
下列程序执行后，输出结果是（）。
<HTML>
  <HEAD>
    <TITLE>过程试题</TITLE>
    <meta http-equiv="x-ua-compatible" content="IE=8">
    <SCRIPT type=“text/VBScript">
      Sub fnmax(a,b,c)
          If a>b Then
              c = a
          Else c = b
          End If 
      End Sub
    </SCRIPT>
  </HEAD>
  <BODY>
    <SCRIPT type=“text/VBScript">
        Dim a, b, c
        a = 3 : b = a*2
        Call fnmax(a, b, c)
        Document.Write(c + 1) 
    </SCRIPT>
  </BODY>
</HTML>
3
6
7
8
C
下列程序运行后，假设通过输入对话框输入数值67，则显示结果是（）。
<HTML>
  <HEAD>                                                                                  
    <TITLE> 数据处理 </TITLE>
    <meta http-equiv="x-ua-compatible" content="IE=8">
    <SCRIPT type=“text/VBScript">
        Sub subcal(a)
            b = a \ 6 + a Mod 13		'整除 67\6 = 11  模除 67%13 = 2
            Document.Write(b)
        End Sub
    </SCRIPT>
  </HEAD>
  <BODY>
    <SCRIPT type=“text/VBScript">
        Dim x
        x = Cint(InputBox("输入一个数"))
        Call subcal(x)
    </SCRIPT>
  </BODY>
</HTML>
12
13
14
15
B
由用户输入考试分数，判断该分数属于哪个等级，等级规定如下：成绩＜60——“不及格”， 60≤成绩＜70——“及格” 70≤成绩＜80——“中”， 80≤成绩——“优良”。某同学编程如下，测试时发现程序有错，需要修改，请从下面修改方法中选择一个正确选项（）。
Dim x, s
x = Cint(InputBox("输入考试分数"))
If x >= 70 Then
  If x <= 80 Then
    s = "中"
  Else
    s = "优良"
  End If
Else
  If x >= 60 Then
    s = "及格"
  Else
    s = "不及格"
  End If
End If
Document.Write("该成绩等级是：" & s)
把语句 If x >= 70 Then 改为 If x > 70 Then
把语句 If x >= 70 Then 改为 If x >= 80 Then
语句 If x <= 80 Then 应改为 If x < 80 Then
语句 If x >= 60 Then 应改为 If x >= 60 And x < 70 Then
C
下列程序段用来求a、b、c、d四个数中的最大数，结果存放在m中。调试时发现，当a、c或d为大数时程序运行结果正确，但当b为大数时运行结果错误。请从下面的四个修改方案中选择一个正确方案（）。
If a > b Then   '第1个条件语句
    m = a
End If
If m < c Then   '第2个条件语句
    m = c
End If
If m < d Then   '第3个条件语句
    m = d
End If
第1个条件语句中的语句m = a应改为m = b
第1个条件语句应改为 
If a>b Then      '第1个条件语句
    m=b
Else
    m=a
End If
第1个条件语句应改为 
If a>b Then      '第1个条件语句
    m=a
Else
    m=b
End If
第3个条件语句中的语句m = d应改为d = m
C
为计算t = 1×2×3 + 2×3×4 + 3×4×5 + … + 100×101×102的值。某同学编程如下；在调试时发现运行结果有错误，需要修改。请从下面的四个修改方案中选择一个正确选项（）。
Dim k, t, s
t = 0
For k = 2 To 101
    s = k*(k + 1)
    t = t + s
Next
Document.Write("t = " & t)
语句 For k = 2 To 101 应改为 For k = 1 To 100
语句 For k = 2 To 101 应改为 For k = 1 To 101
把语句 s = k*(k + 1) 改为 s = k*(k - 1)*(k + 1)
循环体中两条赋值语句的顺序错误，应调换位置，即改为
t = t + s
s = k*(k + 1)
C
判断题
顺序查找适用于所有数据，二分查找法只适用于有序数据（）。
T
JSP是一种浏览器端的网页编辑工具（）。
F
一个算法可以用多种程序设计语言来实现（）。
T
<form>标记的method属性规定了如何向服务器传送表单数据的两种方法，即Post方法和Get方法（）。
T
对于网页的编辑，可使用"表格"来实现页面各区域内容的定位，但网页内容重叠效果的设置则需要通过"层"来实现（）。
T
Web采用HTTP协议在服务器与浏览器之间传输数据（）。
T
编程题
求级数
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) + …
的前10000项之和，其结果为（）。（取2位小数）。
参考代码
<SCRIPT type=“text/VBScript">
    Dim sum, s, c
    sum = 0
    s = 1                   's表示加或减运算
    For c = 1 To 10000
        sum = sum + 1 / (c*c + s)
        s = -s                '交替改变正、负号
    Next
    Document.Write("sum =" & int(100*sum)/100) '1.22
</SCRIPT>
计算 s = 1! + 2! + 3! + …… 10! 的值。
参考代码
s = 0
For j = 1 To 10
    t = 1
    For k=1 To j
        t = t * k
    Next
    s = s + t
Next
Document.Write(s)