学进去

对一段字符（仅包含大小写字母和数字）加密，加密规则为：①字母和数字都往后循环顺移3位，如“a”变为“d”，“y”变为“b”；“0”变为“3”，“7”变为“0”②加密后字母在前，数字在后③字母按逆序排列，数字按顺序排列，如输入明文“ab7Z8x3”，这密文为“aCed4016”。
小王利用VB程序实现这一加密功能，程序界面和代码如下所示：
（1）根据程序代码分析，“加密”按钮的名称是_____________________________。
（2）根据加密规则，明文“9G78fbY5”，则密文为__________________________。
（3）请在画线处填入合适的代码：

Private Sub Com_ jm_ Click()
Dim x As String, ch As String, cl As String
Dim sl As String, s2 As String, s As String
Dim i As Integer, n As Integer, y As Integer
x= Text1. Text
n=Len(x)
For i=1 To n
ch= Mid(x, i, 1)
If ch >= "0" And ch <= "9" Then
①_____________
s2=s2 & y
Elself ch >="a" And ch<="z" Then
y=(Asc(ch)-Asc("a")+3)Mod 26
②_______________
s1=c1+s1
Else
y=(Asc(ch)- Asc("A")+3) Mod 26
c2=Chr(Asc("A")+y)
s1=c2+s1
End If
Next i
③________
Text2 Text=s
End sub

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function

修改VB程序，使其具有下列功能：在左边列表框List1中选择一个车牌，单击“判断”按钮Command1，根据该车牌最后一位数字进行限行判断（若为偶数则奇数日期限行，奇数则偶数日期限行），并将判断结果显示在文本框Text2中。
         
Private Sub①______  '单击List1,将列表框中选中的内容显示在Text1中
Text1.Text= List1.List(List1.ListIndex)  '将当前选中的List1的内容显示在Text1中
Text2.Text="  "
End Sub
Private Sub Command1_Click()
Dim i As Integer,cp As String,c As String
cp= Text1.Text

For i =②_____To 4 Step－1

с= Mid(cp, i, 1)
If c>="0"And c<="9" Then   '若c是数字字符,则记录该数字
If Val(c)mod 2-1 Then
Text2.Text ="偶数日期限行"
Else
Text2:Text ="奇数日期限行"
③______
Exit For   '退出循环
End If
Next i
End Sub

小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1 显示原文内容，Text2中输入查找内容，Text3 中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)

s = Mid(Text1.Text, i, Len(Text2.Text))

If s = Text2.Text Then

result = result + Text3.Text
count = count + 1
pos = pos + Str(count)   ①_____________
i = i + Len(Text2.Text)
Else
result = result + Text2.Text  ②_______________
i = i + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub

VB中标准函数功能的实现是在VB内部通过相应的程序代码完成的。为了探索Val函数功能实现的原理，编写了以下程序。已知Val(“12”)的结果为12，即Val函数的功能是将字符型转换成数值型；而Val(“12AB”)和 Val(“12AB34”)的结果也为12，即在转换的时候如果遇到非数字符号就停止转换。编写模拟转换过程的时候，为简化程序，只考虑正整数的转换。运行程序时，在文本框Text1中输入字符串，点击命令按钮Command1后在文本框Text2中显示结果，运行结果如图所示。

VB程序如下，请回答以下问题：

Private Sub Command1_Click()

    Dim s As String, ch As String

    Dim i As Integer

    Dim r As Integer, result As Integer

    Dim flag As Boolean

s = Text1.Text

i = 1:result = 0:flag = True

    Do While

        ch = Mid(s, i, 1)

        r =      ①     

        If r > 9 Or r < 0 Then

            flag = False

        Else

                ②      

        End If

        i = i + 1

    Loop

    Text2.Text = Str(result)

End Sub

（1）窗体对象的Caption属性值为：_____________________
（2）加框处语句有错，请改正：______________________
（3）请将①处的语句补充完整：______________________
（4）请将②处的语句补充完整：______________________

罗马数字是阿拉伯数字传人之前使用的一种数码。罗马数字采用七个罗马字母作数字，即I(1)、X(10)、C(100)、M(1000)、V(5)、L(50)、D(500)。记数的方法如下：
①相同的数字连写，所表示的数等于这些数字相加得到的数，如Ⅲ=3；
②小的数字在大的数字的右边，所表示的数等于这些数字相加得到的数，如Ⅷ=8、Ⅻ=12；
③小的数字（限于Ⅰ、X和C）在大的数字的左边，所表示的数等于大数减小数得到的数,如Ⅳ=4、Ⅸ=9。
王老师设计了一个将罗马数字转换成阿拉伯数字的程序,实现该功能的程序代码如下：
Private Sub Command1_Click()

Dim a (1 To 10) As String

Dim b (1 To 10) As Integer

Dim x As String,c As Integer,j As Integer

x=Text1.Text

j=Len(x)

b(0)=0

c=0

For i=1 To j

a(i)=Mid(x,j-i+1,1)
b(i)=zh(a(i))
If______________Then
c=c-b(i)
Else
c=c+b(i)
End If

Next i

Label2.Caption="结果:"+Str(c)

End Sub
Function zh (x As String) As Integer

s="IVXLCDM"

zh=1

For i=1 To 7

IfThen
Exit For
Else lf_____Then
zh=zh * 5
Else
zh=zh * 2
End If

Next i

End Function

（1）程序界面如图所示，程序中共包含____个对象。
（2）加框处代码有错，应改为__________________。
（3）为完善程序，在空格处填入合适的代码。
（4）罗马数字MCMLXXX转换成阿拉伯数字为_____。

使用GoldWave软件打开某音频文件，操作界面如图所示。
         
当前状态下执行下列操作后，说法正确的是（   ）

A．执行“删除”操作，按原参数保存，文件存储容量变为原来的1/4

B．执行“选定部分另存为”操作存储为立体声音频，其他参数不变，则新文件的存储容量变为原来的1/4

C．插入20秒静音后，按原参数保存文件，其存储容量不变

D．执行“剪裁”操作，按原参数保存文件，其存储容量变为原来的1/8

筷子颜色配对问题。现有不同颜色的筷子若干（筷子的颜色用数字编号1～10表示），颜色相同的筷子才能组成一双，其中有几根筷子是落单的，现要求找出落单筷子的颜色以及能够配对的筷子数量。编写程序解决该问题，程序运行时，在文本框Text1中依次输入筷子的颜色编号（数据都用逗号分隔开，并以逗号结尾），单击“查找”按钮，在列表框List1中输出落单筷子的颜色编号，在标签Label1中显示能够配对的筷子数量，运行界面如图所示。
                                
实现题中所述功能的 VB程序如下：
Private Sub Cmd1_Click()

Dim a(1 To 10)As Integer

'数组a存放不同颜色筷子的数量,各元素默认初值为0

Dim s As String,ch As String

Dim n As Integer,i As Integer,h As Integer

__________:n=0

For i=1 To Len(s)

If Mid(s,i,1)="," Then
h=Val(ch)
____________
ch=""
Else
ch=ch+Mid(s,i,1)
End If

Next i

For i=1 To 10

If______________Then
Listl.Addltem〞落单筷子的颜色为〞+Str(i)
End If
n=

Next i

Label1.Caption=〞能够配对的筷子有〞+Str(n)+〞双〞

End Sub
请回答下列问题：
（1）由程序代码可知，命令按钮“查找”的对象名是______________。
（2）加框处程序代码有错，应改为______________。
（3）请在划线处填入合适代码。
（4）运行该程序，若文本框Text1中输入的内容是“2，5，2，3，4，3，6，3，”，单击“查找”按钮，标签Label1中显示的内容是__________。

在Flash中，编辑库中的元件及将元件应用到场景舞台的部分界面如图所示，下列说法正确的是（   ）
   

A．修改元件内容，测试影片时场景1中的该元件实例不会相应改变

B．修改元件编辑界面中的帧频，不影响该动画中其他场景的帧频大小

C．场景1“文字”图层只有一帧，测试影片时不会呈现动画效果

D．场景1“文字”图层第1帧含α标志，表示该帧包含帧命令

生成0～9组成的10位随机密码，无重复数字出现的VB程序段如下：
s1="0123456789"
n=Len(s1)
For i=1 To 10
                                             

n=n-1

Next i
Text1.Text=s
方框中的代码由以下三部分组成：
s=s+Mid(s1,x,1)
x=Int(Rnd*n)+1
s1=Mid(s1,1,x-1)+Mid(s1,x+1,n-x)
代码顺序正确的是（   ）

A．①②③

B．③②①

C．②①③

D．②③①