学进去

以下都属于网络协议的是（    ）
①ISP   ②UDP   ③HTTP   ④IP ⑤AP   ⑥FTP

A．①②③④⑤⑥

B．③④⑥

C．②③④⑤⑥

D．②③④⑥

某旅行团需在酒店预订一批房间，要求所预订的房间号码尽量集中，如果有多种方案，优先选择预订房间数目较少的方案，有多组可选方案时选择起始房间号最小的方案。酒店有单人间和双人间两种房间，b数组按房间号顺序存储该房间可入住人数，其中可入住人数为0时，表示该房间已有人入住，不可预订。比如有16个房间可入住人数如下：

房号	i	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16
入数	b(i)	2	0	2	2	0	1	2	1	2	1	0	2	1	0	2	2

下表给出了选择预订房间的过程（区间长度表示预订房间的起始房号到最后一个房号包含的房间数，区间长度值越小，代表预订房间分布越集中），选择最优方案过程如（1）（2）（3）所示
（1）从房间号码分布区间长度值最小原则，选择方案2、4、9
（2）分布区间长度值相同时，选择预订房间数目最小的，因此选择方案2、9
（3）所有可选方案中，优先选择最先成立的（起始房号最小的）方案，最终选择方案2

方案	房号范围	区间长度	房间数目	备注	方案	房号范围	区间长度	房间数目	备注
方案1	1 ~ 6	6	4		方案6	8~13	6	5
方案2	3 ~ 7	5	4		方案7	9~15	7	4	人数>7,取消10号房
方案3	4 ~ 9	6	4	人数>7 取消6号单人间	方案8	10~16	7	4	人数>7,取消13号房
方案4	6~10	5	5		方案9	12~16	5	4
方案5	7~12	7	4	人数>7,取消8号单人间

程序运行界面如下，请完成相应的小题
（1）如下图所示16个房间，当入住人数为5人时，预订房间号是：_____________

（2）请在划线处填写适当的代码
Const n = 16 '假设酒店总房间数为16
Dim b(1 To n) As Integer 'b 数组按房间号顺序存储各房间可入住人数
Function find1(x, y) As Integer
'函数 find1(x,y)的作用是从 b(x)到 b(y)中找到值为1的数组变量的下标，若找不到，返回值为0
End Function
Private Sub Command1_Click()

Dim s As Integer, d As Integer,f as integer, num As Integer, roomnum As Integer

Dim minnum as integer 'minnum 变量存储当前最优方案中的预订房间数目

Dim mindist As Integer 'mindist 存储当前的最小分布区间长度

'所有房间的可入住人数按房间号码顺序存储到数组b中并显示在list1中,代码略

num = Val(Text1.Text)

minnum = n: mindist = n :s = 0 : start = 0: f = 0: pos = 0

For i = 1 To n

If b(i) <> 0 Then

j = i: s = 0: roomnum = 0

Do While s < num And j <= n

s = s + b(j)

If b(j) > 0 Then roomnum = roomnum + 1

j = j + 1

Loop

d = ___

If s = num Then

If d < mindist Or _____ Then

start = i: mindist = d: minnum = roomnum: pos = 0

End If

ElseIf s > num Then '若可入住人数超出，在当前区间内所选房间中取消1个单人间

f = find1(i + 1, j - 2)

If f > 0 Then

If d < mindist Or d = mindist And roomnum-1 < minnum Then

start = i: mindist = d: minnum = roomnum - 1: pos = f

End If

End If

End If

End If

Next i

If start = 0 Then

Label2.Caption = "房间数量不足"

Else

List2.AddItem "预订房间：" + Str(minnum) + "间"

For i = start To_____

If b(i) > 0 And i <> pos Then

List2.AddItem "房间号:" + Str(i) + ",入住人数：" + Str(b(i))

End If

Next i

End If

End Sub

有一个木棒游戏，探究在一堆木棒中取4根木棒组成一个正三角形的取法数量（三角形其中一边由两根木棒组成，长度相同的不同木棒算不同的方案）。如果取出长度为a,b,c,d（a<=b<c=d）的四根木棒能构成正三角形，那么a+b=c=d。算法如下：
（1）枚举两根短的木棒a和b；
（2）当a<>b时，组合的数量=长度为a的木棒根数×长度为b的木棒根数×长度为(a+b)的木棒取两根的取法数量；
（3）当a=b时，组合的数量=长度为a的木棒取两根的取法数量×长度为(a+b)的木棒取两根的取法数量。
如木棒长度分别为“1,1,2,2,3,3”，当a=1，b=2时，则c=d=3，该情况的组合数量=（长度为1的根数）*（长度为2的根数）*（长度为3的根数取两根的取法数量）=2*2*1=4。长度为3的根数取两根的取法数量，即C2。
程序运行界面如第16题所示，在文本框Text1输入一堆木棒的长度，以逗号间隔，点击“计算”按钮Command1后在标签Label1显示方案总数。

请回答下列问题：
（1）在文本框Text1中输入“2,3,3,6,6,6,7,”，能构成正三角形的取法数量是(填数字)________
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim tmax As Integer, ans As Integer, k As Integer
Dim i As Integer, a As Integer, b As Integer, tmp As Integer
Dim c As String, s As String
Dim t (20) As Integer
'储存相同长度木棒的数量，如t(5)的值是长度为5的木棒的数量
s=Text1.Text
tmp=0:k=0
ans=0:tmax=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c="," Then
k=k+1
t(tmp)=____
If tmp>tmax Then tmax=tmp
tmp=0
Else
tmp=tmp*10+Val(c)
End If
Next i
For a=1 To tmax\2    '枚举两根短的木棒
For b=a To tmax
If a+b>tmax Or t(a)*t(b)*t(a+b)=0 Then Exit For
If____Then
ans=ans+js(t(a),2)*js(t(a+b),2)
Else
ans=ans+js(t(a),1)*____*js(t(a+b),2)
End If
Next b
Next a
Label1.Caption="共有"+Str(ans)+"种方案"
End Sub
Function js(x As Integer, y As Integer)As Integer
'计算在x个对象中取y个对象的组合数量，即Cy
'代码略。
End
Function

有n个小组（编号1至n），每个小组有m个成员，每个成员都有一个大于等于0的得分。现要求按下列规则计算每个小组的成绩，并找出成绩最高的小组。
小组成绩的计算规则是：若小组成员中得分最高的前k人得分都不低于k，且其他成员得分都不超过k，则该小组成绩为k。例如，第1小组共有8个成员，得分依次为“5，2，7，11，8，6，5，1”，由此可知最高的前5人得分为“11，8，7，6，5”，其他3人得分为“5，2，1”，因此该小组成绩为5。

按上述要求，编写VB程序，功能如下：在列表框List1中显示各小组每个成员的得分，单击“计算”按钮Command1，在列表框List2中显示成绩最高的小组编号及成绩（如果有多个小组并列最高，则全部显示）。
（l）若第2小组各成员得分依次为“0，4，12，l，5，9，3，9”，则该小组的成绩是_______。
（2）请在划线处填入合适的代码。
Const n = 6
Const m = 8
Dim a（n * m）As Integer
Dim c（m）As Integer，ans（n）As Integer
Private Sulb Form_Load（）
’读取n个小组每个成员的得分，按组别从小到大依次存入数组a，并显示在List1中
’n（l）到a（m）存储第1小组m个成员的得分
’a（m+1）到a（2*m）存储第2小组m个成员的得分
’以此类推，代码略
End Sub
Privute Sub Cummand 1_Click（）
Dim i As Integer，p As Integer，g As Integer，maxg As Integer

maxg = -1

For i = l To n
g = GroupScore（i）
If g > maxg Then

maxg = g:p=l

__
Elself g = maxg Then
p=p+1
ans（p）=i
End If
Next i
For i = l To p

List2. Addltcm“第”+Str（ans（i））+“组，成绩：”+Str（maxg）

Next i
End Sulb
函数返回第w小组的成绩
Function Group Scone（w As Integer）As Integer

Dim i As Integer，k As Inteser

For i = 0 To m

e（i）=0

Next i

For i=（w-l）*m+l To w *m

k=a（i）

If k > m Then __

e（k）=e（k）+1
Nexl i
k=m

Do White e（k）< k And k>0

k=k-1

 __

Loop
GroupScore=k
End Fuinction

编写VB程序，实现如下功能：在文本框Text1中输入二进制数，单击“转换”命令按钮Command1，在文本框Text2中输出对应的十六进制数。程序运行界面如图所示，请回答下列问题：

（1）如果输入的二进制数为“1101010”，则得到的结果为____________ 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Function bw(x As Integer, y As String) As String
'函数bw功能：若二进制位数不足，通过在前面添"0"使得位数为4的倍数
Dim r As Integer, i As Integer
r = x Mod 4
If r <> 0 Then
For i = 1 To 4 - r
y = "0" + y
Next i
x = Len(y)
End If
bw =______________
End Function
Private Sub Command1_Click()
Dim m As String, n As Integer, i As Integer, a As Integer
Dim s As Integer, s1 As String, j As Integer
m = Text1.Text
n = Len(m)
Text2.Text = ""
m =____________            '调整m的位数为4的倍数
For i = 1 To n - 3 Step 4
s = 0
For j = i To i + 3
a = Val(Mid(m, j, 1))
s =_______________
Next j
If s >= 10 Then
s1 = Chr(Asc("A") + s - 10)
Else
s1 = CStr(s)     '函数CStr类似于Str，但无前导空格
End If
Text2.Text = Text2.Text + s1
Next i
End Sub

根据某场馆一天中每位参观者的进馆和出馆时间，可统计该场馆当天人流量的分布情况。每个人进、出馆的时间用一个长度为11的字符串表示，例如“08：05-08：45”表示进馆时间为8点5分，出馆时间为8点45分。现要求统计当天馆内人数超过指定人数的总时长。
根据上述要求编写VB程序，功能如下：读取n个人进，出馆的时间，显示在列表框List1中。程序运行时，在文本框Text1中输入指定人数，单击“统计”按钮Command1，在标签Label1中显示馆内人数超过指定人数的总时长。程序运行界面如图所示。

（1）在VB表达式Va1（Text1.Text）中，Va1、Text1、Text依次表示______（单选，填字母：A．方法名、属性名、事件名/B．函数名、对象名、方法名/C．函数名、对象名、属性名）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。______
Const n = 800
Dim d（1 To n）As String，a（1 To 2 * n）As String

Private Sub Form_Load（）

’读取n个人进、出馆的时间，存入数组d并显示在列表框List1中，代码略
End Sub
Private Sub Command 1_ Cliek（）

Dim i As Integer，j As Integer，k As Integer，sp As Integer

Dim i As Integer，cnt As Integer，mts As Integer，sum As Integer

Dim s As String

’提取每个人的进，出馆时间，分别加上IN、OUT标记后存入数组a

For i = l To n
a（i）=Mid（d（i），1，5）+"IN"
 = Mid（d（i），7，5）+"OUT"
Next i
For i = 1 To 2 * n-1 对数组元素a（1）到a（2*n）从小到大排序
__
For i = i To 2 * n-1
If a（j） < a（k） Then k = j
Next j
s = a（i）：a（i） = a（k）：a（k）=s
Next i

sp =Val（Text1，Text）

t=-1：cnt=0：sum=0

For i = 1 To 2 * n

mts=Val（Mid（a（i），1，2））*60+Val（Mid（a（i），4，2））

If Mid（a（i），6，2）=“IN” Then cnt = cnt + 1 Else __
If cnt > sp Then
If t = -1 Then t = mts
Elself t > -1 Then
__
t=-1

End If

Next i
Label1.Caption = "超过指定人数的总时长："+Str（sum）+"分钟"
End Sub

某夏令营按两门考试科目总分从高分到低分依次录取学生。如果录取学生的最后一名出现有总分并列的情况，则并列的学生全部录取。编写VB程序实现以上功能，程序运行时在列表框List1中显示全部学生的信息，在文本框Text1中输入计划招生人数，点击“录取”按钮Command1后，在列表框List2中输出录取的学生信息，并在标签Label1上显示最终录取的人数。程序运行界面如图所示。

请回答下列问题：
(1)如图所示，按钮Command1上显示的“录取”是该按钮对象的_______（单选，填字母：A.对象名/B.属性名/C.方法名/D.属性值）
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
(3)程序中加框处代码有错，请改正________。
Cons tnum=15
Dim xm(num) As String
Dim km1(num) As Integer, km2(num)As Integer
Private Sub Form_Load()
'读取num个学生的姓名、科目1、科目2的成绩，分别存储到数组xm、km1、km2。'在列表框List1中输出所有学生的姓名与成绩，代码略。
End Sub
Private Sub Command1_Click()
Dim rs As Integer, count As Integer, flag As Boolean
Dim i As Integer, j As Integer, t As Integer, tmp As String
rs=Val(Text1.Text)
List2.AddItem"姓名科目1 科目2"
count=0:i=1
___
Do While And flag
For j=num-1 To i Step-1

If___Then

tmp=xm(j):xm(j)=xm(j+1):xm(j+1)=tmp
t=km1(j):km1(j)=km1(j+1):km1(j+1)=t
t=km2(j):km2(j)=km2(j+1):km2(j+1)=t

End If

Next j
flag=False
If i<=num Or km1(i)+km2(i)=km1(i-1)+km2(i-1)Then
count=i
flag=True
End If
i=i+1
Loop
For i=1 To count
List2.AddItemxm(i)+"    "+Str(km1(i))+"    "+Str(km2(i))
Next i
Label1.Caption="共录取学生"+___+"人"
End Sub

小陈制作主题为“故乡”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：

图1
（1）处理图像的部分界面如图1所示。下列说法正确的有_______（多选，填字母）。
A.可对“山脉”图层直接设置滤镜效果
B.可使用画笔工具修改“背景”图层中的图像内容
C.可复制“蒲公英”图层的图层样式并粘贴到“云”图层
D.将作品存储为JPEG格式文件，该JPEG格式文件保留原作品的图层信息
（2）制作动画作品的部分界面如图b所示。“音乐”图层中声音的同步属性为“数据流”，为让音乐和“文字2”图层的补间动画同时结束，可在“音乐”图层第_______帧执行_______操作。

图2
（3）“按钮”图层最后一帧设置了动作脚本“stop()；”。测试影片时，“退出”按钮一开始就出现在舞台上，若要“退出”按钮仅最后一帧出现，在不影响其他动画效果的前提下，可行的操作有_______（多选，填字母）。
A.选中“按钮”图层第1帧，执行“删除帧”操作
B.选中“按钮”图层第1帧，执行“清除关键帧”操作
C.选中“按钮”图层第1至59帧，执行“删除帧”操作
D.选中“按钮”图层第1帧，删除其舞台上“退出”按钮实例
E.将“按钮”图层第1帧移动至第60帧，并在第60帧添加动作脚本“stop()；”
（4）放映影片时，单击当前场景中的“退出”按钮可关闭放映文件，则“退出”按钮上应添加的动作脚本是_______。

某单位招聘人员，根据应聘人员的笔试成绩从高到低取一定比例的人员进入面试，若按比例计算出的人数为小数,则直接取整（不四舍五入），若进入面试的最后1名有多个同分人员，同分人员也进入面试。程序运行界面如下，请完成后面的小题：
（1）程序运行时自动清空文本框Text1中显示的内容，应该在___________事件处理过程执行相关命令
A. Form_ load             B.Text1_Change             C.Command1_Click

图1
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正________

'人员编号和笔试成绩分别存储到数组变量 id 和 score 中，应聘总人数存储在变量n中面试比例在文本框Text1中输入，所输入比例值必须使面试人数大于1且小于n，代码略。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, st As String, t As Integer

For i = 1 To n - 1 '按笔试成绩从高到低排序

k = i

For j = i + 1 To n

If ___ Then k = j

Next j

If k <> i Then

st = id(k): id(k) = id(i): id(i) = st

t = score(k): score(k) = score(i): score(i) = t

End If

Next i

num =___

j=num+1

Do while j<=n

If  Then Exit Do

j=j+1

Loop

For k=_____

List2.AddItem Str(k) + " " + id(k) + " " + Str(score(k))

Next k

End Sub

小王基于选择排序算法编写了一个 VB 程序，功能如下：数组 a 有 n * n 个元素，按 n 行 n 列进行排列，按列进行升序排序。例如 6 * 6 的数组，第一列将 a(1)，a(7)，a(13)，a(19)，a(25)，a(31)进行排序。运行程序，在列表框 List1 中显示 n*n 个数列单击“排序”按钮 Command1，在列表框List2 中显示排序后的结果，程序运行界面如图所示。请回答下列问题：
（1）n=6时运行结果如图所示，图中1处“47”在数组 a中下标是 _______ （填数字）。
（2）为了实现上述功能，请在划线处填写合适的代码。
①_______________
②_______________
（3）程序中加框处代码有错，请改正。
_________________

Const n =6
Dim a(1 To n * n) As Integer
Private Sub Form_Load()   '产生n*n个数组元素，每行按n个数显示在list1中
For i = 1 To n * n
a(i) = Int(Rnd * 90) + 10
s = s + Str(a(i))
If①____________Then  
List1.AddItem s
s = ""
End If
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer, s As String
For i = 1 To n * n
k = i
For j = k + n To ②___________
If a(k) > a(j) Then k = j
Next j
If Then t = a(k): a(k) = a(i): a(i) = t
Next i
'将排序后数组a的元素，按每行n个数显示在list2中，代码略
End Sub