学进去

用VB编写数据解压缩程序，其功能如下：在文本框Text1中字符只能是单个，而数字可以是多位，表示其前面的字符个数。如压缩数据“W3y4”表示有3个“W”和4个“y”，单击命令按钮“解压缩”后，其解压缩后的结果(即原始数据)“WWWyyyy”输出在文本框Text2中，运行界面如图所示。
     
实现上述功能的VB程序如下，请回答下列问题：
（1）由代码可知,命令按钮“解压缩”的对象名是____________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Comd1_Click()
Dim i As Integer, j As Integer,n As Integer
Dim ch As String, s As String, s1 As String
s = Text1.Text + "."
Text2.Text = ""
n = 0
s1 = Mid(s, 1, 1)
i = 2
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
n =___________
Else
For j = 1 To n
Text2.Text =_________
Next j
s1 = ch
______
End If
i = i + 1
Loop
End Sub
（3）若删除加框处代码，而压缩数据依然为“W3y4”，则解压缩后的数据为____________。

从原点（0，0）出发，顺时针旋转，经过平面上所有整点恰好一次，我们称之为螺旋折线，如图所示。对于整点（x，y），我们定义它到原点的距离是从原点到（x，y）的螺旋折线段的长度。例如：x=0，y=1，则螺旋折线段的长度为3；x=-2，y=-1，则螺旋折线段的长度为9。

现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：
（1）从原点到整点（4，0）螺旋折线段的长度为____________。
（2）请在画线处填入合适的代码。
Dim x As Integer,y As Integer    'x用于存储横坐标的值,y用于存储纵坐标的值
Private Sub Command1 _ Click()
Dim sum As Integer,m As Integer
Dim dx As Integer,dy As Integer
Dim i As Integer,t As Integer
x=Val(Text1. Text)
y =Val(Text2. Text)
dx = 0:dy=0
sum=0
m=1:t=-1
Do While not check(dx,dy)
For i=1 To m
If check(dx,dy)Then exit do    'Exit do表示退出Do循环
dx = dx+t
sum = sum+1
Next i
①_____
For i=1 To m
If check(dx,dy)Then Exit Do
②_____
sum = sum + 1
Next i
m=m+1
Loop
Label1. Caption= Str(sum)
End sub
Function check(xl As Integer,y1 As Integer)As Boolean
check = False
If x1=x And y1=yThen
③_____
End If
End function

某字符转置算法描述如下：
将字符串（均为大写字符）s依次转换为相对应的数值（字符A～Z对应数值1～26）；
·转换后的数值以K个数据为一段，将n个待处理的数据依次分割成若干段（最后一段不足部分用0来补充）；
每一段中K个数据与K*K转置矩阵进行乘法运算；
将乘法运算得到的每一个结果值除以26求余数，依次转换成相应字符（数值1～26对应字符A～Z），最后按原始字符串长度输出。
乘法运算规则如下：
第i个元素c(i)=第j个元素a(j)*转置矩阵第j行第i个元素b(t)的乘积之和（其中j=1，2…K）
例如：字符串s=PYTHON，区块大小K=4，的转置过程如下：

（1）根据算法描述，上述示例中，字符“N”的相乘结果（即图中（★）处）为________。
（2）请在划线处填入合适代码。

Private Sub Commandl_Click()
Dim a(1 To 100)As Integer ´存储字符串,长度不超过100个字符
Dim b(1 To 100)As Integer 存储转置矩阵,长度不超过 10*10
Dim c(1 To 100)As Long
Dim s As String, tmp As String
Dim k As Integer, t As Integer, i As Integer, j As Integer
Dim n As Integer, m As Integer, lens As Integer
s=Textl. Text                ´在 Textl 中输入原始字符串
k=Val(Text 2.Text)         ´在 Text 2 中输入区块大小K
Randomize
For i=1 To k^2
b(i)=Int(Rnd*9)＋1
tmp=tmp十Str(b(i))
If i Mod k=0 Then
List 2. AddItem tmp
tmp="" .
End If
Next i
lens=Len(s):n=lens
For i=1 To n
tmp=Mid(s,i,1)
①__________
Listl. AddItem Str(a(i))
Next i
Do While n Mod k＜＞0
n=n十1
a(n)=0
Listl. AddItem Str(a(n))
Loop
For i=1 To n
m=(i―1)Mod k+1
t=1
Forj= ②__________
c(i)=a(j) * b((m-1) * k+t)+c(i)
t=t＋1
Next j
Next i
For i=1 To n
List 3. AddItem Str(c(i))
Next i
s=″″
For i=1 To lens
③__________
s=s+Chr(t+64)}
Next i
Text 3.Text=s               ´在Text 3 中输出转置后的字符串
End Sub

Rain同学使用 Flash为自己制作了“生日快乐.fla”的电子贺卡。
（1）制作作品前，Rain同学首先在 Photoshop中制作了效果图，其编辑界面如下图所示：
   
以下操作不可以实现的是__________（单选，填字母）。
A.使用“文字工具”调整“英文祝福文字”图层文字的大小
B.使用“自由变换”命令调整“英文祝福文字”图层文字的大小
C.删除“图层1”图层
D.使用“渐变填充”工具填充“背景”图层
其中，main场景的制作脚本如下表所示：

场景：main	类别序号： 2	进入方式: 由“load”场景单击“Play”按钮进入
呈现方式: 1.“生日蛋糕”从天而降，耗时1秒 2.“蜡烛火焰”淡入，耗时0.5秒，之后在生日蜡烛上摇摆燃烧，不会停止。 3.“中文祝福”文字从左侧向右进入舞台，耗时1秒 4.“英文祝福”文字在左下方原地淡入，耗时1秒 5.“送祝福”按扭位于舞台左下方，单击该按钮打开同目录下的“支付宝.url”文件，同时退出动画播放。		呈现顺序说明: 1.一开始出现背景、“生日歌”音乐响起。 2.约0.5秒后，“生日蛋糕”从天而降。 3.“生日蛋糕”动画结束后，“蜡烛火焰”淡入显示 4.“蜡烛火焰”动画结束后依次接续出现“中文祝福”文字和“英文祝福”文字动画。 5.最后出现“送祝福”按钮，场景动画停止在最后一帧。

 
（2）根据制作脚本，下列描述正确的是_____________（多选，填字母）。
A.动画至少需要制作4秒钟时长
B.“蜡烛火焰”可通过影片剪辑元件来实现
C.动画开始2秒钟之后，“中文祝福”文字和“英文祝福”文字同时出现在画面上
D.main场景只会播放一遍，不会重复循环播放
Rain使用 Flash软件编辑“生日快乐.fa”文件main场景的部分界面如下图所示:
    
（3）为使“蜡烛火焰”图层的动画与制作脚本相符，可行的操作是_____________________。
（4）“生日歌”图层第1帧上添加了“生日歌.mp3”文件，其声音属性设置如下图所示:

测试影片，以下操作肯定不会改变原声音播放效果的是___________（单选，填字母）。
A.将动画文件的帧频修改为8 fps
B.在“生日歌”图层第40帧插入关键帧
C.删除“生日歌”图层的最后3帧
D.选中“生日歌”图层第56帧，直接添加帧脚本命令 stopAllSounds()；
（5）根据制作脚本，“送祝福”按钮上设置的动作脚本应为____________________。

数塔问题。一组数字构成如下图所示的数塔，从数塔顶层出发，每个结点可以选择移动至左下方或右下方结点，一直走到塔底为1条路径。求从数塔顶层到塔底各条路径上数字和的最大值。
解决此问题可采用自底至顶分析的方法。如下图所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f(3,1)=12+14；同理，f(3,2)=7+15，f(3,3)=26+15；再分析第2层，计算f(2,1)，f(2,2)；最后计算出第1层f(1,1)，即为所求结果。

（1）如上图所示数塔各条路径上的数字和的最大值为_________。
（2）编写VB程序，运行界面如下图所示，程序代码如下，请在划线处填入合适的代码，将程序补充完整。

Const n=5
Dim a(1 To n2) As Integer＇数组a存储数塔数据，存储结构如下图所示
Dim f(1 To n2) As Integer＇数组f存储从第i层第j个数到底层尾结点的最大数字之和，其存储结构与数组a一样
Private Sub Command1_ Click()
＇生成数塔，将数据存人a数组中，代码略
End sub
Private Sub Command Click ()

Dim i As Integer, j As Integer, k As Integer

For j=l To n

F((n-1)* n+ j)=____________

Next j

For i=______________

For j=l To i
k=(i-1)* n+ j
f(k)=_________________

Next j

Next i
Label1. Caption="路径上的数字和最大值为："+Str(f(1))
End sub
Function max(a As Integer, b As Integer)As Integer
If a> b Then max=a Else max=b
End Function

编写VB程序，实现在一个升序排列的数组中查找绝对值最小的元素。已知数组元素由正整数、负整数和0构成。例如：数组元素值为[-9，-5，-3，-1，2，5，7，17]，该数组中绝对值最小的元素为-1，程序运行时，产生n个元素，在列表框List1中显示，单击按钮Commandl，在标签Labell中输出绝对值最小的元素。运行结果如图所示。

实现上述功能的VB代码如下：
Const n=15
Dim a(1 To n)As Integer
Private Sub Form_Load()
产生n个由正整数、负整数和0构成的元素,存储在数组a中,并升序排列,代码略
End Sub
Private Sub Commandl_Click()

Dim i As Integer,j As Integer,m As Integer,absmin As Integer

flag= False: i=1:j=n

Do While 

m=(i+j)\2

If a(m)=0 Then

flag=True: absmin=a(m): Exit Do

Elself a(m) > 0 Then

If    ①    Then
j=m-1
Else

Fla=True

absmin=dmin(a(m-1),a(m))

End If
Else
If a(m+1)< 0 Then
i=m+1
Else
flag =True
    ②    
End If
End If
Loop
Label1.Caption="绝对值最小的元素是:"+Str(absmin)
End Sub
Function dmin(x As Integer,y As Integer)As Integer

If Abs(x)＜Abs(y)Then dmin=x Else dmin=y

End Function
（1）结合界面和代码，程序中没有使用到的控件是____________（单选，填字母：

A．」/

B．/c. /

C．A）

（2）程序加框处代码有错，请改正。
改正：________________________________
（3）请在划线处填入合适的代码。
①__________________________________
②__________________________________

在文本框Text1中输入一串字符串，单击“运行”按钮后，程序在列表框List1中输出该字符串的所有子串，程序运行界面如图所示，VB代码如下。
             
s=Text1. Text
For i=1 To Len(s)

For j=

List1. Additem

Next j

Next i
为实现上述功能，上述程序段两个方框处的语句分别为（   ）

A．①i To Len(s)           ②Mid(s,i,j-i+1)

B．①1 To Len(s)-i+1        ②Mid(s,j,i)

C．①i To Len(s)-i+1        ②Mid(s,i,j-i+1)

D．①1 To Len(s)           ②Mid(s,j,i)

小杨同学编写了一个VB程序用于学校里7选3选课情况统计。该程序主要功能有：1．点击“生成选课组合”按钮 Commandl，生成35种选课组合；2．点击“统计选课情况”按钮 Command2，统计出各种组合的选课人数；运行界面如下图。实现上述功能的VB程序如下，请回答下列问题：

（1）分析程序代码，如图里“选课组合”序号为30的组合名称为：___________________。
（2）请在划线处填入合适的代码。请回答下列问题：
Dim zh(1 To 16) As String, zrs As Integer
Dim xk(1 To1000) As String'存放同学的选课科目组合，已知学生人数少于1000人
Dim zh2(1 To 35) As String'存放35种选课科目组合
Dim rstj(1 To 35) As Integer'存放各种选课组合选课人数
Private Sub Form_ Load()
‘本过程从数据库中读取学生的选课情况数据，存放在数组xk中，学生的总人数存放在变量zrs。’代码略
End Sub
Private Sub Command l_ Click( )
Dim i As Integer,j As Integer, m As Integer, n As Integer, k As Integer
Dim km(1 To 7)As String
Listl.Clear
List1. AddIton“序号”+“” +“组合名称”
km(1)= “物”:km(2)= “化”:km(3)= “生”km(4)= “政”
km(5)= “史”km(6)= “地”:km(7)= “技”
m= 1
For i= 1 To 5
For k= i+1 To 6

zh(m)=km(i)+ km(k)

m= m+ 1

Next k
Next i
j= 3:n= 1:y= j
For i= 1 To m

For k= y To 7

zh2(n)=___________________________________
If n< = 9 Then
Listl. AddItem n &""&"         "& zh2(n)
Else
Listl. AddItem n &"  "& zh2(n)
End If
n= n+ 1

Next k

y= y+ 1

If y=8 Then

j= ___________________________  :y= j

    End If
Next i
End sub
Private Sub Command2_ Click( )
Dim i As Integer

List2. Clear

List2. Additon"组合名称"+""+"选课人数”

For i= 1 To 35

rstj(i)=_____________________________

List2 AddItem zh2(i)+"         "+ Str (rstj (i))
Next i
End Sub
Function tj (zhmc As String) As Integer'统计某种选课组合的选课人数
Dim i As Integer, rs As Integer
rs= 0
For i= I To zrs

If zhmc = xk(i) Then

rs= rs+ 1

End If

Next i
tj= rs
End Function

小李编写一个统计学生选考科目的 VB 程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科占有效人数的百分率求出各科排名｡程序运行时，单击“显示”按钮 Command1，学生选课数据显示在列表框 List1 中，各科编号及对应科目名称显示在列表框 List2 中，单击“统计”按钮 Command2，选课结果按各科百分率由高到低显示在列表框 List3 中，程序运行结果如图所示｡

现上述功能的 VB 程序如下，请回答下列问题：
（1）学生选课的编码数据存储在数据表中，其字段名为__________________｡
（2）请在划线处填入合适的代码｡
Dim ach(1 To 500) As String  '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer  '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB. Connection, rs As New
ADODB. Recordset, sql As String
cn. Open "provider=Microsoft. Jet. oledb. 4. 0;Data Source =" + App. Path + " \students. mdb"
rs. Open "select ∗ from choose", cn
Do While Not rs. EOF
n = n + 1 : ach(n) = rs. Fields("subject") : rs. MoveNext
Loop
rs. Close: cn. Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i: bname(i) = Mid(km, (i - 1) ∗2 + 1, 2)
List2. AddItem Str (bno (i)) + " - - -" +bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) =True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) = ①_________
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7  '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then ②__________
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If ③_________Then
per = Int(bnum(j) ∗ 100 / num ∗ 100)/ 100
List3. AddItem Str(bno(j)) + "---" +bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略，若学生选科代码有效，函数返回 True，否则返回 False
End Function

某村庄修建一条由东向西的主干线。该干线要穿过n个村庄。每个村庄都要有一条支路沿最短路经（或南或北）与主干线相连。如果给定n个村庄的位置，即它们的x坐标（东西向）和y坐标（南北向），确定主干线的最优位置，使各村庄到主干线之间的支路长度和最小。要求编写个“计算最小长度和”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮后，程序计算最小长度和，结果显示在标签Label3中。例如：五个点的坐标为（1，2），（2，2），（1，3），（3，–2），（3，3）输入格式如图所示。

（1）“计算”按钮的对象名为_______。
（2）下面加框处代码有错误，请改正：_________
（3）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1 Click _()
Dim y(100) As Integer       'y在数组存放纵坐标
Dim max As Integer,min As Integer,sum As Integer
'max,min为纵坐标最值,sum为路径和
Dim zb As String,num As String,n As Integer
'zb为文本框中内容,num为单个数值,n为坐标对数
zb = Textl. Text:n = 1:j = 1
For i = To Len(zb)
①______
If s = 〞,〞Then
If  Then  y(n)= Val(num):n = n+1
num =〞〞
j = j + 1
EIse
num = num + s
End If
Next i
max = y(1):min = y(1)
For i = 2 To n-1 Step 2
If max < y(i)Then max = y(i)
If min > y(i)Then min = y(i)
Next i
smin=(n-1)*(max-min)
For i = min To max            '枚举,将主干线设置在不同位置,计算距离和
sum = 0
For k = 1 To n-1 Step 2
If y(k)> i Then
sum = sum+y(k)-i
Else
②______
End If
Next k
If smin > sum Then smin = sum      '求距离和的最小值
Next i
Labe13. Caption = Str(smin)
End sub
（4）运行该程序，若文本框Text1中的内容是“1，2，2，2，1，3，3，–2，3，3”，单击计算按钮，标签Label3显示的内容是_______。