学进去

小明为老师办公室设计一套组网方案，要求实现办公室里4台计算机都能互相通信，并且都能访问Internet。学校为他提供了以下材料和设备：双绞线、电缆、光纤、集线器、交换机和路由器。请检查该方案的正确性，并提出整改方案。

A．将3处的路由器改为交换机

B．将2处的集线器与3处的路由器进行互换

C．将1处的4台计算机的连接方式改为直接与集线器连接

D．该套方案没有问题，不需要整改

现有一个小公司利用四台计算机组成一个网络，拓扑结构如下图所示：

（1）为让该网络正常运行，需要在“设备一”处放置哪个设备？_____________
（2）为让该网络正常运行，需要在“设备二”处放置哪个设备？_____________
（3）按照覆盖范围，该公司的计算机网络属于__________，该网的拓扑结构是__________。
（4）现在已知计算机A的IP地址为192.168.10.1，为确保设备之间相互能够访问，计算机D的IP地址可以设置为___________。
a、192.168.11.1      b、192.168.10.1     c、192.168.10.2 d、192.188.10.1

小张制作了一个“光盘行动，从我做起”为主题的多媒体作品，如下图a所示。
（1）以下几个步骤属于创作需求分析的是________（多选，填字母：A、确定作品的主题为“光盘行动，从我做起”/B、做这个作品大概需要花多少时间和资金/C、作品准备从网络上发布/D、确定好作品的主要界面/E、确定原始素材的获取方式，并分类登记）

图a
（2）盘图层动画在播放过程中突然消失了，若要使该图层持续播放到60帧，该如何解决？_____。
（3）该场景播放到最后一帧时出现“重播”按钮，单击该按钮，停止播放所有声音，并跳转到本场景第1帧开始播放，“重播”按钮上应添加的动作为________。
（4）若想让声音在整个场景中都能听到，那么声音的同步效果应设置为_______。
（5）如下图b所示，以下说法正确的是__________（填字母，多选）。

图b
A、该按钮的弹起帧和按下帧在编辑状态时内容可能是不一样的
B、鼠标移到按钮上时，声音可能是能听到的
C、图层2弹起帧复制到点击帧后，该按钮是有效的
D、图层2点击帧，清除帧后，该按钮是有效的
E、如图所示的按钮应用到舞台，鼠标经过该按钮时的形状和弹起帧是一样的

手机上的9键输入键盘如图1所示，要按出英文字母就必须要按数字键多下。例如要按出“X”就得按9两下，第一下会出“W”，而第二下会把“W”变成“X”。请设计一个程序，读入用户输入的9键输入码，解析出对应的英文字符串，具体要求如下：
①输入码中只包含数字字母“0~9”，且以“*”代表输入结束
②按键词数采用循环计数，如输入“2222”代表“A”，“55555”代表“K”。
③输入“1”表示分词，如“555555”代表“L”，但改为“5551555”就代表“LL”。

图1

图2
（1）若输入码是“333338883377799966616666633*”，则对应的字符文本是_______________。
（2）程序界面如图2，请在下方画线处填上合适代码，使程序完整
Private Sub Command1_Click()
本题使用的函数:Asc(c)得到字符c的ASCII码数值,Asc("A")=65
Chr(n)得到数值n对应的ASCII字符,如chr(65)="A"
Dim s As String, s1 As String, ch As String, ch1 As String
Dim i As Integer, t As Integer, t1 As Integer, n As Integer
s=Text1.Text
i=1:t=1:s1=""
ch=Mid(s,i,1)
Do While ch<>"*"
Ch1=①________
If ch<>ch1 Then
If ch>"2"And ch<="6"Then
t1=Asc("A")+(Val(ch)-2)*3
n=3
Else If ch="7"Then
t1=Asc("A")+15
n=4
Else If ch="8"Then
t1=Asc("A")+19
n=3
Else If ch="9"Then
t1=Asc("A")+22
n=4
End If
If ch>"2"Then
s1=s1+Chr(②__________)'得到该串数字表示的字母并加到s1中
Else If ch="0"Then
s1+s1+""
End If
t=1
Else
t=t+1
End If
③________
i=i+1
Loop
Label2.Caption="解析结果:"+s1
End Sub

AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则是胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-对手得分），小分多获胜，若还是相同，则算平局。小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中，单击“统计”按钮command1，把两队每场按AB两队比分差降序显示在列表框list1中，同时在文本框Text2输出最终结果。部分程序界面如图所示。

Private sub command1_click()
Dim a(1 to 20) as integer,b(1 to 20) as integer,i as integer
Dim j as integer,t as integer,p as integer,k as integer,xiaofen as integer
‘从文本框读取AB两队各场的比分分别存数组a、b，场次k，代码略
For i=1 to k-1
For j= 1 to _____ 
If ______ then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j)=b(j+1):b(j+1)=t
End if
Next j
Next i
p=0 : xiaofen=0
For i=1 to k
if a(i)>b(i) then _________
xiaofen = xiaofen+a(i)-b(i)
List1.Additem str(a(i)) + “：”+ str(b(i))
Next i
If p*2>k or k=p*2 and xiaofen>0 then
Text2.text = “A队获胜”
Elseif    then   _________
Text2.text = “B队获胜”
Else
Text2.text = “两队平局”
End if
End sub
(1)在程序划线处填入合适代码，使程序完整
(2)加框处代码有错误，请改正。
(3)若希望程序在运行时列表框list1内容清空，则应该在代码中添加语句_____（单选，填字母：A.list1.additem B.list1.clear C.list1.caption ）

移牌问题。小张在和室友玩新式桥牌游戏，为了加快分牌的速度，小张先将sum张牌大致分成n堆，编号分别为1，2，3，．．．．．．，n，且sum是n的倍数，然后再进行移牌，最终使每堆的张数相同。

移牌规则：

①编号为1的堆上的纸牌，只能移到编号为2的堆上；

②编号为n的堆上的纸牌，只能移到编号为n-1的堆上；

③其他堆上取的纸牌，可以移到相邻左边或右边的堆上。

现要求找出一种移动方法，用最少的移动次数使每堆的纸牌数一样多，如图所示，单击“发牌”按钮后，生成8组数据，点击“移牌统计”按钮，在label1中显示移牌次数

（1）52张牌随机分发给4个人13，12，2，25，则需要移动________次才能均分52张牌给4个人。
Const n=8
Const sum=104
Dim a(n) As Integer
Private Sub deal_Click()    ‘发牌过程
Text1.Text = ""
k = sum
For i = 1 To ________    
a (i) =   ① 
Text1.Text = Text1.Text & a(i) & ","
k = k - a(i)
Next i a(i) = k
Text1.Text = Text1.Text & a(i)
End Sub
Private Sub cut_Click()    ‘移牌统计过程
Dim avg As Integer
Dim c As Integer
avg=sum / n
c=0
For i = 1 To n – 1
If a(i) < > avg Then
a(i + 1) =________  
c = c + 1
End If
Next i
Label1.Caption = Str(c)
End Sub
（2）填写横线处的代码。
（3）根据①处语句，若第1次生成随机数是13，则下一次随机数生成区间为________。

某数字字符串的加密算法如下：
①从左往右扫描，若其中存在连续上升数字字符，则进行压缩。其中，数字字符串“91”也算连续上升。连续上升的数字字符不超过 9 个，若超过 9 个则该数字字符串分成两段。例如：“12324789123456789”可以压缩成“1-3247-67-9”
②对压缩后的数字字符进行加密，其中，数字字符“1”-“9”用加密字符“A”-“I”表示，未经压缩的数字字符原
样输出。例如：“1-3247-67-9”加密后是“A-C24G-FG-I”。
程序界面如图所示。

（1）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（2）若加框处代码改为“s = Text1.Text”，在文本框 Text1 中输入“45678989123456789”单击“加密”按钮后，文本框 Text2 中显示的内容是__________________。

Private Sub Command1_Click()

Dim s As String, k As Integer, i As Integer, t As Integer
Dim sjg As String, mw As String, start1 As Integer, end1 As Integer
Dim a(1 To 100) As Integer
mw = "ABCDEFGHI"
 
t = 1
a(1) =________
For i = 2 To Len(s)

a(i) = Val(Mid(s, i, 1))

If ________ Then

t = t + 1

Else

If t > 1 Then

start1 = _____________

end1 = a(i - 1)

sjg = sjg + Mid(mw, start1, 1) + "-" + Mid(mw, end1, 1)

Else

sjg = sjg + CStr(a(i - 1)) ‘CStr 函数将表达式转换为字符串，并去除前导空格

End If

t = 1

End If

Next i

Text2.Text = sjg

End Sub

程序运行后，在文本框Text1中输入填涂的答案，每个答案以“，”结束，如果出现连续两个“，”，说明该题未作答；在文本框Text2中输入参考答案，每个答案以“，”结束，点击评分按钮，在标签Label3中输出最后得分。程序运行界面如图所示：

请回答下列问题：
（1）下列对象中，有Caption属性的是_______（单选，填字母：A.Command1/B.Text1/C.List1）。
（2）实现按多选题评分标准的评分功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。_______
Private Sub Command1_Click（）
Dim i As Integer，j As Integer
Dim ttda As String，ckda As String，tt As String，ck As String
ttda=Text1. Text
ckda=Text2. Text
i=1：j=1
Do While i<=Len（ttda）And j<=Len（ckda）
tt=midd（I，ttda）：ck=midd（j，ckda）
If Len（tt）<>0 Then
tt1=xxsz（tt）：ck1=xxsz（ck）
If_______Then
df=2
Else
For k=1 To 4
If Then Exit For
Next k
If k=5 Then df=1 Else df=0
End If
zf=ft+df
End If
i=i+Len（tt）+1：j=j+Len（ck）+1
Loop
Label3. Caption="总计"+Str（zf）+"分"
End Sub
Function xxsz（s As String）As String´将选项转换为对应四位二进制数，已知大写字母"A"的ASCII码值为65
t="0000"
For i=1 To Len（s）
_____
Next i
xxsz=t
End Function
Function midd（k As Integer，s As String）As String ´读取每题选项
Dim i As Integer
i=k
Do While i<=Len（s）
If Mid（s，i，1）<>"，"Then
________
Else
Exit Function
End If
i=i+1
Loop
End Function

小王创作主题为“传统文化”成语故事的多媒体作品，他首先使用 Photoshop 软件制作一张背景图片，然后使用 Flash 软件制作动画。请回答下列问题：
（1）如图 1 所示，下列说法正确的是________（多选，填字母：A.“礼义廉耻”图层的内容不 可见是由于被其他图层所遮挡/ B.可以调整“中国”图层和“传统文化”图层的顺序/ C. 可以直接修改“传统文化”图层的名称/ D.可直接对“背景”图层作滤镜操作）。 （注：全部选对的得 2 分，选对但不全的得 1 分，不选或有选错的得 0 分）

图1

（2）由图 2 所示，测试影片时，该场景中的声音播放持续约 3 秒，而声音文件的总长度约为2分钟，则可推断该声音同步方式为________（选填字母：A.事件/B.数据流）。
（3）在调试 Flash 影片时，小王发现“按钮”图层中“重播”按钮自始自终都出现在舞台
上，正确的是应该在最后一帧才出现，解决该问题的方法是______________________                           
（4）如图 2 所示，文字图层中的内容是“文字”元件实例，其内容是“礼义廉耻”，且有动 画效果，则可知的该元件的类型是________ 。
（5）若按钮图层中的“重播”按钮功能是从本场景的第一帧重新播放，则在该按钮上加 入动作脚本命是______________________________________
图2

找数对。已知一数组 a 中有 9 个元素，在文本框 Text1 中输入一个正整数 key，单击“找数对” Command1 按钮，则在数组 a 中搜索是否有一对数的和等于 key，若有，在标签 Label2 中输出最先找到的两个数，若无则输出“没有找出数对”。运行界面如图所示：
 
（1）根据程序，若文本框 Text1 中输入内容为 17，则标签 Label2 中输出的内容是____________。
（2）请划线处填入合适的代码。
①__________________
②__________________
（3）请改正加框处语句的错误。
改正：__________________
Const n = 9
Dim a(1 To n) As Integer,i As Integer, j As Integer
Private Sub Form_Load()
Dim s As String, k As Integer
a(1) = 9: a(2) = 13: a(3) = 11: a(4) = 3: a(5) = 20
a(6) = 6: a(7) = 18: a(8) = 15: a(9) = 8
For i = n To 2 Step -1
k = i
For j = ①              
If a(j) < a(k) Then t = a(j): a(j) = a(k): a(k) = t
Next j
       '③改错
Next i
Label1.Caption = s End Sub
Private Sub Command1_Click()
Dim L As Integer, R As Integer, m As Integer, key As Integer
key = Val(Text1.Text)
For i = 1 To n - 1
L = 1: R = n
Do While L <= R
m = (L + R) \ 2
If a(i) + a(m) = key Then
Label2.Caption = Str(a(i)) & Str(a(m))
Exit For
ElseIf ②             Then
L = m + 1
Else
R = m - 1
End If
Loop Next i
If L > R Then Label2.Caption = "没有找到数对"
End Sub