学校准备开展班级篮球对抗赛，采用瑞士轮赛制。该赛制的规则是：(1)参数队伍数为偶数，如2n支队伍，编号为1~2n；(2)对阵规则：根据排名规则对队伍进行排序，两两对阵，由第1名对第2名、第3名对第4名……；(3)积分规则：每场比赛必须分出胜负，胜者积分增加1分，负者积分不变；(4)排名规则：积分高的队伍排名靠前，积分相同则编号较小的队伍排名靠前，每轮比赛结束后重新排名。

要求编写程序计算在R轮比赛后，积分排名第Q的队伍编号。为解决此问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取编号为1~2n的队伍实力值，编号存储在数组bh中，实力值存储在数组s1中(每支队伍的实力值两两不同，且每场比赛中实力值较高的总能获胜)。在文本框Text1中输人查询轮次R，在文本框Text2中输人待查询排名Q，单击“查询"按钮Command1后在文本框Text3中输出相应队伍的编号、排名等信息。程序运行效果如图所示。