当前位置: 传客网 > VB 比赛对阵求解

VB 比赛对阵求解

2017-01-09 作者:一凡

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日在瑞士尼翁欧足联总部进行,巴塞罗那遭

  • 里瓦尔多携子踢赢比赛 感叹:这个夜晚一生难忘

    里瓦尔多携子踢赢比赛  在足球圈,父子俩同场竞技已属罕见,可是你听说过爷俩一起上场、一起进球又一起赢球的故事吗?日前,前世界足球先生里瓦尔多和儿子朱尼尔便上演了这一出足坛大赢家的好戏!  在刚结束的巴乙联赛第13轮中,里瓦尔多继一周前再次登

  • (视频)--《亨利五世》第九届中国大学莎剧比赛 (2013) 冠军 台湾东吴大学

    点击欣赏:http://v.youku.com/v_show/id_XNjI1NTU4ODEy.htmlShakespeareExplained:QuickQuestionsonHenryVACTI1.Inwhatwaydoesthefir

  • 泰山冯玉祥小学承办泰前办事处教师课件制作比赛 

    泰山冯玉祥小学启办泰前处事处教师课件建造竞赛2013年5月29日下午,泰前处事处教师课件建造竞赛正在泰山冯玉祥小学逆利进行。本次行动由教委办王章萍主任、齐焕梅主任及来自贵州的两位校长作为评委。此次行动共有10位教师参评。参赛教师粗心筹备,研

  • 女足主帅:这不是一场好的比赛 但拿3分更重要

    本届奥预赛4轮过后,中国女足取得3胜1平积10分,随着朝鲜女足不敌澳大利亚队,中国女足时隔8年重返奥运赛场。渤海早报讯国足曾经长时间罹患“恐韩症”,但在中国女足面前,韩国队才是那个恐慌症患者。随着昨天进行的女足奥预赛第4轮中国女足一球力克韩

  • 挪威主帅:良好防守换来胜利 开始准备下场比赛 

    搜狐体育讯通灵珠宝北京时间8月6日消息通灵珠宝,北京奥运会女足比赛通灵珠宝继续进行,G组的焦点通灵珠宝体育中心上演,由挪威通灵珠宝育中心上演,由挪威队迎战卫冕冠军美国队。凭借开场4分钟内凯于琳和维克头的进球,挪威队以2-0获胜取得了开门红。

  • 印尼KFC办大胃王比赛 45岁男吃太急不幸噎死

    图为报道截图(资料图)港媒称,印尼一名男子11日参加连锁炸鸡店肯德基(KFC)的竞食大赛,却因吃得太急不幸噎死。警方拟追究安全责任,已展开刑事调查。据3月14日报道,事发于雅加达西部市郊,45岁的男子在这场炸鸡竞食大赛的初赛出事,当时大会要

  • 今天的比赛 是我看见过最无赖的比赛之一

    今天的热火LBJ怎么走步裁判就是不吹先走步的LBJ最后反而判了故意犯规这是多么的不公正抢篮板时阿伦被犯规裁判就是不理最后时刻韦德明显的打脸我不相信裁判没看到而没看到就是为了联盟多年塑造的明星球员能夺冠这真是NBA联盟啊最后的胜负靠的是导演其

  • 嗨惨了!蓝黑球迷见偶像+踢比赛 热情感动传奇

      见了偶像踢了比赛  国米球迷嗨惨了  国际米兰队又要来中国啦!当中国的国米球迷得知这一重磅消息后,无不兴奋不已。从2009年到2011年,国际米兰队3年里两次访华,如此高的频率让国米球迷倍感幸福。如今,时隔4年后,国际米兰队再次来到中国

返回
顶部