course=["排球","篮球","足球","羽毛球","乒乓球","网球","健身操","游泳","太极"]

xk=[]       #存储选课信息，用数字1~9表示9门课程

f=[0]*9     #存储9门课程的选课人数

d=[0]*100   #存储两门课程同选的次数,如d[26]=50表示篮球和网球被50个同学同选

def relation(y):          #计算列表y中各数据项的同选次数

    for i in range(1,10):

        for j in range(i+1,10):

            if str(i) in y and str(j) in y:            #课程i，j均在列表y中出现

                d[10*i+j]+=1        #第i和第j门课程同选次数加1存储在列表d中

file=open("xk.txt","r")      #打开文件

line=file.readline()

while line:               #读取文件数据到列表xk中，数据样式详见第(1)小题图所示

    line=line.split()

    xk.append(line)

    line=file.readline()

file.close()

for y in xk:               #对列表xk中的各数据项进行处理

    relation(y)           #调用定义函数统计y中各门课程同选次数，存储到列表d中

    for x in y:            #遍历数据项y中的元素，统计每门课程的选课人数

for i in range(9):

    print(course[i],"选课人数:",,"人")   #输出每门课程的选课人数

maxd=max(d)

print("同选最多的两门课程是:")

for k in range(100):

    if d[k]==maxd:

        print(course[k//10-1],)       #根据列表d的索引计算两门同选课程索引

Private Sub Command1_Click ()

    Dim a(1 To 200) As String     ‘用来存储学号

    Dim b(1 To 200) As String     ‘关联a数组，用于矩阵输出

    Dim i As Integer，j As Integer，k As Integer，pos As Integer

    Dim row as Integer，column as Integer，s As String

    For i=1 To 200                      ‘产生3位数的学号

        a(i)=Mid(“00”，1，(3-Len(CStr(i)))+CStr(i)     ‘CStr()函数功能转换为字符串并去掉前面空格

    Next i

    row=Val (Text1.Text)

    column= Val (Text2.Text)

    k=1

    For i=1 To column

        If  Then

            pos=i                                 ‘pos是b数组的下标，根据行列来关联a数组

            For j=1 To row

                b(pos)=a(k)

                k=k+1

            Next j

        Else

            pos=(row-1)*column+i

            For j=1 To row

                b(pos) = a(k)

                pos=pos-column

                k=k+1

            Next j

        End If

    Next i

    For i=1 To row               ‘按行输出学生信息

        s=“”

        For j=1 To column

            s=s+""+

        Next j

        List1 AddItem s

    Next i

End Sub