相关试卷

Dim book(1 To 100) As String    '存储书籍的编号

Dim bname(1 To 100) As String    '存储书籍的书名

Dim pos(1 To 100) As String       '存储书籍所在阅览室的位置

Dim rroom(1 To 4) As String       '存储每个阅览室存放书籍的大类

Dim n As Integer'在架书籍总数

Private Sub Form_ Load ()

'在架书籍根据编号进行升序排序，书籍编号、书籍名称和所在阅览室的位置分别存放在数组book、bname 和pos中，在架书籍总数为n，代码略

    rroom(1)="ABCDEF"：rroom(2)="GHIJKN"

    rroom(3)="OPQRST"：rroom(4)="UVXZ"     '每个阅览室存放的书籍大类

End Sub

Private Sub Command1_Click ()

    Dim id As Integer，i As Integer，key1 As String，key2 As String，flag As Integer

    Dim start1 As Integer，end1 As Integer

    id = Val(Text1． Text)

    key1= Mid(rroom(id)，1，1)

    key2=

    start1 =check (key1，1)

    end1 = check (key2，-1)

    For i = start1 to

        List1．AddItem "编号："+gs(book(i))+"位置："+gs(pos(i))+"书名："+gs (bname(i))

    Next i

End Sub

Function check(key As String， flag As Integer) As Integer

    Dim left As Integer， right As Integer， m As Integer

    left=1：right=n

    Do While left <= right

        m= (left + right) \ 2

        If  Then

            right= m - 1

        Else

            left=m+1

        End If

    Loop

    check = left

End Function

Function gs(s As String) As String

    Dim i As Integer

    For i=1To15-Len(s)

        s=s+""

    Next i

    gs=S

End Function

Dim xh(0 To 100) As String ．

Dim cj(0 To 100) As Integer

Const num = 50

Private Sub Form_ Load ()

‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中，代码略

End Sub

Private Sub Com1_Click ()

    Dim i As Integer， m As Integer， n As Integer， k As Integer， a As Integ

    a = Val(Text1.Text)

    For i=1 To num-1

        k=

        If k<>i Then

            t=cj(k)：cj(k)=cj(i)：cj(i)=t

            s=xh(k)：xh(k)=xh(i)：xh(i)=s

        End If

    Next i

    m=a-1：n=a+1

    Do While cj(m) = cj(a)

        m=m-1

    Loop

    Do While cj(n) = cj(a)

        n=n+1

    Loop

    If m<>0 And  Then lq = m Else lq=n-1

    Label5.Caption = Str(lq)

    Label6.Caption = Str(cj(lq))

    List1.AddItem “字号”+“学号”+“成绩”

    For i=1 To lq

       List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))

    Next i

End Sub

Function imax(x As Integer， y As Integer) As Integer

    Dim i As Integer，j As Integer

    i=x

    For j=x+1 To y

        If  Then i=j

    Next j

    imax = i

End Function