[填空题] 学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得

[填空题] 学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框list1中，标准答案存放在变量Exact中。Option ExplicitPrivate Sub Command1_click()Dim Anw as string , StudId as stringDim Scor as Integer, Exact as stringDim I as Integer, J as integerExact=”ABCCBAACBBDCCDA”For I=（）Anw=（）StudId=Left(Anw,6)Anw=Right(Anw,Len(Anw)-8)（）For J=1 to Len(Anw)If（） ThenScor=Scor+1End IfNext JList2.AddItem StudId & “ “ & ScorNext IEnd Sub