首页 排足球队员出场名单

排足球队员出场名单

举报
开通vip

排足球队员出场名单Dim qianf As Integer '定义前锋数量 Dim qianw As Integer '定义前卫数量 Dim houw As Integer '定义后卫数量 Dim shoumy As Integer '定义守门员数量 Dim a() As String '定义数组 Dim i As Integer Dim j As Integer Dim duiyuan(1 To 21, 1 To 3) As String '定义队员为二维数组 Dim qfeng As Integer '定义前锋固定值变量 Dim...

排足球队员出场名单
Dim qianf As Integer '定义前锋数量 Dim qianw As Integer '定义前卫数量 Dim houw As Integer '定义后卫数量 Dim shoumy As Integer '定义守门员数量 Dim a() As String '定义数组 Dim i As Integer Dim j As Integer Dim duiyuan(1 To 21, 1 To 3) As String '定义队员为二维数组 Dim qfeng As Integer '定义前锋固定值变量 Dim qwei As Integer '定义前卫固定值变量 Dim hwei As Integer '定义后卫固定值变量 Dim smyuan As Integer '定义守门员固定值变量 Dim yhdyname As String '定义移回队员名字变量 Dim yhdyxb As Integer '定义移回队员序号变量 Private Sub Command1_Click() ’->按钮 If Command4.Enabled = True Then MsgBox "你还没有读入队员信息,请点击读入队员信息按钮", vbOKOnly + vbInformation, "注意": Exit Sub '如果Command4可用,跳出提示框"你还没有读入队员信息,请点击读入队员信息按钮",并只显示OK按钮 If zx(1).Value = True Then '433阵形(即zx(1)被选定) flag = 1 qfeng = 3 '定义前锋固定数量 qwei = 3 '定义前卫固定数量 hwei = 4 '定义后卫固定数量 smyuan = 1 '定义守门员固定数量 uj '调用uj ElseIf zx(2).Value = True Then '442阵形 flag = 1 qfeng = 2 qwei = 4 hwei = 4 smyuan = 1 uj ElseIf zx(3).Value = True Then '352阵形 flag = 1 qfeng = 2 qwei = 5 hwei = 3 smyuan = 1 uj ElseIf zx(4).Value = True Then '532阵形 flag = 1 qfeng = 2 qwei = 3 hwei = 5 smyuan = 1 uj ElseIf zx(5).Value = True Then '343阵形 flag = 1 qfeng = 3 qwei = 4 hwei = 3 smyuan = 1 uj ElseIf zx(6).Value = True Then '361阵形 flag = 1 qfeng = 1 qwei = 6 hwei = 3 smyuan = 1 uj Else MsgBox "请选择阵形", vbOKOnly + vbInformation, "警告!" '如果zx控件数组没有被选定,跳出警告提示框,"请选择阵形",并只显示按钮OK End If End Sub Private Sub Command2_Click() ’<- 按钮 flag = 0 For i = 0 To List2.ListCount - 1 If List2.Selected(i) = True Then flag = 1 '记录下被移回的队员名字 yhdyname = List2.List(i) Exit For End If Next i If flag = 0 Then MsgBox "请选择队员", vbOKOnly + vbInformation Else '判断移回的队员的角色 For i = 1 To 21 If yhdyname = duiyuan(i, 1) Then yhdyxb = i Exit For End If Next i Select Case yhdyxb Case 1 To 4 qianf = qianf - 1 Case 5 To 11 qianw = qianw - 1 Case 12 To 18 houw = houw - 1 Case Else shoumy = shoumy - 1 End Select List2.RemoveItem (List2.ListIndex) End If '清空list1内容 List1.Clear '找list2中存在队员的序号(行下标) For i = 1 To 21 flag = 0 j = 0 Do While j <= List2.ListCount - 1 '当j小于list2的总数-1 If duiyuan(i, 1) = List2.List(j) Then '如果读入数据的i行一列与list2的第j-1个相等 flag = 1 '变量flag=1 Exit Do End If j = j + 1 Loop If flag = 0 Then List1.AddItem duiyuan(i, 1) If flag = 0 And Command4.Enabled = True Then List1.Clear Next i End Sub Private Sub Command3_Click() ’《按钮 If Command4.Enabled = True Then '当Command4可用时 MsgBox "你还没有读入队员信息,请点击读入队员信息按钮", vbOKOnly + vbInformation, "注意": Exit Sub List1.Clear ElseIf Command4.Enabled = False Then '当Command4不可用时 List2.Clear 'list1 list2 清空 List1.Clear For i = 1 To 21 'list1重新读入数据 List1.AddItem duiyuan(i, 1) Next i End If qianf = 0 '所有数值为0 qianw = 0 houw = 0 shoumy = 0 End Sub Private Sub Command4_Click() Command6.Enabled = False Open App.Path & "\mumber.txt" For Input As #1 '打开文件 For i = 1 To 21 '二维数组的行列定义 For j = 1 To 3 Input #1, duiyuan(i, j) '读入文件#1 Next j, i For i = 1 To 21 List1.AddItem duiyuan(i, 1) 'list1添加duiyuan每行第一个数据 Next i Close #1 '关闭文件 Command4.Enabled = False 'command4不可用 End Sub Private Sub uj() Dim m As Integer For i = 1 To 21 If List1.Text = duiyuan(i, 1) Then k = i 'list1的信息 Exit For 'for循环的强制退出 End If Next i Select Case k 'Select Case 结构 Case 1 To 4 '如果是1-4中 qianf = qianf + 1 '前锋数+1 If qianf <= qfeng Then '如果前锋数小于选定固定值 List2.AddItem List1.Text List1.RemoveItem List1.ListIndex '将list2中的项目和编号存储在数组a中 k = List2.ListCount - 1 ReDim a(0 To k, 1 To 2) As String For i = 0 To k j = 1 Do While j <= 21 If List2.List(i) = duiyuan(j, 1) Then a(i, 1) = List2.List(i) a(i, 2) = duiyuan(j, 3) Exit Do End If j = j + 1 Loop Next i '对list2中的项目按编号重新排序 For i = 0 To k - 1 m = a(i, 2) n = i For j = i + 1 To k If m > a(j, 2) Then m = a(j, 2) n = j End If Next j '将a数组中队员名交换 temp = a(i, 1) a(i, 1) = a(n, 1) a(n, 1) = temp '将a数组中队员编号交换 temp = a(i, 2) a(i, 2) = a(n, 2) a(n, 2) = temp Next i List2.Clear For i = 0 To k List2.AddItem a(i, 1) Next i Else MsgBox "前锋队员人数已够!", vbOKOnly + vbInformation, "警告!" qianf = qianf - 1 End If Case 5 To 11 qianw = qianw + 1 If qianw <= qwei Then List2.AddItem List1.Text List1.RemoveItem (List1.ListIndex) '将list2中的项目和编号存储在数组a中 k = List2.ListCount - 1 ReDim a(0 To k, 1 To 2) As String For i = 0 To k j = 1 Do While j <= 21 If List2.List(i) = duiyuan(j, 1) Then a(i, 1) = List2.List(i) a(i, 2) = duiyuan(j, 3) Exit Do End If j = j + 1 Loop Next i '对list2中的项目按编号重新排序 For i = 0 To k - 1 m = a(i, 2) n = i For j = i + 1 To k If m > a(j, 2) Then m = a(j, 2) n = j End If Next j '将a数组中队员名交换 temp = a(i, 1) a(i, 1) = a(n, 1) a(n, 1) = temp '将a数组中队员编号交换 temp = a(i, 2) a(i, 2) = a(n, 2) a(n, 2) = temp Next i List2.Clear For i = 0 To k List2.AddItem a(i, 1) Next i Else MsgBox "前卫队员人数已够!", vbOKOnly + vbInformation, "警告!" qianw = qianw - 1 End If Case 12 To 18 houw = houw + 1 If houw <= hwei Then List2.AddItem List1.Text List1.RemoveItem (List1.ListIndex) '将list2中的项目和编号存储在数组a中 k = List2.ListCount - 1 ReDim a(0 To k, 1 To 2) As String For i = 0 To k j = 1 Do While j <= 21 If List2.List(i) = duiyuan(j, 1) Then a(i, 1) = List2.List(i) a(i, 2) = duiyuan(j, 3) Exit Do End If j = j + 1 Loop Next i '对list2中的项目按编号重新排序 For i = 0 To k - 1 m = a(i, 2) n = i For j = i + 1 To k If m > a(j, 2) Then m = a(j, 2) n = j End If Next j '将a数组中队员名交换 temp = a(i, 1) a(i, 1) = a(n, 1) a(n, 1) = temp '将a数组中队员编号交换 temp = a(i, 2) a(i, 2) = a(n, 2) a(n, 2) = temp Next i List2.Clear For i = 0 To k List2.AddItem a(i, 1) Next i Else MsgBox "后卫队员人数已够!", vbOKOnly + vbInformation, "警告!" houw = houw - 1 End If Case Else shoumy = shoumy + 1 If shoumy <= smyuan Then List2.AddItem List1.Text List1.RemoveItem (List1.ListIndex) '将list2中的项目和编号存储在数组a中 k = List2.ListCount - 1 ReDim a(0 To k, 1 To 2) As String For i = 0 To k j = 1 Do While j <= 21 If List2.List(i) = duiyuan(j, 1) Then a(i, 1) = List2.List(i) a(i, 2) = duiyuan(j, 3) Exit Do End If j = j + 1 Loop Next i '对list2中的项目按编号重新排序 For i = 0 To k - 1 m = a(i, 2) n = i For j = i + 1 To k If m > a(j, 2) Then m = a(j, 2) n = j End If Next j '将a数组中队员名交换 temp = a(i, 1) a(i, 1) = a(n, 1) a(n, 1) = temp '将a数组中队员编号交换 temp = a(i, 2) a(i, 2) = a(n, 2) a(n, 2) = temp Next i List2.Clear For i = 0 To k List2.AddItem a(i, 1) Next i Else MsgBox "守门员只需一个!", vbOKOnly + vbInformation, "警告!" shoumy = shoumy - 1 End If End Select For i = 1 To 6 zx(i).Enabled = False Next i End Sub Private Sub Command5_Click() ’go flag_sfxg = 1 For i = 1 To 6 If zx(i).Value = True Then '如果单选按钮被选中 If qianf < qfeng Then MsgBox "前锋队员不够", vbOKOnly + vbInformation, "注意": flag_sfxg = 0 '如果前卫数量小于固定数量跳出提示框“**队员不够”并flag_sfxg = 0 If qianw < qwei Then MsgBox "前卫队员不够", vbOKOnly + vbInformation, "注意": flag_sfxg = 0 If houw < hwei Then MsgBox "后卫队员不够", vbOKOnly + vbInformation, "注意": flag_sfxg = 0 If shoumy < shoumyuan Then MsgBox "守门员未指定", vbOKOnly + vbInformation, "注意": flag_sfxg = 0 Else End If Next If flag_sfxg = 1 Then '当flag_sfxg = 1 Picture1.Visible = True 'Picture1显示 For i = 0 To 2 '控件组件显示 qf(i).Visible = True Next i For i = 0 To 5 qw(i).Visible = True Next i For i = 0 To 4 hw(i).Visible = True Next i smy.Visible = True Randomize Timer '排列阵型 smy.Caption = a(10, 2) If zx(3).Value = True Then '352 Do k1 = Int(Rnd * 2) '随机取1,2值 k2 = Int(Rnd * 2) Loop While k1 = k2 qf(0).Caption = a(k1, 2) qf(2).Caption = a(k2, 2) qf(1).Visible = False '前卫队员号码显示 Do k1 = Int(Rnd * 5 + 2) k2 = Int(Rnd * 5 + 2) k3 = Int(Rnd * 5 + 2) k4 = Int(Rnd * 5 + 2) k5 = Int(Rnd * 5 + 2) Loop While k1 = k2 Or k1 = k3 Or k1 = k4 Or k1 = k5 Or k2 = k3 Or k2 = k4 Or k2 = k5 Or k3 = k4 Or k3 = k5 Or k4 = k5 qw(1).Caption = a(k1, 2) qw(2).Caption = a(k2, 2) qw(3).Caption = a(k3, 2) qw(4).Caption = a(k4, 2) qw(5).Caption = a(k5, 2) qw(0).Visible = False '后卫队员号码显示 Do k1 = Int(Rnd * 3 + 7) k2 = Int(Rnd * 3 + 7) k3 = Int(Rnd * 3 + 7) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 hw(0).Visible = False hw(1).Caption = a(k1, 2) hw(2).Caption = a(k2, 2) hw(3).Caption = a(k3, 2) hw(4).Visible = False ElseIf zx(2).Value = True Then '442 Do k1 = Int(Rnd * 2) k2 = Int(Rnd * 2) Loop While k1 = k2 qf(0).Caption = a(k1, 2) qf(2).Caption = a(k2, 2) qf(1).Visible = False '前卫队员号码显示 Do k1 = Int(Rnd * 4 + 2) k2 = Int(Rnd * 4 + 2) k3 = Int(Rnd * 4 + 2) k4 = Int(Rnd * 4 + 2) Loop While k1 = k2 Or k1 = k3 Or k1 = k4 Or k2 = k3 Or k2 = k4 Or k3 = k4 qw(1).Caption = a(k1, 2) qw(2).Caption = a(k2, 2) qw(3).Caption = a(k3, 2) qw(4).Caption = a(k4, 2) qw(5).Visible = False qw(0).Visible = False '后卫队员号码显示 Do k1 = Int(Rnd * 4 + 6) k2 = Int(Rnd * 4 + 6) k3 = Int(Rnd * 4 + 6) k4 = Int(Rnd * 4 + 6) Loop While k1 = k2 Or k1 = k4 Or k1 = k3 Or k2 = k3 Or k2 = k4 Or k3 = k4 hw(0).Caption = a(k1, 2) hw(1).Caption = a(k2, 2) hw(2).Caption = a(k3, 2) hw(3).Caption = a(k4, 2) hw(4).Visible = False ElseIf zx(5).Value = True Then '343 Do k1 = Int(Rnd * 3) k2 = Int(Rnd * 3) k3 = Int(Rnd * 3) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 qf(0).Caption = a(k1, 2) qf(2).Caption = a(k2, 2) qf(1).Caption = a(k3, 2) '前卫队员号码显示 Do k1 = Int(Rnd * 4 + 3) k2 = Int(Rnd * 4 + 3) k3 = Int(Rnd * 4 + 3) k4 = Int(Rnd * 4 + 3) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 Or k1 = k4 Or k2 = k4 Or k3 = k4 qw(1).Caption = a(k1, 2) qw(2).Caption = a(k2, 2) qw(3).Caption = a(k3, 2) qw(4).Caption = a(k4, 2) qw(3).Visible = False qw(5).Visible = False qw(0).Visible = False '后卫队员号码显示 Do k1 = Int(Rnd * 3 + 7) k2 = Int(Rnd * 3 + 7) k3 = Int(Rnd * 3 + 7) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 hw(0).Visible = False hw(1).Caption = a(k1, 2) hw(2).Caption = a(k2, 2) hw(3).Caption = a(k3, 2) hw(4).Visible = False ElseIf zx(4).Value = True Then '532 Do k1 = Int(Rnd * 2) k2 = Int(Rnd * 2) Loop While k1 = k2 qf(0).Caption = a(k1, 2) qf(2).Caption = a(k2, 2) qf(1).Visible = False '前卫队员号码显示 Do k1 = Int(Rnd * 3 + 2) k2 = Int(Rnd * 3 + 2) k3 = Int(Rnd * 3 + 2) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 qw(0).Caption = a(k1, 2) qw(2).Caption = a(k2, 2) qw(4).Caption = a(k3, 2) qw(1).Visible = False qw(3).Visible = False qw(5).Visible = False '后卫队员号码显示 Do k1 = Int(Rnd * 5 + 5) k2 = Int(Rnd * 5 + 5) k3 = Int(Rnd * 5 + 5) k4 = Int(Rnd * 5 + 5) k5 = Int(Rnd * 5 + 5) Loop While k1 = k2 Or k1 = k4 Or k1 = k3 Or k2 = k3 Or k2 = k4 Or k2 = k5 Or k3 = k4 Or k3 = k5 Or k4 = k5 Or k1 = k5 hw(0).Caption = a(k1, 2) hw(1).Caption = a(k2, 2) hw(2).Caption = a(k3, 2) hw(3).Caption = a(k4, 2) hw(4).Caption = a(k5, 2) ElseIf zx(6).Value = True Then '361 qf(0).Visible = False qf(2).Visible = False qf(1).Caption = a(0, 2) '前卫队员号码显示 Do k1 = Int(Rnd * 6 + 1) k2 = Int(Rnd * 6 + 1) k3 = Int(Rnd * 6 + 1) k4 = Int(Rnd * 6 + 1) k5 = Int(Rnd * 6 + 1) k6 = Int(Rnd * 6 + 1) Loop While k1 = k2 Or k1 = k3 Or k1 = k4 Or k1 = k5 Or k2 = k3 Or k2 = k4 Or k2 = k5 Or k3 = k4 Or k3 = k5 Or k4 = k5 Or k1 = k6 Or k2 = k6 Or k3 = k6 Or k4 = k6 Or k5 = k6 qw(1).Caption = a(k1, 2) qw(2).Caption = a(k2, 2) qw(3).Caption = a(k3, 2) qw(4).Caption = a(k4, 2) qw(5).Caption = a(k5, 2) qw(0).Caption = a(k6, 2) '后卫队员号码显示 Do k1 = Int(Rnd * 3 + 7) k2 = Int(Rnd * 3 + 7) k3 = Int(Rnd * 3 + 7) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 hw(0).Visible = False hw(1).Caption = a(k1, 2) hw(2).Caption = a(k2, 2) hw(3).Caption = a(k3, 2) hw(4).Visible = False Else '433 Do k1 = Int(Rnd * 3) k2 = Int(Rnd * 3) k3 = Int(Rnd * 3) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 qf(0).Caption = a(k1, 2) qf(2).Caption = a(k2, 2) qf(1).Caption = a(k3, 2) '前卫队员号码显示 Do k1 = Int(Rnd * 3 + 3) k2 = Int(Rnd * 3 + 3) k3 = Int(Rnd * 3 + 3) Loop While k1 = k2 Or k1 = k3 Or k2 = k3 qw(1).Caption = a(k1, 2) qw(2).Caption = a(k2, 2) qw(3).Visible = False qw(4).Caption = a(k3, 2) qw(5).Visible = False qw(0).Visible = False '后卫队员号码显示 Do k1 = Int(Rnd * 4 + 6) k2 = Int(Rnd * 4 + 6) k3 = Int(Rnd * 4 + 6) k4 = Int(Rnd * 4 + 6) Loop While k1 = k2 Or k1 = k4 Or k1 = k3 Or k2 = k3 Or k2 = k4 Or k3 = k4 hw(0).Caption = a(k1, 2) hw(1).Caption = a(k2, 2) hw(2).Caption = a(k3, 2) hw(3).Caption = a(k4, 2) hw(4).Visible = False End If End If Command6.Enabled = True Command4.Enabled = False Picture1.Width = 7215 'Picture1的宽 Picture1.Height = 4000 'Picture1的高 End Sub Private Sub Command6_Click() For i = 1 To 6 zx(i).Enabled = True zx(i).Value = False Next i = i + 1 List1.Clear List2.Clear Picture1.Visible = False Command4.Enabled = True qf(0).Visible = False qw(0).Visible = False hw(0).Visible = False smy.Visible = False qianf = 0 qianw = 0 houw = 0 shoumy = 0 End Sub Private Sub Form_Load() '部件的大小固定,控.部件的隐藏 List1.Width = 2600 List1.Height = 3660 List2.Width = 2600 List2.Height = 3660 VScroll1.Width = 375 VScroll1.Height = 3660 Picture1.Visible = False qf(0).Visible = False qw(0).Visible = False hw(0).Visible = False smy.Visible = False End Sub Private Sub VScroll1_change() '滚动条与list1绑定 VScroll1.Max = List1.ListCount List1.ListIndex = VScroll1.Value - 1 End Sub
本文档为【排足球队员出场名单】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_665913
暂无简介~
格式:doc
大小:108KB
软件:Word
页数:15
分类:互联网
上传时间:2014-04-03
浏览量:23