登记序号 | 姓名 | 门牌号 | 登记日期 | 登记形式 | 是否绿码 |
20200101 | 王立 | 06-801 | 2020.01.29 | 门卫 | 是 |
20200102 | 张哲民 | 01-203 | 2020/02/12 | 上门排查 | 是 |
20200103 | 李圣达 | 11-206 | 2020/02/12 | 电话访问 | 否 |
… | … | … | … | … | … |
下列说法正确的是( )
在当前状态下,下列描述正确的是( )
Dim a(1 To 15) As Integer, num As Integer, s As String
'生成数组a,a(1)=73,a(2)=58, a(3)=62, a(4)=36…代码略
Private Sub Command1_Click()’对数组进行排序
num = 5: k = 1: f = 1
For i = 1 To num
k = k + i
For m = k - i To ①
For n = k - i To 2 * k - 2 - i - m
If ② Then t = a(n): a(n) = a(n + 1): a(n + 1) = t
Next n
Next m
f = f * (-1)
Next i
'将处理后的数组,以金字塔形显示,代码略
End Sub