s=0：t=0
For i=1 To 5
If a(i)-a(i+1)<t Then
t=a(i)-a(i+l)
s=s+1
End If
Next i
数组元素a(1)到a(6)的值依次为“4，5，3，2，7，5”，执行该程序段后，变量s的值为（ ）
s= "abcde"
m=0
L=Len(s) ：n=L
Do While n>0
m=(m+3) Mod n+1
s=Mid(s，1，m-1)+ Mid(s，m+1，L) +Mid(s，m，1)
n= n-1
Loop
执行该程序段后，变量s的值是（ ）
(提示：SUMIF(条件区域，求和条件，实际求和区域)，第二个求和条件参数作用在第一个条件区域里。SUMIF(A2：A13，“>50"，B2：B13)表示A2：A13区域大于50的对应实际求和区域B2：B13数据求和)
s= "47923123"
f=True ： n=Len(s) ： m=0
For i=2 To n
If Mid(s， i， 1)> >Mid(s， i - 1， 1) Then
Else
End If
Next i
Print "升序段个数有"十Str(m)
上述程序段中方框处可选语句为：
①f= True
②f= False
③If f Then m=m+1
则(1)(2)(3)处语句依次为（ ）
Private Sub Command1_ Click( )
Dim a(0 To 4) As Integer， b(1 To 4) As Integer
Dim key As String， s As String， n As Integer， k As Integer， i As Integer， j As Integer， sum As Integer
key="ABCDEFGHJKIMNC)PQRSTUVWXYZabdefghijklmnopqrstuvwxyz0123456789！ @# $ %&．*"
Randomize
n= Val(Text1.Text)
a(0)=0：a(1)=26 ：a(2)=52 ：a(3)=62：a(4)=70 '记录每种符号的结束位置
s= ""
For i=1 To 4
b(i) =0 'b数组记录某类符号是否使用
Next i
sum=4 '当前未使用字符类型，初始为4种
Do While Len(s)+sum< n
k= '随机选择一个密码序号
s=s+ Mid(key， k， 1)
i= 1
Do While 
i=i+ 1
Loop
b(i)= 1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出现元素密码，保证4种符号均有出现
For i=1 To sum
j=Int(Rnd*4)十1
Do While ( )
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd * (a(j)-a(j- 1)))+a(j-1)+1
s=s+Mid(key， k， 1)
Next i
Text2.Text=s
End Sub
| 序号 | 图书编号 | 书名 | 作者 | 入库日期 | 借阅状态 |
| 27 | BK001 113 | 安娜·卡列尼娜 | 列夫·托尔斯泰 | 2014-07-31 | 是 |
| 28 | BK003839 | 城南旧事 | 林海英 | 2016-08-01 | 否 |
| 29 | BK002028 | 时间简史 | 霍金 | 2020-08-02 | 是 |
| … | … | … | … | … | … |
下列关于该图书管理信息系统的描述，正确的是（ ）
VIP申请
团体组卷申请
