VB 比赛对阵求解

vb

Dim team As Variant, match As Integer, str As String

''****
''**有(ABCDEF)六队进行比赛,其中A不能与BCD比,C不能与BDF比,求解比赛对阵情况。
''**
Private Sub Command1_Click()
str = ""
For I = 0 To 5
  For j = I + 1 To 5
    match = 1
    If InStr("BCD", team(j)) <> 0 And team(I) = "A" Then match = 0
    If InStr("BDF", team(j)) <> 0 And team(I) = "C" Then match = 0
    If InStr("BCD", team(I)) <> 0 And team(j) = "A" Then match = 0
    If InStr("BDF", team(I)) <> 0 And team(j) = "C" Then match = 0
    If match = 1 Then str = str + "(" + team(I) + "," + team(j) + ");"
  Next
  str = str & vbCrLf
Next
MsgBox str
End Sub

Private Sub Form_Load()
team = Array("A", "B", "C", "D", "E", "F")

End Sub
运行结果:
(A,E);(A,F);
(B,D);(B,E);(B,F);
(C,E);
(D,E);(D,F);
(E,F);



相关推荐

  • 广西靖西边民举行另类比赛 比拼糯米外观和滋味   评委正在对糯米和糯谷的外观进行打分。 蒋雪林 摄  中新网百色12月20日电(小编蒋雪林)地处中越边境的广西靖西市,在冬至节即将来临之际,今年秋季种植香糯获得丰收的农民20日举办冬至香糯节有机香糯食味大赛,比拼糯米的外观和滋味。一等奖获
  • 跳绳比赛    林弘道 跳绳比赛林弘道“耶!”“我赢喽!”“唉,真可惜!”一个宁静的傍晚,孩子们的叫声打破了花园里的宁静,究竟是怎么回事?原来,我们举行了一场跳绳比赛。第一场是缪尚言,林于惠和蔡沁桢比赛,我帮林于惠计数。只见缪尚言摩拳擦掌,林于惠跃跃欲试,蔡沁桢也
  • 傅博点评:德国控制了比赛 场面沉闷精彩度不足 高清图:世界杯德国淘汰法国胡梅尔斯头槌破门  7月5日消息,今天凌晨巴西世界杯四分之一决赛将开战,德国对阵法国,德国凭借胡梅尔斯的进球最终1-0击败法国,晋级四强。中国国奥队主帅傅博在点评比赛时表示,德国控制了比赛,但比赛场面沉闷,精彩度不
  • 自闭高中生带狗参加跑步比赛 组委会为其改规则    北京时间9月12日,据外媒报道,近日在美国举行的一项跑步比赛中,一位患有自闭症的高中生选手带狗一起参加比赛,引起了争议。不过赛事组委会为其对比赛规则进行调整,凸显了人性关怀的一面。  泰勒-唐纳德是来自于美国爱荷华州一所学校
  • 辽粤战哈德森险主宰比赛 周鹏绝杀找回感觉 广州日报记者黄维广东宏远在辽宁队拿到赛点的情况下,绝处逢生!他们在客场艰难地以97比96战胜了辽宁队,把这个系列赛带回广东,总比分变成了1比2。接下来,如果能拿下本周五在东莞的那场比赛,双方将再度回到本溪决战。广东宏远曾创造过很多奇迹,这次
  • 跆拳道比赛  马博豪 跆拳道比赛今天,我们跆拳道去长沙打比赛。我爸爸开车把我送到神龙公园,咦,我们道馆的人怎么还没有来呢?我十分好奇不一会儿他们来了。我们开始出发了,我们在车子里跑来跑去打打闹闹还在车子里分享美食。我们到了一半,看到了天骄烟酒店,用的是我们天骄道
  • 小女孩光屁屁撒尿比赛 打女孩板子的家法图 家法室趴下褪裤挨打   小女孩光屁屁撒尿比赛打女孩板子的家法图家法室趴下褪裤挨打  是一体的,也可说是两者互相扶持而生。这也是为什么在这绿意不常见的大地上,精灵特别少的原因。  菲丝站在迷雾之森的入口眺望着。每次看到小女孩光屁屁撒尿比赛打女孩板子的家法图家法室
  • 本周Raw未播出的比赛 下周SD将取消录制 环球摔迷网3月23日新闻,转载请注明出处。1.本周Raw直播结束之后还进行理论一场比赛,结果约翰·塞纳(JohnCena)搭档HHH,战胜了CM朋克(CMPunk)和希莫斯(Sheamus)。原定这场比赛是一场六人组队赛,两外两名选手还包括
  • 都匀中小学生举办朗诵比赛 诵读中华经典美文   “北国风光、千里冰封,万里雪飘……俱往矣,数风流人物,还看今朝。”10月12日上午,都匀第四完全小学1400多名师生一起诵读经典美文。  连日来,都匀市各中小学相继举办中华经典美文朗诵比赛活动。比赛辅之以音乐、舞蹈,将经典美文诵读活动升
  • 山西阳泉市一县政协副主席天价看CBA比赛  郭爱东图片滥觞:山西省阳泉市盂县当局网  京华时报讯(记者张剑)近日,大量网帖举报称,山西省阳泉市盂县政协副主席郭爱东花2.8万余元购买VIP套票,到太原市观看CBA比赛,质疑其“天价”票的滥觞。对此,郭爱东回应称,票系朋友赠送,他不清楚票
  • 毅腾本周六迎来主场比赛 记者探营训练场 昨日下午,浙江毅腾轻纺城球队在轻纺城体育中心训练场进行首堂训练,队员们背着“降落伞”冲刺跑步,以加强腰腹力量。球员分组对抗训练守门员作反应训练3月19日下午,浙江毅腾轻纺城足球队将迎来落户绍兴后在主场的首场比赛,2016赛季甲级联赛第二轮对
  • 欧冠1 8决赛对阵揭晓 巴萨遇米兰 皇马对决曼联 欧冠1/8决赛抽签:米兰大战巴萨  [相关]欧冠足彩:米兰难胜皇马..|小贝7年后首战红魔曼联..  V>  2012/13赛季欧洲足球冠军联赛八分之一决赛对阵抽签仪式20日在瑞士尼翁欧足联总部进行,巴塞罗那遭

你的评论

就没有什么想说的吗?

最新博客

关于我们 免责声明 移动版

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X