修改时间:2024-07-31 浏览次数:221 类型:期末考试
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
试题篮