def mapcolor(adjamat):     #自定义填色函数部分

    signcolor=[0]*N

    color = 1

    signcolor[0] = 1

    area = 1

    while area < N:

        while color <= 4:

            if area >= N:

                break

            k = 0

            # 以下代码判断区域是否重色

            while (k < area) and (signcolor[k] * adjamat[area][k] != color):

                k += 1

            if (k < area):

                color += 1

            else:

                   #给该区域上色

                area += 1

                color = 1

    if color > 4:    # 没有找到合适的颜色，需要进行回溯

        color = signcolor[area] + 1

    return signcolor

#主程序部分

city = {1: '海游街道', 2: '海润街道', 3: '沙柳街道', 4: '亭旁镇', 5: '珠岙镇', 6: '横渡镇', 7: '蛇蟠乡', 8: '健跳镇', 9: '花桥镇', 10: '浦坝港镇'}

N =

colordict = {1: '红色', 2: '橙色', 3: '黄色', 4: '青色'}

adjamat = [[0 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0]

          [1 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 0]

           [1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0]

           [1 , 1 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , 0]

           [1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0]

           [0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 1]

           [0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0]

           [0 , 1 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0]

           [0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 1]

           [0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0]]

signcolor1 = mapcolor(adjamat)

print(signcolor1)

# zip 函数可以将多个序列，如列表、元组、字典、集合压缩成一个对象。

for key1,key2 in zip(city,signcolor1):     #将相对应的区域与地图颜色输出

          print(city[key1] + ":" + colordict[key2])

Const n=9, m=15

Dim x(1 To n)As Integer       ‘x(i)存储第i项消费记录的人均消费金额

Dim a(1 To n)As String        ‘a(i)存储第i项消费记录的参与人

Private Sub Form_Load( )

    ‘读取所有消费记录，存入数组x和a中，并显示在列表框List 1中

     ‘代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, k As Integer, p As Integer

    Dim c As Integer, w As Integer, v As Integer

    Dim b(1 To m)As Integer        ‘保存应还款数据

    For i= 1 To m

        b(i)=0

    Next i

    For i=1 To n      ‘根据消费记录计算应还款

        k=Len(a(i))

        p=Val(Mid(a(i), 1, 1))

        b(p)=b(p)-(k–1)*x(i)

        For j=2 To k

            p=Val(Mid(a(i), j, 1))

        Next j

    Next i

    c=0

    For i=1 To m

        List 2. AddItem Str(i)+“号”＋Str(b(i))

        If b(i)>0 Then c=c+1

    Next i

    i=1 : j=1               ‘根据应还款数据计算转账明细

    Do While  

        Do While b(i)<=0

            i=i+1

        Loop

    Do While b(j)>=0

        j=j+1

    Loop：

        If w>0 Then  Else v =b(i)

        b(i)=b(i)-v：b(j)=b(j)+v

        List 3. AddItem Str(i)+“号->”＋Str(j)+“号   ”+Str(v)

        If w<=0 Then c=c–1

    Loop

End Sub