1.判断题- (共14题)
2.选择题- (共40题)
15.
数据库的基本特点是（ ）
| A．数据可以共享、数据独立性高、数据冗余大，易移植、统一管理和控制 |
| B．数据可以共享、数据独立性高、数据冗余小，易扩充、统一管理和控制 |
| C．数据不可共享、数据互换性好、数据冗余小，易扩充、统一管理和控制 |
| D．数据非结构化、数据独立性、数据冗余大，易扩充、统一管理和控制 |
17.
用UltraEdit软件观察字符内码时，结果如下图所示， 则图中所有的内码表示的对象可能是( )
| A．10个ASCII字符 |
| B．5个GB2312字符 |
| C．4个ASCII字符，3个GB2312字符 |
| D．3个ASCII字符，4个GB2312字符 |
26.
ASCII码表中的大写字母Z后有6个其他字符，接着便是小写字母a。现在已知：字母X的ASCII码为（1011000）2 ，则字母d的ASCII码用十六进制表示是( )
| A．61H | B．62H | C．63H | D．64H |
27.
下列有关信息与载体的说法中不正确的有( )
| A．同一个信息可以加载到多种不同的载体上 |
| B．信息可以不依附于载体而独立存在 |
| C．点燃的烽火是信息的载体 |
| D．信息不会随着载体的物理形式变化而变化 |
28.
在使用IE以“mht.htm”为文件名保存一个包含文字、图片等内容的网页时，保存类型为“网页、全部（*.htm、*.html）”，该网页上的图片等相关文件会被保存在（）
| A．mht. htm文件夹中 | B．mht文件夹中 |
| C．mht_files文件夹中 | D．files文件夹中 |
33.
在效实中学网站主页上，最快捷地得到下面这张图片，按照下图右击菜单显示应选( )
| A．在这个图片上，右击鼠标，选取“图片另存为(S)...” |
| B．在这个图片上，右击鼠标，选取“背景另存为(S)...” |
| C．在这个图片上，右击鼠标,直接用截图工具取得 |
| D．在这个图片上，右击鼠标,按一下键盘上“Print Screen”,再在画图软件窗口上粘贴、截取 |
35.
设x="4,y=6,则能在Text1控件上能显示A=" 10的语句是( )
| A．Text1 = "A=x+y" |
| B．Text1.text = "A="+Str(x+y) |
| C．Text = "A="+Str(x+y) |
| D．Text1.text = "A="+Val(x+y) |
36.
写出下列程序的输出结果
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（ ）
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（ ）
| A．-25 | B．-75 | C．15 | D．25 |
37.
骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为（ ）
| A．INT（RND（6）+1） | B．INT（RND*6） |
| C．INT（RND（1）*7） | D．INT（RND（1）*6+1） |
38.
读程序，写出下列程序的输出结果
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是( )
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是( )
| A．400 | B．401 | C．200 | D．201 |
39.
写出下列程序的输出结果
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（ ）
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（ ）
| A．39 | B．15 | C．17 | D．13 |
40.
写出下列程序的输出结果
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "zhejiangxiaoshi"
c =" Mid(a," Len(a) \ 2 + 2, 7)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "zhejiangxiaoshi"
c =" Mid(a," Len(a) \ 2 + 2, 7)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )
| A．"xiaoshi" | B．"zhejiang" | C．zhejiang | D．xiaoshi |
41.
写出下列程序的输出结果
Sub test3()
For i =" 0" To___1___step 1
s = ""
For j =" 1" To 2 * i + 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
Sub test3()
For i =" 0" To___1___step 1
s = ""
For j =" 1" To 2 * i + 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
| A．123 | B．321 | C．12345 | D．54321 |
43.
运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是（ ）
Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer '①
a(0) = 1 '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub
Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer '①
a(0) = 1 '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub
| A．① | B．② |
| C．③ | D．④ |
44.
写出下列程序的输出结果
Sub test12()
S=0
C=1
Do While c <=6
S=S+C
C =C+1
Loop
MsgBox (STR(C) + STR(S))
End Sub
该程序的运行结果是（ ）
Sub test12()
S=0
C=1
Do While c <=6
S=S+C
C =C+1
Loop
MsgBox (STR(C) + STR(S))
End Sub
该程序的运行结果是（ ）
| A．5 15 | B．6 15 | C．7 21 | D．6 21 |
46.
在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
其中能正确地将x和y两个变量中的数据进行交换的程序段有（ ）
其中能正确地将x和y两个变量中的数据进行交换的程序段有（ ）
| A．1个 | B．2个 | C．3个 | D．4个 |
47.
要计算出2010各行为人数百分比（=2010网民规模/2010年网民总规模），采用的方法是先在F3单元格中应输入公式，然后用填充柄填充下面的单元格至F10。那么在F3单元格中应输入的公式是（ ）
| A．=C3/C11 | B．=" C3/$C11" | C．=C3/$C$11 | D．= $C$3/C11 |
48.
用求和公式求出2010年网民总规模C11，2011年网民总规模D11用填充柄填充求出。那么，选中D11单元格，在编辑栏中的显示内容正确的是( )
| A．=SUM(D3:D10) | B．SUM(D3:D10) |
| C．=C3+C4+C5+C6+SUM（C7:C10） | D．=SUM(C3:C10) |
50.
下面的说法正确的是( )
| A．筛选不能对Excel数据表排序 |
| B．Excel表中每个单元格都可以定义自己的格式，Access表每一列的数据格式一致 |
| C．域名和IP一一对应 |
| D．汉字的外码和机内码一一对应 |
52.
在对表格数据进行排序时，下列说法不正确的是( )
| A．排序时可以按行或按列排序 |
| B．可以按“使用行为”的拼音字母顺序排序 |
| C．如上图1所示，选中数据范围（A1:F10）,可以按无标题行排序 |
| D．选中不相邻的数据范围，不能直接排序 |
53.
如图所示，在Excel工作表的D11单元格中直接用键盘输入“SUM(D3:D10)”（引号内的内容），按回车键后，该单元格显示( )
| A．若干个“#” | B．出错提示 | C．165,991 | D．SUM(D3:D10) |
3.填空题- (共1题)
55.
辗转相除法：用辗转相除法求三个数的最大公约数。
程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数从a、b和c，单击"求最大公约数"按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。
辗转相除法具体为：设两数为a、b(a>b），求最大公约数(a，b）的步骤如下：a除以b，得a=bq......r1(0≤r1）。若r1=0，则（a，b)=b；若r1≠0， b除以r1，得b="r1q......r2" (0≤r2）.若r2=0，则（a，b)=r1，若r2≠0，则继续r1除以r2，……如此下去，直到余数为0，这时的除数即为最大公约数（a，b）。
相应的Visual Basic 程序如下：
Function temp(num1 as Integer, num2 as Integer) as Integer
Dim r As Integer
if num1<num2 then
t=num1:num1=num2:num2=t
endif
r =" num1" Mod num2
Do While (1)
num1 = (2)
num2 = (3)
r =" num1" Mod num2
Loop
temp = num2
End Function
-------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = (4)
y =" temp(x," c) ‘调用函数TEMP
Text4.Text = Str(y)
End Sub
在（1）中应该填入（_____）
A、r =0 B、 r<>0 C、 r< 0 D、r>0
在（2）中应该填入（______）
A、num1 B、num2 C、 r D、num1 mod num2
在（3）中应该填入（___）
A、num1 B、num2 C、 r D、num1 mod num2
在（4）中应该填入（___）
A、temp(a, b) B 、temp(x, c) C、temp(b, c) D、temp(x, y)
程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数从a、b和c，单击"求最大公约数"按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。
辗转相除法具体为：设两数为a、b(a>b），求最大公约数(a，b）的步骤如下：a除以b，得a=bq......r1(0≤r1）。若r1=0，则（a，b)=b；若r1≠0， b除以r1，得b="r1q......r2" (0≤r2）.若r2=0，则（a，b)=r1，若r2≠0，则继续r1除以r2，……如此下去，直到余数为0，这时的除数即为最大公约数（a，b）。
相应的Visual Basic 程序如下：
Function temp(num1 as Integer, num2 as Integer) as Integer
Dim r As Integer
if num1<num2 then
t=num1:num1=num2:num2=t
endif
r =" num1" Mod num2
Do While (1)
num1 = (2)
num2 = (3)
r =" num1" Mod num2
Loop
temp = num2
End Function
-------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = (4)
y =" temp(x," c) ‘调用函数TEMP
Text4.Text = Str(y)
End Sub
在（1）中应该填入（_____）
A、r =0 B、 r<>0 C、 r< 0 D、r>0
在（2）中应该填入（______）
A、num1 B、num2 C、 r D、num1 mod num2
在（3）中应该填入（___）
A、num1 B、num2 C、 r D、num1 mod num2
在（4）中应该填入（___）
A、temp(a, b) B 、temp(x, c) C、temp(b, c) D、temp(x, y)
试卷分析
-
【1】题量占比
判断题:(14道)
选择题:(40道)
填空题:(1道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：55