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

足球队员出场程序任务书设计报告 学院 土木学院 班级 测绘c111学号 117550姓名：柳远志成绩 一、设计思路 1.要达到的目的 正文（宋体5号字，单倍行距） 1 左侧列表框为备选队员列表框，在程序初始化部分将队员姓名及队员号码信息存入数组；并在备选队员列表框中显示所有备选队员姓名；在下方的文本框中显示备选队员总人数。 2 右侧列表框为出场队员名单，选中备选队员列表框中某个队员姓名，单击“-”命令按钮或双击某个队员姓名，将该队员姓名移动到右侧列表框，并在其下方文本框中显示所选中队员的号码。该队员姓名从左侧列表框中移除后，其备选队员总人数也做相应减少。 3 单击“ -”按钮后，与上述操作正好相反。 4 单击“-”命令按钮依次将右侧列表框所有队员姓名移动到左侧列表框中的，同时备选队员总人数也随之变化 5在程序运行后，可以随时添加新的队员姓名和号码姓名信息。 6在程序运行后，可以显示选中队员的号码信息 2.关键问题的解决 定义数组分别用于存放队员姓名、队员位置、队员号码。 单击“读入队员信息”按钮后，将数据文件中队员姓名、位置、号码依次读入到相应数组中，并将姓名信息显示在备选队员列表框中。 单击“- ”按钮后，将“备选队员列表框”中选中的队员项添加到“出场队员列表框”（List2.AddItem List1.Text），然后在“备选队员列表框”中将该项删除（List1.RemoveItem）。单击“ -”按钮后，与上述操作正好相反。单击“ -”按钮的操作是“ -”按钮的扩展，即依次将所有项目移走。 在选择队员时，要按出场位置分别累计选中队员的个数，并与当前选择的阵形中各位置的要求进行比较，当超过人数时，给出提示，禁止选择。 绘制出场阵形图时，可建立三个过程，分别表示前锋、前卫、后卫的各种位置图示，然后根据当前阵形，调用这三个过程，画出阵形图。具体示例如下： 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Public z As Integer, q As Integer, h As Integer Dim de As Boolean Dim hh As Integer, qq As Integer, zz As Integer, mm As Integer, qqq As Integer, zzz As Integer, hhh As Integer, mmm As Integer Dim 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 String Private Sub Command1_Click() Dim num As String, name As String, posi As String Dim i As Integer, j As Integer, fileno As Integer, ii As Integer, iii As Integer fileno = FreeFile Open App.Path \wdzq.txt For Input As #fileno Do 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 + 1 Loop Close #fileno For j = 0 To 26 List1.List(j) = a(j) b(j) c(j) Next j Command1.Enabled = False Text1.Text = 27 Text2.Text = 0 Text3.Text = 0 End Sub Private 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 Integer Dim abc As String If de = True Then hh = 0: qq = 0: zz = 0: hhh = 0: zzz = 0: qqq = 0: mm = 0: mmm = 0 de = False End If abc = Right(List1.Text, 2) If abc = 前锋 Then