| 序号 | 采集时间 | 层 | 区域 | 编号 | 车位占用情况 | 属性 |
| 1 | 2021-5-1 08: 30: 00 | B1 | A | 1 | 空 | 内部 |
| 2 | 2021-5-1 08: 30: 00 | B2 | A | 2 | 占用 | 开放 |
| 3 | 2021-5-1 08:30: 00 | B1 | B | 10 | 占用 | 关闭 |
| 4 | 2021-5-1 08: 35:00 | B1 | B | 1 | 空 | 开放 |
| …… | …… | …… | …… | …… | …… | …… |
下列说法正确的是（ ）
For k=100 To 500
x=k
z =0
Do While x> 0
Loop
If z=k Then
List1.AddItem Str(k)
End If
Next k
上述程序段中方框处可选语句为：
①x=x\10 ②y=xMod10
③z=z+10*y ④z=10*z+y
则(1)(2)(3)处语句依次为（ ）
Dim a(1 To 9) As String， k As Integer
Dim s1 As String， s2 As String
s1= Text1.Text：s2 = Text2.Text
For i = 1 To Len(s1)
k = Val(Mid(s1， i，1))
a(k) = Mid(s2， i， 1)
Next i
For i=1 To 9
s=a(i)+s
Next i
Label1.Caption = s
在文本框Text1中输入“52463”，文本框Text2中输入“happy”， 执行该程序段后，标签Label1中显示的内容是（ ）
数组元素f(1)到f (8)赋初值为0，代码略
Key = Int(Rnd*7)*2+3
i =1：j=8：c=0
Key = Val(Text1.Text)
Do While i<=j
m=(i+j)\ 2
f(m) = 1
If Key <= a(m) Then j =m-1 Else i=m+1
For n=1 To 8
c=c+f(n)
Next n
数组元素a(1)到a(8)的值依次为“3，7，9，10，15，15，15，20”，执行该程序段后，则（ ）
|
场景名：片头 |
类别序号： 1 |
进入方式：启动动画自动播放 |
|
呈现方式： ①种子图层的“种子”在从完全透明到完全显示的过程中逐渐变成一朵“五色花。 ②文字图层依次出现“五”、“五色”“五色花’文字效果，并保留到本场景动画结束。 ③“播放”按钮位于舞台左侧靠下位置，单击该按钮，停止本场景音乐并跳转到“故事”场景第1帧暂停。 |
呈现顺序： ①一开始呈现背景、种子、云朵和音乐。 ②1秒后“文字”图层出现“五”2秒后出现“五色”、3秒后出现“五色花” ③最后出现“播放”按钮，背景音乐不停止。 |
|
请回答下列问题：
②固定两队字母中最小字母在各队中的位置；
③将两队其余字母按从小到大的顺序排在各自最小字母的两边。大写字母队列先从最小字母右边排队，排到最后位置再从最小字母左边开始排，直到第一个位置为止。同理，小写字母队列先从左边开始排队，再排右边。过程如图1所示：
编写VB程序，实现字母排队功能：在文本框Text1中输入待排字母串后，单击“排队”按钮Comand1，在列表框List1中显示排队结果。程序运行界面如图2所示。
请回答下列问题：
Dim flag(1 To 52) As Boolean 'flag数组初值为False
Private Sub Command1_Click()
Dim su As String， sd As String， ch As String 'su，sd分别存储大小写字母队
Dim i As Integer， n As Integer
Dim ku As Integer， kd As Integer
s = Text1.Text：n =Len(s)
For i=1 To n
ch =
If ch >="A" And ch <="Z" Then su= su+ ch
If ch>="a"Andch<="z"Thensd=sd+ch
Next i
ku = search(su， 0)
kd = search(sd， 6
su=“”：sd=“”
For i=1 To 52
If flag(i) And i<=26 Then su=su+Chr(i+64)
If flag(i) And i>26 Then 
Next i
List1.AddItem sort(su，ku， 1)
List1.AddItem sort(sd，kd， -1)
End Sub
Function search(s As String， k As Integer) As Integer '确定字母队列并查找最小元素位置
Min = Mid(s，1， 1)
flag(Asc(Min) - 64 - k) = True
mini = 1
For i=2 To Len(s)
ch = Mid(s， i，1)
If ch<Min Then mini=i：Min=ch
Next i
search = mini
End Function
Function sort(s As String， wz As Integer， k As Integer) As String '排队
nx = Len(s)
sort = Mid(s， 1，1)
i=2
nc=1
Do While nc <= 2
For j=wz+k To nx^((1 +k) \ 2) Step k
If k= 1 Then
sort = sort + Mid(s，i，1)
Else
sort = Mid(s， i， 1) + sort
End If
i=i+1
Next j
nc=nc+1
Loop
End Function
赋分具体步骤为：
第一步，将卷面得分按人数比例划分为20个赋分区间，得出每个区间卷面得分的上限、下限。(说明：每个赋分等级人数=总人数×每个赋分等级比例(结果四舍五入取整) ；当卷面得分相同但人数超出该等级人数时，则减少下一档的人数。)
第二步，对每个区间的卷面得分进行等比例转换成赋分，公式为：
其中，s2、s1为卷面得分区间的上限和下限，s为待转换卷面得分；t2、t1为赋分区间的上限和下限，t为卷面得分等比例转换后的赋分。
第三步，将转换后的赋分t取整(小数部分四舍五入)。
编写VB程序，实现成绩赋分功能：在列表框List1中显示某市所有学生的考号，原始成绩(无0分，降序排列)和名次(同分同名)，单击“成绩赋分”按钮Command1后，赋分成绩按从高到低的顺序显示在列表框List2中。程序界面如图2所示。
Const n = 18000 '总人数
Dim kh(1 To n) As String '学生考号
Dim cj(1 To n) As Single '原始成绩
Dim cj2(1 To n) As Integer '赋分成绩
Dim mc(1 To n) As Integer '原始成绩的排名
Dim pro(1 To 20)As Single '每个等级的人数比例
Dim t(1 To 40) As Integer '每个等级赋分区间的上限和下限
Dim s(1 To 40) As Single '每个等级卷面得分的上限和下限
Dim num(1 To 20) As Integer
Private Sub Form_ Load()
'从数据库中读取数据，将考号、原始成绩分别存储在数组kh和数组cj中
'将每个等级的比例存入数组pro中
'将每个赋分区间的上限、下限存入数组t中(如t(1)、t(2) 分别存储等级1的赋分上限100， 下限97)
'将数组cj降序排列，计算出名次存入数组mc中，并显示在List1中，代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean， k As Integer， i As Integer
num(1) = Int(pro(1) * n + 0.5)
For i=2 To 20
num(i) =
Next i
num(20) = n
k=1：flag=True：i=1
Do While i<=n '划定每个等级相应的卷面得分的上限和下限
If me(i) <num(k) Then
If flag Then s(2 * k- 1) = cj(i)
flag = False
i=i+1
ElseIf Then
s(2 * k) = cj(i)
flag = True
i=i+1
Else
flag = True
k=k+1
End If
Loop
If s(2*k)=0 Then s(2*k)=cj(n)
'根据比例转换公式计算每个考生的赋分结果，存入数组cj2中，代码略。
For i= 1To n
List2.AddItem kh(i) +”” + Str(cj(i)) +”” + Str(cj2(i))
Next i
End Sub
