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