Private Sub com _ Click( )

Dim i As Integer, a As String, p As string

s=Text1.Text

n=Len (s)

p= “”

i=1

f =True

Do While i < = n

    If Mid(s, i, 1)= “0” Then

        p= p + “A”

        i=i+1

    ElseIf Mid(s, i+1, 1)= “1” Then

        p = p + “T”

              ①     

    ElseIf Mid(s, i+2, 1) = “1” Then

        p = p+ “G”

        i=i+3

    ElseIf Mid(s,      ②     , 1)= “0” Then

        p = p + “C”

        i=1+3

    Else

        f=False

        i=i+n

    End If

Loop

If f Then Label1. Caption Else. Caption = “接收有误”

End Sub

① ② 

Const n= 12

Dim a(1 To n) As Integer, mc(1 To n) As Integer

Private Sub Command1_Click()

'n个用户的ID依次为1到n，读取n个用户的积分和排名数据分别存储到数组a和数组mc中，并在列表框Listl中显示ID、积分、积分排名，代码略

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer, k As Integer, d As Integer

    Dim s As String, flag As Boolean, x As Integer, y As Integer

    Dim p(1To20) As Integer    '存储输入的ID和积分增值，每次输入不超过10组

    For i=1 To 20

        p(i)=0

    Next i

    s= Text1.Text

    d=0：k=0

    For i= 1 To Len(s)

        If Mid(s, i, 1)= "，" Then

            If flag Then

                x = Val(Mid(s, i-d, d))

                For j= 1 To k Step 2

                    If p(j) =x Then Exit For

                Next j

                If j> k Then

                    p(j)=x：k=k+2

                End If

            Else

                y = Val(Mid(s, i-d, d))

                p(i+1)=p(j+ 1)+y

            End If

            flag= Not flag： d= 0

        Else

        End If

    Next i

    For i=1 To k\2

        x=p(2*i-1)：y=p(2*i)

        me(x)= 1

        For j= 1 Ton

            If j<> x Then

                If a(j)<a(x)+y And a(j)>=a(x) Then

            End If

            If a(j)> a(x) +y Then mc(x)= m(x)+ 1

        Next j

    Next i

    '在列表框List2中显示ID，积分、排名，代码略

End Sub