If jianzhu6=12 Then
        Call 升级民房3()
    End If
    If jianzhu6=13 Then
        Call 升级民房4()
    End If
    If jianzhu6=14 Then
        Call 升级民房5()
    End If
    If jianzhu6=15 Then
        Call 升级民房6()
    End If
    If jianzhu6=16 Then
        Call 升级民房7()
    End If
    Goto 开始
End Sub
Sub 建筑7()
    If jianzhu7=1Then
        Call 升级主城()
    End If
    If jianzhu7=2Then
        Call 升级军机处()
    End If
    If jianzhu7=3 Then
        Call 升级兵营()
    End If
    If jianzhu7=4 Then
        Call 升级校场()
    End If
    If jianzhu7=5 Then
        Call 升级商店()
    End If
    If jianzhu7=6 Then
        Call 升级市场()
    End If
    If jianzhu7=7 Then
        Call 升级粮仓()
    End If
    If jianzhu7=8 Then
        Call 升级银库()
    End If
    If jianzhu7=9 Then
        Call 升级帐房()
    End If
    If jianzhu7=10 Then
        Call 升级民房1()
    End If
    If jianzhu7=11 Then
        Call 升级民房2()
    End If
    If jianzhu7=12 Then
        Call 升级民房3()
    End If
    If jianzhu7=13 Then
        Call 升级民房4()
    End If
    If jianzhu7=14 Then
        Call 升级民房5()
    End If
    If jianzhu7=15 Then
        Call 升级民房6()
    End If
    If jianzhu7=16 Then
        Call 升级民房7()
    End If
    Goto 开始
End Sub
Sub 建筑8()
    If jianzhu8=1Then
        Call 升级主城()
    End If
    If jianzhu8=2Then
        Call 升级军机处()
    End If
    If jianzhu8=3 Then
        Call 升级兵营()
    End If
    If jianzhu8=4 Then
        Call 升级校场()
    End If
    If jianzhu8=5 Then
        Call 升级商店()
    End If
    If jianzhu8=6 Then
        Call 升级市场()
    End If
    If jianzhu8=7 Then
        Call 升级粮仓()
    End If
    If jianzhu8=8 Then
        Call 升级银库()
    End If
    If jianzhu8=9 Then
        Call 升级帐房()
    End If
    If jianzhu8=10 Then
        Call 升级民房1()
    End If
    If jianzhu8=11 Then