相关试卷
-
1、在计算机网络的几种拓扑结构中，相对来讲结构简单，建网容易，便于控制和管理，各台计算机之间的故障一般不会相互影响，被大多数的局域网所采用的是（ ）。A、总线型 B、星型 C、环型 D、树型
-
2、现在有一类专业教育网站，专门为学习爱好者提供课外学习、交流和咨询等服务，我们称它为( )。A、腾讯网 B、雅虎网 C、网上学校 D、搜索引擎
-
3、小华将信息技术办公室的4台电脑组成了如图的网络。从拓扑结构看，他组建的网络是计算机网络的类型是( )
A、总线型 B、圆型 C、环型 D、星型 -
4、IE浏览器工具栏上“主页”按钮的作用是（ ）A、回到刚浏览过的上一张网页 B、回到当前正在浏览的网站的首页 C、打开新浪网的首页 D、回到启动IE时自动打开的首张网页
-
5、下图所示防火墙是常用的一种网络安全装置，下列说法中错误的有（ ）
A、防火墙是用来帮助保护网络安全的 B、防火墙能有效地记录因特网上的活动 C、防火墙有硬件防火墙和软件防火墙 D、防火墙主要用来扫描和清除病毒 -
6、某公司为了加强内部网络的安全，防止资料被窃取，购买了一款硬件防火墙。公司内部网络的拓扑图如下，请问防火墙应该放置在（ ）
A、办公电脑与交换机之间 B、交换机与路由器之间 C、路由器与Internet之间 D、Web服务器与交换机之间 -
7、发布个人免费网站的一般流程是（ ）A、预览网站→上传网站→申请网站空间→检查网站 B、上传网站→检查网站→预览网站→申请网站空间 C、预览网站→检查网站→上传网站→申请网站空间 D、检查网站→预览网站→申请网站空间→上传网站
-
8、某同学运用Photoshop加工自己的照片，照片未能加工完毕，他准备下次接着做，他最好将照片保存成（ ）。A、bmp B、swf C、psd D、gif
-
9、使用Photoshop软件在处理图片过程中，想要抠选其中的部分图像，刚好这部分图像和背景色差明显，背景色单一，图像边界清晰，选用以下工具最为恰当的是（ ）。A、磁性套索工具 B、选框工具 C、魔棒工具 D、橡皮擦
-
10、下列文件格式中都是图像文件格式的一组是（ ）。A、GIF、TIFF、BMP B、GIF、TIFF、WAV C、GIF、BMP、DOC D、GIF、BMP、TXT
-
11、小赵用下列方法制作的一张图片，可能是矢量图的是（ ）A、用数码相机拍摄了一张图 B、用扫描仪扫描一张图 C、在Flash软件中画了一张图 D、在Photoshop中画了一张图
-
12、数字图像的类型可分为( )A、点阵图、位图 B、点阵图、矢量图 C、平面图、位图 D、平面图、矢量图
-
13、如图所示，小辉用图像处理软件将左图处理成右图的效果，他采取的操作是（ ）。
A、裁剪 B、放大 C、翻转 D、旋转 -
14、小李编写VB程序，实现如下功能：在文本框Text1中输入年份，点击开始命令，在Label2标签中显示判断平年闰年的结果。（闰年判断条件：①普通闰年：能被4整除但不能被100整除的年份；②世纪闰年：能直接被400整除的年份）程序运行界面如下图所示。
(1)、在文本框中输入1860，输出结果是。(2)、实现上述功能的VB程序如下，请在花线处填入合适代码。Private Sub Command1_Click()
Dim year As Integer
year =
If Or (year Mod 400 = 0) Then
Label2.Caption = Str(year) & "是闰年"
Else
Label2.Caption = Str(year) & "是平年"
End If
End Sub
-
15、LZW编码是一种自适应词典编码，通过建立一个字典，实现字符的编码。假设输入的字符串中仅有小写字母和空格，编码方法如下：
⑴初始时，建立一个空字典，把26 个小写字母加入字典中。26 个小写英文字母编码为 1-26，字母“a”的编码为 1，字母“b”的编码为2，其它字母的编码依次增加。
⑵从字符串第一个位置开始扫描，若遇到空格（空格用“*”表示），则得到一个单词，截取该单词并存入变量中。
⑶若该单词在字典中，则取出该单词在字典中的编码值；否则，依次取出该单词中各字母在字典中的编码值，（编码值之间用一个空格分隔），同时产生该单词的编码（编码为字典中的最大编码值加1），加入字典中。
⑷继续扫描字符串，截取单词，并按照步骤⑶的方法进行处理，直至整个字符串编码完毕。字符串“ab ab”LZW编码过程如图所示。
(1)、如果字符串为“ab bb bb”，则其LZW编码为。(2)、请在划线处填入合适的代码。Dim pos As Integer, a(1 To 100)As String
Private Sub Form_Load()
'将字母“a”至“z”依次存入数组元素a(1)到a(26)
End Sub
Function judge(ss As String) As Integer '判断字典中是否有ss这个单词
Dim i As Integer judge = 0
For i = 27 To pos
If a(i) =Then judge = i
Exit For
End If
Next i
End Function
Private Sub Command1_Click()
Dim s As String, i As Integer, j As Integer, k As Integer, ch As String, word As String, result As String, Dim id As Integer, idletter As Integer
s = Text1.Text pos = 26: i = 1
Do While i <= Len(s)
j = i
Do While Mid(s, j, 1) <> " "
j = j + 1
If j > Len(s) Then Exit Do
Loop
word = Mid(s, i, j - i)
If Len(word) = 1 Then '单个字母的单词
result = result + Str(Asc(word) -Asc("a") + 1)
Else
id = judge(word)
If id = 0 Then '新的单词
For k = 1 To Len(word) '依次处理该单词中的各个字母编码
ch = Mid(word, k, 1)
Next k
pos = pos + 1 '对该单词编码
a(pos) = word
Else '词典中存在该单词
result = result + Str(id) End If
End If
If j < Len(s) Then result = result + " *"
Loop
Text2.Text = result
End Sub
-
16、数组a中存放着1到20间的正整数，要求对其中的元素进行分段排序，在文本框Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体界面如下图所示：
实现该功能的VB程序如下，请在划线处填入合适的代码：
Dim a (0 To 100) As Integer
Const high=16
Private Sub Form_Load()
'产生high个随机数，并显示在文本框Text1，代码略
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m=Val(Text2.Text)
For i=1 To
c=“”
For j=1 To m-1
q=i*m
k=sort(p, q)
If a(k)<>a(q) Then
t=a(p): a(p)=a(k): a(k)=t
End If
Next j
Text3.Text=Text3.Text+ “”+c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s=f
For i=f+1 To g
If a(i)>a(s) Then
End If
Next i
sort=s
End Function
-
17、在美国国家信息交换码中，ASCII值从32到127是可以打印并显示的字符，把这96个字符随机调整次序，生成密码本。根据输入的密钥和明文，单击“加密”按钮Command1，输出密文。基本算法如下：
1）用数组mab分别记录1～96个字符的ASCII值，用数组zm记录对应字符在密码本中位置，如mab(9)=65，表示密码本中第9个字符是“A”，则对应的zm(65)=9；
2）把密钥中每个字符的ASCII值的各个数字进行累加（如Hi分别为(7+2)+(1+0+5)），将累加的和除以9取余数后加7，作为将密码本转换成二维表的列数；
3）每个明文在转换后二维表中位置作为密文，该位置是用十六进制表示的行号和列号。
程序运行的界面如下图所示：
实现上述功能的VB程序如下，请回答以下问题：
(1)、若输入密钥为“AB”，则根据算法及密码本，字母“A”加密后的密文是。(2)、请在划线处填入合适的代码。Dim Mab(96) As Integer '存储密码本中每个字符的ASCII值
Dim zm(127) As Integer '存储ASCII值32至127的字符在密码本数组mab中的下标
Private Sub Form_Load()
'产生密码本及96个字符在密码本中位置，代码略。
End Sub
Function p(s As String) As Integer
Dim i As Integer, t1 As Long
Dim sum As Integer, s1 As String
t1=0
i=1
Do While i<=Len(s)
s1=Mid(s, i, 1)
t1=Asc(s1)
i=i+1
Loop
p=sum Mod 9+7
End Function
Private Sub Command1_Click()
Dim i As Integer, t As Integer, hang As Integer
Dim s As String, s1 As String, Lie As Integer
List1.Clear
s1=Text1.Text
t=p(s1)
Label5.Caption= “将密码本换成一张”+Str(t)+ “列的二维表”
i=1
Do While i<=96
s=s+Chr(Mab(i))+ “”
If i Mod t=0 Or i=96 Then
List1.AddItem s
s= “”
End If
i=i+1
Loop
wz= “123456789ABCDEF”
s=Text2.Text
For i =1 To Len(s)
s1=Mid(s, i, 1)
hang=(t1-1)\t+1
lie=(t1-1) Mod t+1
s2=
Next i
Text3.Text=s2
End Sub
-
18、小岩设计了一个顺时针旋转矩阵的程序，其功能为：运行程序时，在文本框Text1中输入矩阵规模n，点击“产生矩阵”按钮Command1，在列表框List1中显示一个n*n的矩阵，该矩阵数据由从1开始的连续自然数组成。点击“旋转矩阵”按钮Command2，该矩阵顺时针旋转90度并显示在列表框List2中，此后每点一次“旋转矩阵”按钮Command2，列表框List2中显示的矩阵顺时针旋转90度。请完成程序填空。
Dim n As Integer
Dim st As String
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Command1_Click()
'产生矩阵，代码略
End Sub
Private Sub Command2_Click() '旋转矩阵
For i=1 To n '行
st= “”
For j= 1 To n '列
b((i-1)*n+j)=
st=st+adj(Str(b((i-1)*n+j)),3)
Next j
List2.AddItem st
Next i
End Sub
Function adj(a As String, n As Integer) As String
'在字符串a前加入适当的空格，使a的长度为n位，代码略
End Function
-
19、对一个n×n的矩阵以“行”为单位进行升序排序，如下表所示是一个4×4的矩阵以行为单位进行升序排序。
小杜编写了实现上述功能的程序，程序功能如下：程序运行时，在文本框Text1中输入n(1<=n<=10)，单击“产生”按钮Command1产生n×n个随机数，随机数的范围为[0,9]，随机存储在数组a中，并以矩阵的形式在列表框List1上显示单击“排序”按钮Command2，对矩阵以“行”为单位进行升序排序，并在列表框List2输排序后的矩阵。在程序运行界面如下图所示，实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 100) As Integer
‘随机生成数并存储在List1中，代码略
Private Sub Command1_Click() ‘按行排序
Dim i As Integer, j As Integer, t As Integer
Dim s As String
s=“”
For i=1 To
k=i
For j=i+1 To
If a(j)<a(k) Then k=j
Next j
If k<> i Then t = a(k): a(k)=a(i): a(i)=t
If I Mod n=0 Then List2.AddItem s: s=“”
Next i
End Sub
Private Sub Command2_Click() ‘按列排序
Dim i As Integer, j As Integer, t As Integer
Dim s As String
s= “”
For i=1 To i-1
k=i
For j= i+n To
If a(j)<a(k) Then k=j
Next j
If k<> i Then t=a(k): a(k)=a(i): a(i)=t
If I Mod n=0 Then List2.AddItem s: s= “”
Next i
End Sub
-
20、某仓库物品代码格式为“X-XXX-XXXXX-Y”，其中“X”和“Y”均为0到9之间的数字，“Y”为校验码。校验码由前面9个X计算得到，计算方法为：从左边开始，第1个数字乘以1 加上第2个数字乘以2……依此类推，直到加上第9个数字乘以9，将该结果除以10，所得余数即为校验码。
小吴设计一个根据校验码校验物品代码的VB程序，功能如下：在文本框Text1中输入物品代码，单击“校验”按钮Command1，如果输入的校验码与计算所得的校验码一致，则输出“校验通过。”（如下左图所示），否则输出“校验不通过！”（如下右图所示）。
Dim s As String '用于存储输入的物品代码
Dim t As String
Dim i As Integer, j As Integer
Dim sum As Integer '用于存储计算校验码的累加和
Dim check_old As Integer '用于存储输入物品代码中的校验码Y
Dim check_new As Integer '用于存储按照前面9个数字X计算所得的新校验码
Dim a(1 To 10)As Integer
Private Sub Command1_Click()
'从物品代码中取出9个数字X依次存储到a(1)到a(9)中，取出校验码Y存储到a(10)中
s=
Text ①j=0
For i=1 To 13
t=Mid(s, i, 1)
If(t>="0")And(t<="9") Then
j=j+1
a(j)=Val(t)
End If
Next i
'计算新的校验码并和输入的校验码进行比较
sum=0
For i=1 To 9
sum=sum+
②Next i
check_new=
③check_old=a(10)
If check_old=check_new Then
Label1.Caption="校验通过。"
Else
Label1.Caption="校验不通过! "
End If
End Sub
实现上述功能的VB程序如下，加框处代码有错，请改正。