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