left=1:right=Len(s):flag =True
Do While left< right And flag
If Mid(s,left,1)=Mid(s,right,1)Then
left=left+1:right=right-1
Else
（ ）
End If
Loop
If flag Then Label1. Caption= “回文”Else Label 1. Caption= “不是回文”
括号中的代码由以下三部分组成：
①If Mid(s,left,1)<> “”And Mid(s,right,1)<> “”Then flag=False
②If Mid(s,left,1)= “”Then left=left+1
③If Mid(s,right,1)= “”Then right=right-1
代码顺序正确的是（ ）。
请回答下列问题：
下列说法正确的是（多选，填字母：A . 此错误是因为脚本缺少了鼠标事件/B . 此错误是因为gotoAndPlay(“end, 1)中的数字1没有加双引号/C . 脚本gotoAndPlay(“end,1);被添加在第60帧关键帧上/D . 将脚本修改为“on(press)(gotoAndStop(“end”, 1);Play()｝”可以实现跳转到“end”场景第1帧并播放）
⑴除数乘以系数1、2、4、8…，得到相应的倍数，倍数不能超过被除数；
⑵被除数减去不超过被除数的最大倍数，得到新的被除数，以及该最大倍数对应的系数；
⑶重复步骤⑵直到被除数小于除数为止；
⑷将步骤⑵中得到的系数相加即为整除的结果。例如：计算100整除9（除数9的系数及倍数见下表）：
|
系数 |
1 |
2 |
4 |
8 |
16 |
|
倍数 |
9 |
18 |
36 |
72 |
超过被除数100 |
计算过程如下：
①100-72=28，系数为8；②28-18=10，系数为2；
③10-9=1，系数为1；④1<9计算结束，整除的结果为：8+2+1=11。
程序运行界面如图所示。
Dims As Long, s1 As Long, t As Long, k As Long
Dim zc As Long, i As Integer
Dim a(1 To 50)As Long '数组a用于存储除数的倍数
s=Val(Text1.Text) '被除数
s1=s
t=Val(Text2.Text） '除数
k=1：i=0
Do While k*t<=s1
i=i+1
a(i)=k*t
Loop
zc=0
Do While 
'改错
If s1>=a(i) Then
s1=s1-a(i)
zc=zc+
End If
i=i-1
Loop
Label3.Caption=Str(s)+ “整除”+Str(t)+”的结果为：”+
End Sub
a）在任意位置删除一个字符
b）在任意位置插入一个字符
需注意：在执行插入和删除字符过程中，单词Word 1中字符的先后顺序不允许改变。
如单词“integer”转换为单词“tiger”需要4步，分别是删除字符i、n、e和插入字符i。
现编写VB程序，根据上述删除、插入字符的规则统计单词Word 1转换成单词Word 2所需的最小步数功能如下：在Text 1和Text 2中输入两个单词，单击“计算”按钮，在Label3中显示Text 1中单词转换为Text 2中单词需要的最小步数。
程序运行界面如图所示。
Dim k1 As Integer '单词Word 1查找的起始位置
Private Sub Command1_Click()
Dim c As String, w1 As String, w2 As String
Dim i As Integer, k2 As Integer, pos As Integer, steps As Integer
w1 = Text1. Text
w2 = Text2. Text
k1 = 1
k2 = Len(w2)
For i = 1 To Len(w2)
c = Mid(w2,i,1)
If pos <= Len(w1) And pos <> 0 Then
w1 = Mid(w1,1,pos-1)+Mid(w1,pos+1,Len(w1)-pos)
k1 = pos
k2 = k2-1
End If
Next i
steps =
Label3. Caption = “单词变换最小步数为：”+Str(steps)+ “步！”
End Sub
Function check(t As String, s As String)As Integer
'该函数用于返回字符t在字符串s中的位置
Dim m As Integer, n As Integer
m = 0
For n = To Len(s)
If t = Mid(s,n,1)Then
m = n
Exit For
End If
Next n
check = m
End Function
