Private Sub Command1_Click( )

    Dim x As Integer, s As Long, y As Integer, i As Integer

    For i=0 To 9999

        s=590000+i

        If     ①     Then

            x=s mod 10

            y=(s Mod 100)\10

            If     ②    Then

                List1.AddItem    ③  

            End If

        End If

    Next i

End Sub

①，②，③

A．x=y    B．Str(s)   C．Str(i)    D．s Mod 12=0 and s Mod 38=0

Const m = 9         'm 表示座位有9排

Const n = 10        'n 表示每排的座位数为10

Dim r As Integer         'r 表示当次输入的购票人数

Dim a(1 to m * n) As Integer   'a 数组存放每个座位的等级值

Dim b(1 to m * n + 1) As Integer      'b 数组保存当前各座位选座情况，选中为1，未选为 0

Private Sub Form_Load()

'从第1排开始，按座位编号从小到大顺序逐排读取座位等级值并依次存入数组a

'同上述顺序，读取选座状态存入数组元素b(1)至b(m*n)中，输出当前选座状态。代码略

End Sub

Function getsum(i As Integer, j As Integer) As Integer

    '从第i排第j列开始，计算第i排中满足r个观众就座的连续空位等级值之和。

    '若无法找到足够的连续空位时，则返回-1

    Dim p As Integer, sum As Integer, k As Integer

    sum = 0

    p = j: k = (i - 1) * n + p

    Do While p <= j + r - 1 And b(k) = 0

        sum =

        p = p + 1: k = k + 1

    Loop

    If p = j + r Then getsum = sum Else getsum = -1

End Function

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, s As String, max As Integer

    Dim t As Integer, newi As Integer, newj As Integer, pos As Integer

    r = Val(Text1.Text)

    max = 0

    For i = 1 To m

        For j = 1 To n - r + 1

            If max < t Then max = t: newi = i: newj = j

        Next j

    Next i

    If max = 0 Then

        Label3.Caption = "请自主选位" Else

        pos = (newi - 1) * n + newj

        For i =

            b(i) = 1

        Next i

        Label3.Caption = "推荐座位编号：" & newi & "排" & newj & "-" & newj + r - 1 & "座"

    End If

End Sub

Function pout(x As Integer) As String     ‘函数功能用于数字的对齐输出

Dim i As Integer, j As Integer, y As String

y= Str(x) : j = Len(y)

For i = 1 To 5 - j

 y = y +“”

Next i

End Function

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

Dim i As Integer, j As Integer, m As Integer, n As Integer

Dim ts As String, t As Integer, v As Integer

n = Val (Text1.Text) :v = 1 : t = 1      ‘t用于每次填数方向上的位置修正

For m = n To 1 Step -2

 For i = 1 To m      ‘向右方向填数

 a(t + i - 1)=v

 Next i

 t = t + n - 1

 For i = 1 To m-1     ‘向下方向填数

a(m + t) = v

v=v+1

 Next i

 t = t - n

 For i = m - 1 To 1 Step -1     ‘向左方向填数

a(t + i) = v

v=v+1

 Next i

 For i = m - 2 To 1 Step -1     ‘向上方向填数

a(t - n + 1) = v

v=v+1

t = t-n

 Next i

 t=t+2

 Next m

 For i = 1 To n     ‘以图a方式在List1中输出数组数据

 ts =“”

For j =To i * n

 ts = ts + pout(a(j))

Next j

List1.AddItem ts

 Next i

 End Sub