相关试卷

Const n = 150

Const row = 10： Const col = 20

Const acty = 3： Const actx= 4

Dim a(1 To n) As Strire， b(1 To n) As String， c(1 To n) As String

Dim e(1 To row * col) As String    ‘存储学生姓名

Private Sub Command1_Click( )

    num = f(Text1. Text， Text2. Text)

    If num <> 0 Then

        l= (num-1) \col + 1

       '在list1中用实心图形标记查找到的位置，代码略

        Label2. Caption =“你的位置在：第“+ Str(1) +”排，第“+ Str(r) + ”列”

    Else

         Label2. Caption =“没有找到你的座位！”

    End If

End Sub

Private Sub Form _Load( )

    Dim lastn As Integer， m As Integer ，flag As Boolean，k As Integer

    '读取班级、学生姓名、参加节目编号到数组a、b、c中，代码略

    flag = True： lastn = 1

    Do While flag

        For j=n To lastn+1 Step -1

            If c(j)<c(j-1) Then

                t= a(j)： a(j) = a(j-1)： a(j- 1) = t

                t=b(j)： b(j) = b(j-1)： b(j- 1) = t

                t=c(j)： c(j) = c(j- 1)： c(j-1)= t

                lastn = j：flag = True

            End If

        Next j

    Loop

     ‘座位初始化，并且在list1中显示，代码略

    m=1：k=13

    For i=1 To row

        For j=1 To col

            If  Then

                e((i-1) *col+j)=b(m)：m=m+1

            ElseIf k <= n Then

                e((i - 1) * col + j) = b(k)：k=k+1

            End If

        Next j

    Next i

End Sub

Function f(a As String，b As String) As Integer

    ‘函数f根据输入的班级、姓名返回在数组e中的位置，如果没有找到则返回数字0

End Function

Dim bm(1 To 100) As Integer, k As Integer

Dim xm(1 To 100) As String, n As Integer

Private Sub Form Load( )

    ‘本过程从数据库中读入指定数据到数组bm、xm中，并在List1中显示

    ‘获取k，表示不同学校数： n表示报名记录总数代码略

End Sub

Private Sub Command1_Click( )

    Dim m As Integer

    i = k：j=n

    Do While i <=j

        m=

        If judge(m) <> 0 Then

            j=m-1

            ans = m： start = judge (m)

        Else

            i=m+1

        End If

    Loop

    For i=1 To ans

        List2.AddItem

    Next i

    Label1.Caption =“共选出志愿者”+ CStr(ans) + "人”

End Sub

Function judge(m As Integer) As Integer    ‘judge函数用于返回区间起始位置

    Dim f(1 To 11) As Integer      'f(i)表示i学校是否包含在区间

    Dim t As Integer

    judge = 0

    For i=1 To n-m+ 1     ‘枚举以i为起点的区间内是否包含各个学校

        t=0

        For j=i To i+m-1

            If  Then t=t+ 1

            f(bm(j)) = 1

        Next j

        If t=k Then  ： Exit Function

        For j=1 To k

            f(j) = 0

        Next j

    Next i

End Function