![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
已知某次考试10道选择题的正确答案依次为A、B、C、D、A、C、D、B、C、D,每道题2分。下面的用inputbox对话框输入学生的答案(当输入字符N或n时表示未选),评分规则:选对加2;选错减1;未选不得分。计算出该学生得分(如果总分小于0,按0分输出)。阅读填空。 Option Base 1 Private Sub Command1_Click() Dim x$,i%,score% a =(1)_____________ ("A,B,C,D,A,C,D,B,C,D",",") score = 0 For i = LBound(a) To UBound(a) x =UCase(inputbox("请输入第" & i+1 & "题答案,未选输入N或n")) If (2)_____________ Then score =score+2 ElseIf x = "N" Then score=score+0 Else (3)________________ End If Next i If score<0 then score=0 Print "score="; score End Sub