窗体文件、工程文件及其扩展名 知识点题库

Const max = 1000

Dim n As Integer                        '存放学生人数

Dim xh(1 To max) As String              '数组xh存放学生的学籍号

Dim xm(1 To max) As String              '数组xm存放学生的姓名

Dim bj(1 To max) As Integer             '数组bj存放学生的班级

Dim fs(0 To max) As Single              '数组fs存储学生的原始分数

Dim ffdj(0 To max) As String            '数组ffdj存储学生的赋分等级

Private Sub Command1_Click()

    Dim p(1 To 8) As Single, dj(1 To 8) As String

    Dim i As Integer, j As Integer, pos As Integer, last As Integer

    Dim st As String, it As Integer, sit As Single

    ‘从数据库中读入学生学号、姓名、班级和原始成绩，分别存入数组xh、xm、bj和fz中，代码略

    p(1) = 0.03: p(2) = 0.07: p(3) = 0.16: p(4) = 0.24：p(5) = 0.24: p(6) = 0.16: p(7) = 0.07: p(8) = 0.03：dj(1) = "A": dj(2) = "B+": dj(3) = "B": dj(4) = "C+"：dj(5) = "C": dj(6) = "D+": dj(7) = "D": dj(8) = "E"

    For i = 2 To 8

                        '计算到该等级累计所占比例

    Next i

    For i = 1 To n - 1

        For j = 1 To n - i

            If  Then

                st = xh(j): xh(j) = xh(j + 1): xh(j + 1) = st

                st = xm(j): xm(j) = xm(j + 1): xm(j + 1) = st

                it = bj(j): bj(j) = bj(j + 1): bj(j + 1) = it

                sit = fs(j): fs(j) = fs(j + 1): fs(j + 1) = sit

            End If

        Next j

    Next i

    pos = 1

    For i = 1 To 8

        last =            '人数四舍五入取整

        Do While fs(last + 1) = fs(last)

            last = last + 1                     '处理切分位置的同分数学生

        Loop

        Do While

            ffdj(pos) = dj(i)

            pos = pos + 1

        Loop

    Next i

    For i = 1 To n

        List2.AddItem xh(i) +" "+xm(i) +" "+Str(bj(i)) +" "+ Str(fs(i)) +" "+ ffdj(i)

    Next i

End Sub

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