学进去

某会所采用会员制度，对会员消费实行积分奖励，利用VB编写一个程序，实现的功能：在文本框Text1、Text2中输入一个积分的范围，在列表框List2中显示该范围内的会员编号和对应的积分。多个会员可能有相同的积分，先用对分查找法找到该范围内的最小积分编号的下标，再循环输出该范围的会员编号情况。程序运行界面如图所示。
               
程序代码如下，为实现以上功能，请在划线处填写合适的代码：
Dim jf(800)As Integer,hyh(800)As String,n As Integer
Dim n As Integer '表示会员的总人数
Private Sub Form Load()

'从数据库中读取会员编号和积分，并按积分值从小到大排序，显示在列表框List1中

For i=l To n

List1. AddItem hyh(i)+"  "+Str(jf(i))

Next i

End Sub
Private Sub Command1_Click()

Dim i As Integer,j As Integer,m As Integer,k1 As Integer,k2 As Integer

k1=Val(Text1. Text):k2= Val(Text2. Text)

If k1> k2 Then t=k1:k1=k2:k2=t

If k1>jf(n)Or k2 jf(1)Then

List2. AddItem "没有找到该范围的数据!"
Text3. Text="0":Exit Sub

End If

i=l

j=n

Do While i<=j

m=Int((i+j)/2)
If jf(m)>k1 Then
j=m-1
Elself jf(m)<k1 Then
i=m+1
Else
If ______ Then
j=m-1
Else
p=m
Exit Do
End If
End IF

Loop

If i>j Then p=______

k=0

Do While ______ And p<=n

List2. AddItem hyh(p)+"  "+ Str(jf(p))
______
p=p+1

Loop

Text3. Text=Str(k)

End sub

在文本框Text1中输入n，生成一个n*n的矩阵。矩阵各元素的值均为0或1，第1个元素的值随机生成，垂直和水平方向相邻元素值均不同。程序运行的界面及实现该过程的VB程序段如下所示：
               
n= Val(Text1. Text)
m=  ①  
s="  "
For i=1 Ton*n
s=s+Str(m)
m=1-m
If i Mod n=0 Then

List1. AddItem s

s="  "

If    ②   Then m=1-m

End If
Next i
实现该功能，则上述程序段划线处的表达式分别为（   ）。

A．①Int(Rnd)     ②n Mod 2=0

B．①Int(Rnd)     ②n Mod 2=1

C．①Int(Rnd+0.5) ②n Mod 2=0

D．①Int(Rnd+0.5) ②n Mod 2=1

某种纸牌游戏，三人一起玩一副牌，每人17张。5张及以上的连续单牌（不分花色）称为顺子，顺子最大到K，如“A，2，3，5，6”是长度为6的顺子。编写程序，判断游戏刚开始时某玩家有没有顺子，最长的顺子是几张。
（1）实现上述功能的VB代码如下，但加框处代码有误，请改正。
（2）请将划线处的代码补充完整。
Dim a(n) As Integer
Private Sub Command1_Click()
Dim max As Integer, count As Integer
Dim i As Integer, j As Integer
count=0:max=0
i=1
Do While i<=n-1
                  '①_____________
j=i+1
Do While j<=n
If               Then              '②___________
j=j+1
count=count+1

Else If a(j)=a(j-1) Then

j=j+1

Else

Exit Do

End If

Loop
i= ③_____
If count>max Then max =count
Loop
If max<5 Then s ="无顺子"Else s= "最长顺子长度:"+Str(max)
End Sub
Private Sub Form_Load()
'获取17张牌的数值(J、Q、K、A分别对应11、12、13、1),升序存储在数组a中
End Sub

小王用Flash软件制作动画作品，时间轴编辑界面如下图所示。
                 
下列说法不正确的是（   ）。

A．声音的同步方式设置为“数据流”和“事件”，效果是一样的

B．清除“按钮”图层第1帧，不会影响动画播放效果

C．在“男孩”图层第26帧插入空白关键帧，不会影响动画效果

D．交换男孩和配乐图层的位置，不会影响动画效果

使用Access软件创建的“无人机”数据表，其设计视图的部分界面如图所示。
                              
下列说法正确的是（   ）。

A．可以修改“序号”字段的值

B．可以再建一个“自动编号”类型的字段

C．插入新记录时，可以在“优惠”字段输入文字“是”

D．可以在品牌和价格之间插入一个数字类型的新字段

在一个文本当中，每行包含一个字符串。现使用如下规则对其压缩：压缩时，查找每个字符串的公共前缀，然后使用公共前缀的长度和字符串的剩余部分（以空格隔开）表示该字符串，每个占用一个字节空间。图a所示为该压缩规则示意图。

小明为此编写了VB程序，功能如下：运行List1中显示原字符串内容，单击“压缩”按钮Command1，在列表框List2中显示压缩后字符串，并表示压缩后容量。程序运行界面如图b所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim word(3000) As String, pre(3000) As String
Const n=2000
Private Sub Form_Load()
'该过程的作用从数据库读取n个单词,按字典顺序存储在数组word中,并在Label1输出单词
'代码略
End Sub
Private Sub Command1_Click()
Dim conp As Integer  '存储压缩后的容量
Dim k As Integer, m As Integer   'k存储公共前缀的长度
Dim f As Boolean
conp=0
For i=1 To n

k=0

If i=1 Then f=False Else f= True

              '①__________
Do While k<m And f=True
  Then         '②________
k=k+1

Else

f=False

End If

Loop

pre(i)=CStr(k)+ ""+Mid((word(i),k+1, Len(word(i))

'Cstr()函数能够将数字类型的值转换为字符类型的值,并去掉前导空格.

List2, AddItem pre(i)

                  '③________

Next i

Label2.Caption="压缩后容量为"+Str(conp)+ "字节"

End Sub

有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。
                  
实现上述功能的VB代码如下，但加框处有错，请改正。
Const n=10
Dim a (1 To n) As Integer
Private Sub Command1_Click()
Dim t As Integer, i As Integer, j As Integer, m As Integer
Dim tmp As Integer
'读取一组正整数，存储在数组a中，并显示在列表框List1，代码略
i=1
Do While i<=n
For j=n To i+1 Step-1

If a(j) Mod 2=1 Then

  If   Then               '(1)___________

tmp =a(j):a(j)=a(j-1):a(j-1)=tmp
t=t+1
End If
End If
Next j
If    Then m=m+1        '(2)__________
i=i+1
Loop
For i=1 to m
List2.AddItem Str(a(i))
Next i
List2.AddItem "一共交换了"& t & "次"
End Sub

小明制作了一个名为“端午.fla”的Flash动画，如下图所示。回答以下问题：
（1）如下图所示，小王在“声音”图层添加了背景音乐，想实现声音与动画同步，应在声音的“同步”选项中选择________（填：事件/开始/数据流）类型；若声音同步设置成功，已知“按钮”图层第60帧上设置了帧命令“stop( );”，音乐播放时间是________秒。
              
（2）如下图所示，名称为“水波”的元件类型是________（填：图形/按钮/影片剪辑）。如上图所示，在“水波动画”图层的第5帧上放置了如下图所示的“水波”元件实例。测试影片时，会不会出现水面波动的动画效果？________
            
（3）“play”按钮的编辑界面如下图所示：
              
下面说法正确的是________（多选，填字母）。

A．在“按下”帧中不能直接添加声音效果

B．将“树叶”图层隐藏后，测试影片时将看不见该图层中的内容

C．测试影片时，鼠标移到该按钮实例上时，不会出现小手形状

D．测试影片时，鼠标移到该按钮实例上时，按钮外观可能会有变化

（4）如下图所示，为实现单击“play”按钮，动画跳转到“main”场景第1帧继续播放，小王需要在“play”按钮添加动作命令________________________。
            

某数字加密算法描述如下：将某位数字与其位置相加得到num，num除以11的余数即为编号，若余数为0编号为11，从密码表中找出与编号对应的加密字符完成加密。密码表如下：

编号	1	2	3	4	5	6	7	8	9	10	11
加密字符	V	i	s	u	a	l	B	A	S	I	C

 
小明按照上述方法，设计了一个数字加密的VB程序，功能如下：单击“加密”按钮Command1，程序依次将文本框Text1中每个数字进行加密，并将加密后的密文在文本框Text2中输出。下表显示了数字“2018”的加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	1
加密字符	s	i	u	V

 
程序运行效果如图所示。
                                
（1）设计如图所示的程序界面，除窗体外，至少还要使用__________个类（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click（）
Dim s As String，s1 As String，s2 As String，num As Integer
s =“VisualBASIC”.
S1 = Text1.Text
s2=“ ”
i=1
Do While①_____
num = Val（Mid（s1， i， 1））+i
num = num Mod 11
If num=0 Then num =11
s2=②______
i= i+1
Loop
Text2.Text =s2
End Sub
（3）若密文是“uAV”，则明文是__________。

星期天，小杰来到动物园游玩，园内共有N个景点，每个景点都有一个标号，标号为1至N。现在只知道每个景点有一条路连接下一个景点。小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2，如下表所示。

景点号	1	2	3	4	5
下一景点号	2	4	5	5	2

 
则他可以从2号景点出发，最多可以游玩2号4号、5号三个景点，程序运行界面如图所示。
                           
程序代码如下：
Private Sub Command1_Click()

Dim a(1 To 100) As Integer,d(1 To 100)As Integer

'数组a存放下一景点号

Dim jd As String,m As String,c As Integer,i As Integer

Dim s As Integer,p As Integer,k As Integer, ans As Integer

jd=Text1.Text+","

s=0:c=0

For i=1 To Len(jd)

m=Mid(jd,i,1)
If m<>"," Then
s=s*10+Val(m)
Else
c=c+1:a(c)=s:s=0   '含义
End If

Next i

For i=1 To c

d(i)=0

Next

ans=0:k=0

For i=1 Toc   '枚举游览起点

If d(i)=0 Then
p=i
Do While d(p)=0
k=k+1:d(p)=k:p=p+1   '改错
Loop
y=_________   '填空
If y>ans Then ans=y
k=0
End If

Next i

Text2.Text=Str(ans)

End Sub
（1）若要实现显示“景点连接情况：”的Textl在程序运行时默认为空，则需要将Text1的____属性设置为空。
（2）若有7个景点，且每个景点的连接情况为6，3，7，2，7，5，4，则小杰最多可以游玩的景点数是_____________。
（3）程序代码中，“含义”处的“a(c)=s”语句代表的含义是__________________。
（4）程序代码中，“改错”处的语句有误，应改为________________。
（5）程序代码中，将“填空”处的语句补充完整_________________。