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