学进去

仔细观察下图，回答以下问题：（共14分）

（1）计算各科的最高分,应在B11单元格输入________________然后使用填充柄快速填充其余的单元格。（2分）
（2）要计算各科与考数(参加考试人数),应在B13单元格输入________________，（2分）如果在B7单元格中输入“缺考”，B13单元格是否会自动发生变化？___________（1分）如果在B7单元格中输入数值0，B13单元格是否会自动发生变化？___________（1分）。
（3）要计算各科及格率应在B14单元格输入________________（2分）然后使用填充柄快速填充其余的单元格。
（4）若要按总分从高到低进行排序，可使用如下方法进行操作：选定数据区域_________,然后单击“数据”菜单中的“排序”命令。（2分）
（5）若要在第十一行（最高分）下插入一行为最低分，操作方法是：______________________________________________________________________（2分）
（6）若要只显示出总分低于400分的同学应选择数据菜单栏中的_______________。（2分）

对分查找算法可用于求解方程的近似解。现要求方程x³-4x²+x+5=0的一个近似解，可设f（x）=x³-4x²+x+5，若有区间[a，b］，使f（a）与f（b）异号，则该区间内必存在该方程的一个解。小吴为比编写了VB程序，功能如下：分别在本框Text1和Text2中输入求解的区间值a和b（a<b），单击“计算”按钮Command1，若该区间必有解，则求解出该区间内的一个近似解（精确到10^-5）否则提示“重新输入区间”，计算后的相关结果显示在列表框List1中。程序运行界面如下图所示。

实现上述功能的VB程序如下，请在划线处填上合适的代码。
Private Sub Command1_Click()
Dim a As Double, b As Double, m As Double, x As Double
Dim ym As Double, yb As Double
a=Val(Text1.text):b=Val(Text2.Text)
If a>b Then t=a:a=b:b=t
Do While ①____

m=(a+b)/2

ym=m^3—4*m^2+m+5

yb=b^3-4*b^2+b+5

If Abs(ym)<0.00001 Then Exit Do

If ②___ Then

b=m

Else

a=m

End If
Loop
Text3.Text=Str(Int(m*10000)/10000)
End Sub

小刘在玩一个数字游戏，给定一个n位正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数38265083，保留4位，最大数为8683。算法如下：
（1）在左边第1位至最后第n个数（从右向左的第n个数）之间，找出最大值，确定新数的最高位；
（2）从最大值的下个位置到第n-1个数之间查找最大值，确定新数的第二位。
（3）依次类推，确定最终的最大数。
设计了一个VB程序，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

（1）如果输入的原数是3635132，保留4位数字，则输出的新数是________。
（2）实现上述功能的VB代码如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20)As String
Dim ys As String,xs As String 'xs 记录最大的新数
Dim k As Integer,h As Integer,n As Integer
Dim i As Integer,j As Integer
Dim F as Boolean
xs="  "
ys=Text1. Text
n=Len(ys)
k=Val(Text2. Text)
F=True
If ys="  " Or n>20 Or k=0 Or k>n Then
Label4. Caption="输入的原数或保留位数不符,请重输!"
F=False
End If
For i=1 To n
①___
If a(i)<0" Or a(i>9"Then
Label4. Caption="输人的原数不是数字,请重输!"
Textl. Text="  "
F= False
End If
Next i
If F= True Then
h=1
For i= 1 To k

For j= h To②___

If a(j)>a(h)Then h=j

Next j

③___

h=h+1

Next i
Text3. Text=xs
End If
End Sub

某字符（限ASCII字符）加密算法，对明文中的每个字符进行下列加密处理：
（1）将该字符的ASCII码转换成对应的2位十六进制数；
（2）将产生的十六进制数互换位置；
（3）步骤（2）产生的二位十六进制数即为该明文字符加密后的密文字符。
小明按照上述方法，设计了一个字符串加密的VB程序，功能如下：单击“生成密文”按钮 Command1，程序依次将文本框Text1中每个字符按上述规则进行加密处理，连接这些加密字符，最后在文本框Text2中输出加密结果。程序运行界面如图所示。

实现上述功能的VB程序如下：
（1）按照上述加密算法，明文“B”生成的密文是________________。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub Command2_Click()
Dim s As String,a As String,ans As String
Dim c As Integer,i As Integer
Dim s1 As String
s= Text1. Text
ans="  "
For i=1 To Len(s)

a=Mid(s,i,1)

s1=______

ans=______

Next i
Text2. Text=ans
End Sub
Function DToh(x As Integer)As String
Dim str As string
str="0123456789ABCDEF"
Do While x < > 0

t=x Mod 16

_______

x=x\16

Loop
End Function

LZW编码是一种自适应词典编码，通过建立一个字典，实现字符的编码。假设输入的字符串中仅有小写字母和空格，编码方法如下：
（1）初始时，建立一个空字典，把26 个小写字母加入字典中。26 个小写英文字母编码为 1-26，字母“a”的编码为 1，字母“b”的编码为2，其它字母的编码依次增加。
（2）从字符串第一个位置开始扫描，若遇到空格（空格用“*”表示），则得到一个单词，截取该单词并存入变量中。
（3）若该单词在字典中，则取出该单词在字典中的编码值；否则，依次取出该单词中各字母在字典中的编码值，（编码值之间用一个空格分隔），同时产生该单词的编码（编码为字典中的最大编码值加1），加入字典中。
（4）继续扫描字符串，截取单词，并按照步骤（3）的方法进行处理，直至整个字符串编码完毕。字符串“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

录制了一段WAVE格式的音频数据5分钟，在保存该音频文件时部分信息如下图所示，预测存储该文件需要的磁盘空间大约是多少MB?（6分）

某数据加密方法描述如下：
(1)以字节为单位进行加密处理；
(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数；
(3)分别将上述两个4位二进制数转换为十进制数；
(4)将每个十进制数转换为1个加密字符，对应的“密码表”如下：

值(十进制)	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
加密字符	I	l	i	k	e	C	H	N	P	0	s	t	c	a	r	d

小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：

程序运行效果如图所示。

实现上述功能的VB程序如下：
（1）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a As Integer  '存储加密前字符的ASCII码
Dim b1 As Integer, b2 As Integer    '分别存储分割、转换后的两个十进制数
s = Text1.Text
①
For i =" 1" To n
a =" Asc(Mid(s," i, 1))
b1 =" a" \ 16
b2 =" a" Mod 16
ss =" ss" + Code2Char(b1) + Code2Char(b2)
Text2.Text = ss
Next i
End Sub
'十进制值转换为加密字符的函数
Function Code2Char(c As Integer) As String
Dim s As String
s = "IlikeCHNpostcard"
Code2Char =         ②
End Function
(2)若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是

某县有15所初中，其中代码01、02和03为城区学校，其他为乡镇初中，为鼓励乡镇初中报考县重点高中，该高中为乡镇初中分配了定向名额，当该校上线人数未达到定向人数时，在未到分数线10分以内的学生中，从高分到低分录取增加学生，直到总人数达到定向人数。该高中总的招生人数（含定向生）不得超出800人。小明依据上述描述设计了如下VB程序。算法基本思路：
1）先找到第801名学生的成绩，向前查找高1分的学生，把该分数记为分数线；
2）统计该分数线以上，各校录取人数；
3）从该分数线向下查找10分以内的学生，如果某校上线人数达定向人数，则作为定向增加的录人数；
4）若录取人数加定向增加人数超过800人，将分数再提高1分，重复以上操作。
程序运行时的界面如下图所示。

请回答下列问题：
（1）该程序运行后，第1个被定向录取的学生所在学校代码是_________。
（2）请在划线处填入合适的代码。
Const n=5992
Dim xdm(n) As String, xm(n) As String 'xdm存储学生所在学校代码,从01～15
Dim dx(15) As Integer, zkz(n) As String, cj(n) As Integer 'dx存储每所学校定向指标
Private Sub Command2_Click()
Dim i As Integer, j As Integer '按成绩从高到低序号
Dim s As Integer '总的招生人数
Dim fsx As Integer '招生分数线
Dim xrs(15) As Integer '大于等于分数线人数
Dim zjdx(15) As Integer '未到定向指标而录取人数
s=801:i =801
Do While s> 800
Do While cj(i) =cj(i-1)
i=i-1
Loop
For j=1 To 15
xrs(j)=0:zjdx(j)=0
Next j
For j=1 To i-1

①____

xrs(t)=xrs(t)+1

Next j
s=②_____
fsx=cj(j-1)
Do While cj(j)>=fsx-10

t=Val(xdm(j))

If ③___ Then

s=s+1
zjdx(t)=zjdx(t)+1

End If

j=j+1

Loop
i=i-1
Loop
List2.AddItem "学校 定向指标上线人数定向合计"
For j=1 To 15
List2.AddItem Str(j)+ "" +Str(dx(j))+Str(xrs(j))+ ""+Str(jdx(j)) ""+Str(zjdx(j)+ ""+Str(zjdx(j)+xrs(j))
Next j
List2.AddItem "录取分数线为"+Str(fsx)+ ",本次录取人数为:"+Str(s)
End Sub
Private Sub Form_Load()
'按成绩降序排列从数据库中读取学生相关信息,并显示在列表款List1中,代码略
End Sub

小李编写“合并区间”VB程序功能如下：窗体加载时，获取并存储合并前的区间数据，并显示在列表框List1中。单击“合并”按钮后，以区间左端点数值对区间进行升序排序，然后相邻区间的相交进行合并，最后在列表框List2上显示合并后的区间。程序运行如图所示：
             
实现上述功能的VB程序如下，在划线处填入合适的代码。
Dim a (1 To 20) As Integer '存储区间的左端点数值
Dim b (l To 20) As Integer '存储区间的右端点数值
Private Sub Form_Load()
'将区间左端点存入a,区间右端点存入如数组b,并在列表框List1显示,代码略
End Sub
Private Sub Command1_Cick()
Dim i As Integer, j As Integer
Dim curl As Integer, curR As Integer
For i=1 To n-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(i+1):b(j+1)=t
End If

Next j

Next i
curL=a(1):curR=b(1)
For i=2 To n
If a(i)<=curR Then
If curR < b(i) Then③______
Else
List2.AddItem "["+Str(curL)+ ","+Str(curR)+ "]"
curL =a(i):curR=b(i)
End If
Next i
List2.AddItem"["+Str(curL)+ ","+Str(curR)+ "]"
End Sub

编写一个VB程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框list1中显示，单击“排序”按钮Command1，在列表list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
1	4	5	……	8	6	2

 
实现该功能的VB程序如下，但加柱处代码有错，请改正。
Const n=10
Dim a(1 To n) As Integer
Private Sub Form_Load()
'随机产生n个不重复的整数存数组a,并在列表List1中显示.代码略.
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim imin1 As Integer, imin2 As Integer
For i =1 To n\2
imin1=i
imin2=i+1
If a(imin1)>a (min2) Then t =imin:imin1=imin2:imin2=t
For j=i+2 To n-i+1
If a(j)< a (imin1) Then
imin2=imin1:imin1=j
               '(1)___________
imin 2= j
End If
Next j
If i <> imin1 Then t =a(i):a(i)=a(imin1):a(imin1)=t
If imin2 = i Then          '(2)____________
If n-i+1<>imin2 Then
t=a(n-i+1):a(n-i+1)=a(imin2):a(imin2)=t
End If
Next i
'在列表框List1中显示排序后的数组a.代码略
End Sub