vb程序程设计-趣味游戏

1、多媒体软件设计技术考试扌艮告书学院班级学号姓名指导老师设计下棋趣味游戏我设计了一个下棋的小游戏，在运行时先点击谁先下棋，当电脑或者游戏者下棋时使自己的一方的三个子在一条线上， 则赢了；若对 方的棋子下在一条线上那么你就输了；若九个空都下完还没有任何一方 的棋子在一条线上看，那么是和棋！输、赢、或者和棋最后在标签框中 显示出来！1 界面(1)设计界面尺iE%机先r%虫豐1r-S-J-J W 鼻刮 (2)运行界面2说明九个井字格为Commandl的控件数组，谁先是OPtionButtord的控件数组，图片所在位置是PiCtUrel，显示文字的地方时Lablel重置 按钮为Command2。3 属性

2、窗体CaPti On下棋游戏StartuPPOSiti On2屏幕中心backcolor& H8000000B &标签框CaPti On空autosizetrue命令框数组9个（注意摆齐）backcolor&H8000000F &CaPti onCaPtiOnl (i )i=0、1、2、3、4、5、6、7、8命令框CaPti on重置选择框1CaPti on计算机先选择框2CaPti on您先图片框backcolor&H8000000F &图形框数组4个ShaPe3-Circlebackcolor&H80000005&4 源代码宣告通用变量匸F FOmnl CCodein三el Al Inte

3、ger宣告通用寰重DI m 三um At IiLteDim aC%3 吐 CflmmaiidBut tonPrLrate S-Ub COniinalldL.CIiCk (Index Xs IRteger) O k = IndeX + 1If aCn). Tag = 0 Then alji). Caption = ” aCn). Tag = T 2u兀 I = siim + 1 Call JriyiarL1 ixian.If Labell.Capti on = 11 ThgCall XUall 周：扉坏用cuanEnd If询甬FEnd IfEnd SUbPrIVQte SUb COninlem

4、d2_ClickO Call Form.Activate EnForm ActivatePriVat e SUb FOrrTt_Xctivale QSon 二 OPICtTIrel. Enabled 二 TrueFOri = ITo9z 循坏a(i). CaPti on = ftfl aCil T%g = OIkXtUbal.cation =n1标鉴框出现的内苔If Opti|/nl (0). Y%l ue = TrUe TheD CeJI XUan，调用 XUanEnd IfEiLd SUbFriSUb FOrffi_LAad 0Fori = ITo 9Set a(i) = Conmiand

5、lG 1 ) I NeXtH% S%APrivate SUb(jSUn - SUm + 1 ITf Turn 幺 2 Th nSei = nf(a6).7ac = Q 5, l)ZIseFxi = IlfG) Sei =nd IfTo9 森茸的条件语句Ttg=O Th*n i： EXit For，迭择语问Tori = 1If aG)税1匕3V企Z ForEnd If TjqJMO TllaKOStTAr i = 1 T9Ifi = 5Thni = i+ 1 Ind If If&G) Tw = O TMnIf a(l 0 i).Tag O Sei = i EXit FOr had I AeIeC

6、t Case 1 C%S% I If (a(2). Tag O (a(4). Tag O Sei 三 i: EXil%(1 J - i).Ttg = a6) T%g Then 5(2)Tas 二 a(3).T 塔)Or w (4). Tag = a CT). T 幣)TllelIIf aO).Tsg O 0 And a I I).Tag = a Cf). Tag ThenSei 二 i. EXit TorEad IfO AncCi 6If 1 (3). TCg O 0 And 1 (3). Ty=a (9). Ty TKCnSttl=i： EXit JorEnd IfCg7O AndIf (%

7、(l).Tag OOAnC &(1).T gE=a(4) - T 竺)Orfa | 8).T%r 0 %id a(8)7ac 二O AndTorECd IfCaSo 2Tf (l)SeI：=Ead IfC%s%3If (a(l). Tag 0 0 And W (2).Tag = &(l).Tag) Or (a I 6). Tag J 0 %td a(6). 7ag 三 a (9). Tag) Then Sei = i: EXit JorEad IfC%s%4a(9).rad Then Sei = i: EXit TorEnd IfC仆8If aJ).Tag O 0 And ao) Tag =

8、9). Tag ThenE 1 = i: SXit ForEnd IfCd=c 0If Ger) Tas OOAnd aCr).T 輻 二 a(8). Tig) Or (a(3). Tag OOAnd a(3). Tag - a (ft), lag) Then SeL i : EXi t POrEnd IfEad SeleCtEnd IfHoctEndlf%(sl). CaPtlOn = Oa(sd). rag = 1Call yixianZsl%FrIVlte SUb yixi%n0If a(l) Tag O 0 ThenCall ShUyillg (L 乙 3Call sXuyii g(l

9、rf 4Z 7)Cell ShUyillg (L 5, 9) Ena IfIf a (5) Tag O 0 ThenCall ShUyin& (5 J 2, 8)Call sXuyiitg(%A 3, 7)Call ShUyljlg 4, 6)Eni IfIf a(9).Tag O 0 ThenCall SlIUylIlg(9p, 1,5)Call ShUylilg, 3, 6)Call ShUJnng 9 J 7, 8)Eni IfI 三 = 9 ThsLa%ell. Capti on 二”和棋“创連总Ciall歹丨库了几种情况通过调用SIlUylngW输谥 必11丨用z和棋的尹定PriV%

10、ift SUb SILi 尊 ing 陆 i)El 崔 MhllFinM 即羯4器I 中耗示內容If A 6 (). Tig 三 a(%D. Tag Xnd *CyD. Ta% - *(tj. Tag Th%nLlll L1.C%R 込二 诱 + Ilf%)-% = Ij %7! 9 “扁了 ！ JFi Ctllrl.Enibled IaLSeErLi IfEn 、PriVai e Etib DPI 1 Olkl _CXi c% (Iiil3e A三 IlIteF&r “CS1I FOIrm_ACt IVate F Or _Ki t i vat eEnel SILb5小结:本次考试的题目给了我蛮多的收获，从开始的一无所知到现在的能编写简单的程序，很有成就感得。当然在此期间还是遇到了很多的问题，很多看似简单的语句就是 表达不出来，还是要借助的图书资