![[填空题] 学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%AD%A6%E7%94%9F%E7%9A%84%E6%9F%90%E6%AC%A1%E8%AF%BE%E7%A8%8B%E6%B5%8B%E9%AA%8C%E4%B8%AD%EF%BC%8C%E9%80%89%E6%8B%A9%E9%A2%98%E7%9A%84%E7%AD%94%E6%A1%88%E5%B7%B2%E8%AE%B0%E5%BD%95%E5%9C%A8%E5%88%97%E8%A1%A8%E6%A1%86list1%E4%B8%AD%EF%BC%8C%E5%85%B6%E6%95%B0%E6%8D%AE%E8%A1%8C%E6%A0%BC%E5%BC%8F%E6%98%AF%3A%E5%AD%A6%E5%8F%B7%E4%B8%BA6%E4%B8%AA%E5%AD%97%E7%AC%A6%E9%95%BF%E5%BA%A6%EF%BC%8C2%E4%B8%AA%E7%A9%BA%E6%A0%BC%EF%BC%8C%E9%80%89%E6%8B%A9%E9%A2%98%E7%9A%84%E7%AD%94%E6%A1%88%E4%B8%BA15%E4%B8%AA%E5%AD%97%E7%AC%A6%E9%95%BF%E5%BA%A6%EF%BC%8C%E7%A8%8B%E5%BA%8F%E6%A0%B9%E6%8D%AE%E6%A0%87%E5%87%86%E7%AD%94%E6%A1%88%E8%BF%9B%E8%A1%8C%E6%89%B9%E6%94%B9%EF%BC%8C%E6%AF%8F%E7%AD%94%E5%AF%B9%E4%B8%80%E9%A2%98%E7%BB%991%E5%88%86%EF%BC%8C%E5%B9%B6%E5%B0%86%E5%BE%97.png "[填空题] 学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得,第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
正确答案：0 To Listl.ListCount-1；Listl.List(I)；Scor=0；Mid(Anw，J，1)=Mid(Exact，J，1)
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）