学进去

活动课上，n个学生要两两组队进行拔河比赛，要求每个小组总体重不超过 120 kg，小林想知道最多可以组成多少个队伍，并希望得到可行的组队方案。于是设计了如图所示的程序界面，在文本框Text1中输入n个学生的体重（数字之间用逗号隔开），单击“队伍”按钮Command1后，在标签Labell中显示最多可组队数量，同时在列表框List1中输出方案。实现上述功能的程序如下，请在横线处填入合适的代码。
                      
Dim n As Integer
Dim a(1 To 50) As Integer
Sub makedata(s As String)'该过程将输科的体重分别存入数组a中

Dim n As Long,x As Long,c As String, i As Integer

m=Len(s):n=0

For i=1 To m

c=Mid(s,i,1)
If c>="0" And c<="9" Then
x=（1）___________
Else
If x>0 Then n=n+1:a(n)=x
x=0
End If

Next i

n=n+1:a(n)=x

End Sub
Private Sub Command1_Click()

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

Dim cnt As Integer,st As Integer, ed As Integer

s=Text1.Text

Call makedata(s)'调用过程

For i=1 To n-1'实现降序排序

For j=n To i+1 Step -1
If（2）_______Then
a(j)=a(j)+a(j-1):a(j-l)=a(j)-a(j-l):（3）___________
End If
Next j

Next i

'下列程序段实现计算最多可组队伍数

cnt=0:st=1:ed=n

Do While st<ed

If a(st)+a(ecl)<=120 Then
List1. AddItem Str(a(st))+"和"+Str(a(ed))+"组队"
cnt=cnt+1
st=st+1
（4）_______
Else
st=st+1
End If

Loop

Label2. Caption="最多可以组"+Str(cnt)+"组队伍"

End Sub

编写“矩形面积”程序，实现如下功能：按一定比例随机生成a(1)至a(100)数组元素的值：0或1（0多1少）；将这100个数组元素，按行依次转换为10×10的二维阵列；当数组元素的值为0时显示成“□”，当数组元素的值为1时显示成“◆”，并在列表框Listl中输出。寻找阵列中，由“□”字符构造出的最大面积的矩形，在标签Labell中显示最大面积所占的单位数，程序运行界面如图所示。
                                               
实现上述功能的VB代码如下：
Dim a(1 To 100)As Integer .
Private Sub Commandl_Click()

Dim i As Integer,s As Integer,smax As Integer

'用于随机生成数据,并将阵列按规则在列表框中输出,该部分功能的代码略.

smax=0

For i=1 To 100

If a(i)=0 Then s=search(i)
If s>smax Then smax=s

Next i

Label 1.Caption="最大面积的矩形,占"+Str(smax)+"个单位"

End Sub
Function search(i As Integer)As Integer

Dim x As Integer,x1 As Integer,xend As Integer

Dim y As Integer,y1 As Integer

Dim s As Integer

x=(i-1)Mod 10+1'起始列号

y=(i-1)\10+1'起始行号

x1=x

y1=y

xend=10

search=0

Do While y1<=10

If a((y1-1)*10+x)=1 Then Exit Do'判断
x1=x
Do While xl<=xend
If a((y1-1)*10+x1)=1 Then
x1=x1-1'改错
Else
x1=x1+1
End If
Loop
y1=y1+1
s=(x1-x)*(_____)'填空
If s>search Then search=s

Loop

End Function
请回答下列问题：
（1）根据程序的运行界面，没有 Caption 属性的控件为____类（单选，填字母：

A．窗体/

B．命令按钮/

C．列表框/

D．标签）。

（2）程序代码中，去除“判断”处语句，_________（选填：会/不会）影响程序的结果。
（3）程序代码中，“改错”处的语句有误，应改为__________。
（4）程序代码中，将“填空”处的语句补充完整__________________。

珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法，他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答：其中共有多少个数恰好等于集合中另外两个（不同的）数之和，例如集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4（4=3+1，3=2+1）。将上述算法编写成程序，其功能如下：程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示，单击按钮Command1后，在标签Labell上输出结果，如图所示。
                         
（1）集合{1，2，3，4，5，6}中一共有__________个数等于集合中另外两个数之和。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n=12
Dim a(1 To n) As Integer
Dim flag(1 To 100) As Boolean
Private Sub Form_Load()

Dim i As Integer,t As Integer

For i=1 To 100

flag(i)=False

Next i

i=1

Do While i <=n

t=Int(Rnd * 100)+1
If Not flag(t) Then
_________
List1.AddItem Str(t)
flag(t)=True
i=i+1
End If

Loop

End Sub
Private Sub Command1_Click()

Dim i As Integer,j As Integer,ans As Integer

ans=0

For i=1 To n

For j=i+1 To n
If a(i)+a(j)<=100 Then
If ②__________Then
ans=ans+1
flag(a(i)+a(j))= False
End If
③_______
Next j

Next i

Label1.Caption="共有"+Str(ans)+"个数!"

End Sub

Base64编码是将待转换的字符串每3个字节分为一组转换为24位二进制，再将每6个二进制一组分为4组，转换为4个字节。对照下面的Base64编码表，根据每个字节的十进制值转换为对应的加密字符。

十进制	0	1	…	24	25	26	27	…	50	51	52	…	61	62	63
加密字符	A	B	…	Y	Z	a	b	…	y	z	0	…	9	+	-

 
现设计一个程序，在文本框Text1中输入字符串（长度为3的倍数），文本框Text2中输出对应的Base64加密字符，运行效果如图所示，实现上述功能的VB代码如下。

Private Sub Commandl_Click()

Dim s As String,txt As String

Dim s1 As String,t As String

Dim tmp As Integer,n As Integer

Dim i As Integer,j As Integer

Dim ans As String

txt="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopq

rstuvwxyz0123456789+-"

s1=Text1.Text

For i=1 To Len(s1)

n=
t=""
For j=1 To 8
t=n Mod 2 & t
___①____
Next j
s=s & t

Next i

For i=1 To Len(s)

'二进制编码转换为加密字符
tmp=_____②____
If i Mod 6=0 Then
ans=ans & Mid(txt,tmp+1,1)
tmp=0
End If

Next i

Text2.Text=ans

End Sub
（1）代码“Private Sub Command1_Click(  )”中的Cormmand1_Click是________。（单选，填字母：

A．属性名/

B．事件名/

C．事件过程/

D．方法名）

（2）在程序代码中，加框处代码有错，应改为__________________。
（3）将程序代码中划线处代码补充完整。
①______________________________
②______________________________
（4）根据图中数据所示，结合程序代码可知最终i的值是__________。

删除字符串中的非字母字符，并查找出ASCI码值最大的字母。程序功能如下：在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCI码值最大的字母，运行界面如图所示。
                       
（1）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s= Text1.Text
Text2.Text="  "
For i=1 To Len(s)
①______
If n>=65 And n<=90 Or n>=97 And n<=122 Then
result =result +: Mid(s, i, 1)
Text2.Text = result

End If

Next i
j=2
c=Mid(result, 1, 1)
Do: While j <=Len(result)
If Mid(result, j, 1)>c Then c= Mid(result, j, 1)
②______
Loop
Text3.Text =c
End Sub
（2）程序运行时，在文本框Text3中显示的“q”字符是Text2中的第_______个“q”。

Flash软件中，某按钮元件编辑界面如图所示。
       
若“文字”图层的“弹起”帧与“按下”帧内容相同，则测试影片时，以下说法不正确的是（   ）

A．将鼠标指针移到按钮上，看不到文字

B．使用鼠标点击按钮，可以看到文字和背景

C．由于“文字”图层的“指针经过”帧是空白关键帧，故该按钮元件没有响应区域

D．将声音添加到按钮元件的帧上，同步方式应当设置为“事件”

火柴算术游戏：给定n(n<=24)根火柴，恰好用尽n根火柴拼凑出A+B=C形式的算式，问一共有多少种可行方案。已知0～9每个数字所需的火柴根数如下表所示：

火柴数字
所需火柴根数	6	2	5	5	4	5	6	3	7	6

 
注意：其中等式A+B=C中的“+”“=”需要用去4根火柴；0+4=4与4+0=4算作一种方案。例如n=18，符合条件的算式共有5个：0+4=4，0+11=11，1+10=11，2+2=4，2+7=9。小明设计了一个程序，在Text1中输入火柴数量，单击“计算”按钮，在Label1中输出总的可行方案数，并在List1中输出所有可行的算式。程序运行界面如图所示。
                   
程序代码如下，加框处代码有误，请修改。
Dim s(0 To 9) As Integer.
Private Sub Commandl_Click()

Dim n As Integer, a As Integer, b As Integer, count As Integer

count=0

n=Val(Text1.Text)

For a=0 To 999 Step 1

For b=a To 999
If  Then     '①
List1.AddItem Str(a)+"+"+Str(b)+"="+Str(a+b)
count=count+1
End If
Next b

Next a

Label2.Caption="共"+Str(count)+"种方案"

End Sub
Function gs(x As Integer) As Integer

Dim tmp As Integer

tmp=0

If x=0 Then tmp=s(0)

Do While x>0

 '②
x=x\10

Loop

gs=tmp

End Function
Private Sub Form_Load()

s(0)=6:s(1)=2:s(2)=5:s(3)=5:s(4)=4

s(5)=5:s(6)=6:s(7)=3:s(8)=7:s(9)=6

End Sub
（1）①处应修改为____________________________。
（2）②处应修改为____________________________。

使用Flash软件编辑某按钮元件，部分界面如下图所示。
     
测试影片时，下列说法正确的是（   ）

A．该按钮不能响应鼠标事件

B．“文字”图层被隐藏，故鼠标指针经过按钮时该图层中的内容不显示

C．鼠标经过该按钮会播放背景音乐，音乐播放时间约0.1秒

D．指针经过与按下按钮时，“背景”图层的内容不会发生变化

用26个互不重复的ASCI字符作为密码本，根据英文字母在字母表中位置，替换为密码本该位置的字符。现编写将英文字母加密的VB程序，在文本框Text1中输入明文，单击“加密”按钮Command1，在文本框Text2、Text3中输出产生的密码本和密文。程序运行界面如下图所示。
                  
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()

Dim i As Integer, mw As String, jm As String

mw= Text1.Text: Text2.Text = my(26)

For i =1 To Len(mw)

c= Mid(mw, i, 1)
If c>="A" And c<="Z" Or c>="a"
And c<="2"Then
          '（1）_____________
jm =jm+ Mid(Text2.Text, t, 1)
Else
jm=jm +c
End If

Next i

Text3.Text =jm

End Sub
Function my(n As Integer)As String
Dim s As String, i As Integer, x As Integer
s ="ABCDEFGHIKLMNOPQRSTUVWXYZabc-defghijklmnopqrstuvwxyz0123456789"
i=1
Do While i <=n
t=63-i
x =Int(Rnd()*t+1)
         '（2）___________

s = Mid(s, 1, x－1)+ Mid(s, x+1, t－x)

i=i+1

Loop
End Function

地球上任意位置可以用纬度、经度描述，纬度区间是[-90，90]，经度区间是[-180，180]。如：浙江省绍兴市越城区鲁迅故里的纬度是29.9924099，经度为120.58552218。为表达位置间的邻近关系，引入了地理区域编码，某算法的核心思想如下：
•将地理上某点经纬度分别转换成二进制编码。例如，对于给定纬度lat（299924099），编码规则为：
•将区间[-90，90]二分为[-90，0），[0，90]，称为左、右区间，1at属于右区间[0，90]，标记为1；
•将区间[0，90]二分为[0，45），[45，90]，lat属于左区间[0，45），标记为0；
•重复上述过程，不断划分区间，lat属于左区间则记录0，属于右区间则记录1。直到达到指定编码长度 length（一般为5的倍数）为止类似地，可对经度lng（120.58552218进行二进制编码。
·Base32编码合成为地理区域字符串。以编码长度 length=10为例，如前述计算得到，鲁迅故里的纬度编码为10101 01010，经度编码为11010 10110。地理区域字符串生成规则：
•生成新串：奇数位放经度，偶数位放纬度，将两串编码组合：110110 11001 10011 01100；
•分组转换：将11100 11001 10011 01100每5位一组转成1个十进制整数，分别对应为28，25，19，12；
•Base32编码：使用数字0~9、小写字母（去掉字母a，i，1，o）这32个字符进行Base32编码（见下表）。十进制整数28，25，19，12对应的编码组合就是“wtmd”，即为该位置的地理区域字符串。
  
（1）规定编码长度 length为5，经度lng为120.125 082 58，则经度lng的二进制编码为__________。
（2）小沈根据上述描述，设计了一个“利奇马”台风中心途经经纬度转换为地理区域字符串的算法。该算法VB程序实现如下，请在划线处填入合适的代码
Const m=48, length=20＇纬度、经度二进制编码长度均为 length
Dim a(1 To 2.* m)As Double
Dim b(1 To m) As string
′读取m个时刻台风中心的经纬度数据并存入数组a,代码略＇a(1),a(2)为台风在时刻1的纬度、经度,a(3),a(4)为台风在时刻2的纬度和经度,......
′b(1)保存台风在时刻1的地理区域字符串,b(2)保存台风在时刻2的地理区域字符串,......
Private Sub Command1 _ Click()

′1at为纬度、1ng为经度，code为地理区域编码

Dim lat As double, Ing As Double, code As String

Dim strLat As String, strLng As String, s As String

Dim i As integer, j As Integer, n As Integer

Const base32="0123456789bcdefghjkmnpqrstuvwxyz"

For i=1 To m

lat=a(2*i-1)
Ing=a(2*i)
S=""
strLat= DoubleToBits (lat,—90,90)             ′纬度转换为二进制
编码
strLng=DoubleToBits(lng,—180,180)            ′经度转换为二进制
编码
For j=1 To length
s=①________                            ′将两串二进制编码
组合
Next j
n=0: code=""
For j=1 To Len(s)
②___________
If j Mod 5=0 Then
code= code+Mid(base32,n+1,1)
n=0
End If
Next j
b(i)=code
Next i
′输出地理区域编码,代码略
End sub
′函数 Doubletobits根据指定的区间[ lower，upper]，计算 value的二进制编码
Function Double ToBits( value As Double,lower As Double, upper As Double) As String

Dim ret As String, i As Integer, middle As Double

ret="":i=1: middle=0

Do While i<= length

middle=(upper+lower)/2

If③_________Then

lower=middle
ret=ret十"1"

Else

upper=middle
ret t+"0
End If
i=i+1
Loop
DoubleToBits=ret
End function