VB课程设-足球队员出场程序任务书.doc

此文档收集于网络，如有侵权，请联系网站删除足球队员出场程序任务书设计报告学院 土木学院 班级 测绘c111学号 117550姓名：柳远志成绩 一、设计思路1.要达到的目的正文（宋体5号字，单倍行距）1 左侧列表框为备选队员列表框，在程序初始化部分将队员姓名及队员号码信息存入数组；并在备选队员列表框中显示所有备选队员姓名；在下方的文本框中显示备选队员总人数。2 右侧列表框为出场队员名单，选中备选队员列表框中某个队员姓名，单击“-”命令按钮或双击某个队员姓名，将该队员姓名移动到右侧列表框，并在其下方文本框中显示所选中队员的号码。该队员姓名从左侧列表框中移除后，其备选队员总人数也做相应减少。3 单击“ -”按钮后，与上述操作正好相反。4 单击“”按钮后，将“备选队员列表框”中选中的队员项添加到“出场队员列表框”（List2.AddItem List1.Text），然后在“备选队员列表框”中将该项删除（List1.RemoveItem）。单击“ -”按钮后，与上述操作正好相反。单击“ -”按钮的操作是“ -”按钮的扩展，即依次将所有项目移走。 在选择队员时，要按出场位置分别累计选中队员的个数，并与当前选择的阵形中各位置的要求进行比较，当超过人数时，给出提示，禁止选择。 绘制出场阵形图时，可建立三个过程，分别表示前锋、前卫、后卫的各种位置图示，然后根据当前阵形，调用这三个过程，画出阵形图。具体示例如下： 二、模块之间的调用关系，或程序流程图从首发阵容中去掉某位队员或删去首发所有队员从队员名单中调出首发阵容根据队员和选定阵形排出首发阵形列出队员名单选定出场阵形从队员名单中调出替补阵容或删去替补所有队员从替补阵容中去掉某位队员调用调用三、部分程序关键源代码及注释Public z As Integer, q As Integer, h As Integer Dim de As BooleanDim hh As Integer, qq As Integer, zz As Integer, mm As Integer, qqq As Integer, zzz As Integer, hhh As Integer, mmm As IntegerDim a(26) As String, b(26) As String, c(26) As String, r(10) As String, s(10) As String, t(10) As String, o(10) As StringPrivate Sub Command1_Click()Dim num As String, name As String, posi As StringDim i As Integer, j As Integer, fileno As Integer, ii As Integer, iii As Integerfileno = FreeFileOpen App.Path & wdzq.txt For Input As #filenoDo While Not EOF(fileno) Input #fileno, num, name, posi a(i) = num b(ii) = name c(iii) = posi i = i + 1 ii = ii + 1 iii = iii + 1LoopClose #filenoFor j = 0 To 26 List1.List(j) = a(j) & b(j) & c(j)Next jCommand1.Enabled = FalseText1.Text = 27Text2.Text = 0Text3.Text = 0End SubPrivate Sub Command2_Click()Static hh As Integer, qq As Integer, zz As Integer, mm As Integer, qqq As Integer, zzz As Integer, hhh As Integer, mmm As IntegerDim abc As StringIf de = True Then hh = 0: qq = 0: zz = 0: hhh = 0: zzz = 0: qqq = 0: mm = 0: mmm = 0 de = FalseEnd Ifabc = Right(List1.Text, 2)If abc = 前锋 Then qq = qq + 1 qqq = qqq + 1 r(qqq) = Left(List1.Text, 2) If qq = q Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 前锋出场人数已够 End IfEnd IfIf abc = 中场 Then zz = zz + 1 zzz = zzz + 1 s(zzz) = Left(List1.Text, 2) If zz = z Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 中场出场人数已够 End IfEnd IfIf abc = 后卫 Then hh = hh + 1 hhh = hhh + 1 t(hhh) = Left(List1.Text, 2) If hh = h Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 后卫出场人数已够 End IfEnd IfIf abc = 门将 Then mm = mm + 1 mmm = mmm + 1 o(mmm) = Left(List1.Text, 2) If mm = 1 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 门将只能出场一人 End IfEnd If Text1.Text = Text1.Text - 1 Text2.Text = Text2.Text + 1End SubPrivate Sub Command3_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Text2.Text = Text2.Text - 1 Text1.Text = Text1.Text + 1End SubPrivate Sub Command4_Click()List2.ClearFor j = 0 To 26 List1.List(j) = a(j) & b(j) & c(j)Next jText1.Text = 27 - Text3.TextText2.Text = 0End SubPrivate Sub Command5_Click()Command6.Enabled = TrueDim X As IntegerX = List2.ListCountIf X 11 Then MsgBox 出场人数不足十一人，无法进行比赛。Else List1.Visible = False List2.Visible = False Command2.Visible = False Command3.Visible = False Command4.Visible = False Command7.Visible = False Command8.Visible = False Command9.Visible = False Label1.Visible = False Label2.Visible = False Call mysub1(q) Call mysub2(z) Call mysub3(h) Image1(o(1) - 1).Visible = True: Image1(o(1) - 1).Top = 5640: Image1(o(1) - 1).Left = 3000End IfText1.Visible = FalseText2.Visible = FalseText3.Visible = FalseEnd SubPrivate Sub Command6_Click() de = True For i = 0 To 26 Image1(i).Visible = False Next i List1.Visible = True List2.Visible = True form1.Cls List1.Clear List2.Clear List3.Clear Option3.Value = True Command2.Visible = True Command3.Visible = True Command4.Visible = True Command1.Enabled = True Command6.Enabled = False Command7.Visible = True Command8.Visible = True Command9.Visible = True Label1.Visible = True Label2.Visible = True Text1.Visible = True Text2.Visible = True Text3.Visible = True Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command7_Click()List3.AddItem List1.Text List1.RemoveItem List1.ListIndexText1.Text = Text1.Text - 1Text3.Text = Text3.Text + 1End SubPrivate Sub Command8_Click()List1.AddItem List3.Text List3.RemoveItem List3.ListIndex Text1.Text = Text1.Text + 1 Text3.Text = Text3.Text - 1End SubPrivate Sub Command9_Click()List3.ClearFor j = 0 To 26 List1.List(j) = a(j) & b(j) & c(j)Next jText1.Text = 27 - Text2.TextText3.Text = 0End SubPrivate Sub Form_Load()Command6.Enabled = FalseOption3.Value = TrueFor i = 0 To 26 Image1(i).Visible = FalseNext iEnd SubPrivate Sub Image1_Click(Index As Integer)Select Case Index Case 0: form1n.Show: Case 1: form2.Show: Case 2: Form3.Show: Case 3: Form4.Show: Case 4: Form21.Show: Case 5: Form22.Show: Case 6: Form5.Show: Case 7: Form6.Show: Case 8: Form7.Show: Case 9: form9.Show: Case 10: form8.Show: Case 11: Form10.Show: Case 12: Form11.Show: Case 13: Form12.Show: Case 14: Form23.Show: Case 15: Form24.Show: Case 16: Form25.Show: Case 17: Form13.Show: Case 18: Form14.Show: Case 19: Form15.Show: Case 20: Form16.Show: Case 21: Form17.Show: Case 22: Form18.Show: Case 23: Form26.Show: Case 24: Form19.Show: Case 25: Form20.Show: Case 26: Form27.ShowEnd SelectEnd SubPrivate Sub Option1_Click()h = 4z = 3q = 3End SubPrivate Sub Option2_Click()h = 5z = 3q = 2End SubPrivate Sub Option3_Click()h = 4z = 4q = 2End SubPrivate Sub Option4_Click()h = 3z = 4q = 3End SubPrivate Sub Option5_Click()h = 3z = 5q = 2End SubPrivate Sub Option6_Click()h = 3z = 6q = 1End SubPublic Sub mysub1(X As Integer) Select Case X Case 1 Image1(r(1) - 1).Visible = True: Image1(r(1) - 1).Top = 480: Image1(r(1) - 1).Left = 3240 Case 2 Image1(r(1) - 1).Visible = True: Image1(r(1) - 1).Top = 480: Image1(r(1) - 1).Left = 1900 Image1(r(2) - 1).Visible = True: Image1(r(2) - 1).Top = 480: Image1(r(2) - 1).Left = 3800 Case 3 Image1(r(1) - 1).Visible = True: Image1(r(1) - 1).Top = 480: Image1(r(1) - 1).Left = 1800 Image1(r(2) - 1).Visible = True: Image1(r(2) - 1).Top = 480: Image1(r(2) - 1).Left = 3240 Image1(r(3) - 1).Visible = True: Image1(r(3) - 1).Top = 480: Image1(r(3) - 1).Left = 4680 End SelectEnd SubPublic Sub mysub2(Y As Integer)Select Case Y Case 3 Image1(s(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 360 Image1(s(2) - 1).Visible = True: Image1(s(2) - 1).Top = 2160: Image1(s(2) - 1).Left = 3240 Image1(s(3) - 1).Visible = True: Image1(s(3) - 1).Top = 2160: Image1(s(3) - 1).Left = 5880 Case 4 Image1(s(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 480 Image1(s(2) - 1).Visible = True: Image1(s(2) - 1).Top = 2160: Image1(s(2) - 1).Left = 1920 Image1(s(3) - 1).Visible = True: Image1(s(3) - 1).Top = 2160: Image1(s(3) - 1).Left = 3480 Image1(s(4) - 1).Visible = True: Image1(s(4) - 1).Top = 2160: Image1(s(4) - 1).Left = 4920 Case 5 Image1(s(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 350 Image1(s(2) - 1).Visible = True: Image1(s(2) - 1).Top = 2160: Image1(s(2) - 1).Left = 1800 Image1(s(3) - 1).Visible = True: Image1(s(3) - 1).Top = 2160: Image1(s(3) - 1).Left = 3240 Image1(s(4) - 1).Visible = True: Image1(s(4) - 1).Top = 2160: Image1(s(4) - 1).Left = 4560 Image1(s(5) - 1).Visible = True: Image1(s(5) - 1).Top = 2160: Image1(s(5) - 1).Left = 5880 Case 6 Image1(s(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 240 Image1(s(2) - 1).Visible = True: Image1(s(2) - 1).Top = 2160: Image1(s(2) - 1).Left = 1560 Image1(s(3) - 1).Visible = True: Image1(s(3) - 1).Top = 2160: Image1(s(3) - 1).Left = 2880 Image1(s(4) - 1).Visible = True: Image1(s(4) - 1).Top = 2160: Image1(s(4) - 1).Left = 4200 Image1(s(5) - 1).Visible = True: Image1(s(5) - 1).Top = 2160: Image1(s(5) - 1).Left = 5500 Image1(s(6) - 1).Visible = True: Image1(s(6) - 1).Top = 2160: Image1(s(6) - 1).Left = 6800 End SelectEnd SubPublic Sub mysub3(k As Integer)Select Case k Case 3 Image1(t(1) - 1).Visible = True: Image1(t(1) - 1).Top = 3960: Image1(t(1) - 1).Left = 360 Image1(t(2) - 1).Visible = True: Image1(t(2) - 1).Top = 3960: Image1(t(2) - 1).Left = 3240 Image1(t(3) - 1).Visible = True: Image1(t(3) - 1).Top = 3960: Image1(t(3) - 1).Left = 5880 Case 4 Image1(t(1) - 1).Visible = True: Image1(t(1) - 1).Top = 3960: Image1(t(1) - 1).Left = 480 Image1(t(2) - 1).Visible = True: Image1(t(2) - 1).Top = 3960: Image1(t(2) - 1).Left = 1920 Image1(t(3) - 1).Visible = True: Image1(t(3) - 1).Top = 3960: Image1(t(3) - 1).Left = 3480 Image1(t(4) - 1).Visible = True: Image1(t(4) - 1).Top = 3960: Image1(t(4) - 1).Left = 4920