学进去

某考试的多选题有“A、B、C、D、E”5个答案选项。阅卷的评分标准为：“全部选对的得2分，选对但不全的得1分，不选或有选错的得0分”。阅卷算法描述如下：

例如，标准答案为“ABE”，则对应得分表如下所示。

学生答案	ABE	AB	AE	BE	A	B	E	AC	......
字符串	11001	11000	10001	01001	10000	01000	00001	10100	......
十进制数(x)	25	24	17	9	16	8	1	20	......
ans(x)	2	1	1	1	1	1	1	0	0

 
小温依据上述描述设计了“多选题阅卷”的VB程序，实现如下功能：在文本框Text1中输入标准答案（大写字母），先单击“初始化”按钮   Command1，在数组ans中生成所有答案组合对应   的分值，然后单击“阅卷”按钮Command2，从数   据库中读取学生的答案并进行阅卷，在列表框List1中显示得分结果。程序运行界面如图所示。

（1）若标准答案为“ACD”，则数组元素ans (18)的值为         
（2）请在划线处填入合适的代码。

Dim ans(0 To 31) As Integer

Private Sub Command1_Click()

Dim b(0 To 4) As Integer

Dim s As String, c As String, sum As Integer, k As Integer

'初始化数组ans和数组b，各元素的初始值均为0。代码略
s = Text1.Text：k = Len(s)
For i = 1 To k
c = Mid(s, i, 1)
b(Asc(c) - 65) = 2 ^ (69 - Asc(c))
Next i
For i = 0 To 4
If b(i) <> 0 Then
ans(b(i)) = 1
sum =     ①   
End If
Next i
ans(sum) = 2
'当标准答案含3个及以上选项时，学生答案选其中2个选项可得1分
i = 0
Do While k >= 3 And i <= 4
For j = i + 1 To 4
If b(i) * b(j) <> 0 Then ans(b(i) + b(j)) = 1
Next j
i = i + 1
Loop
'当标准答案含4个及以上选项时，学生答案选其中3个选项可得1分
i = 0
Do While k >= 4 And i <= 4
For j = i + 1 To 4
If b(i) * b(j) = 0 Or k = 5 Then     ②     

           Next j

               i = i + 1

          Loop

          '当标准答案含5个选项时，学生答案选其中4个选项可得1分。代码略

    End Sub

   Private Sub Command2_Click()

           Dim xh(1 To 1000) As String, answer(1 To 1000) As String

         '从数据库中读取学生学号和答案的数据分别存储在数组xh和answer中

'记录总数存储在变量n中，代码略

     List1.Clear

       For i = 1 To n

           List1.AddItem xh(i) + "       " + answer(i) + "       " + Str(ans(f(answer(i))))

       Next i

End Sub

Function f(s As String) As Integer

       Dim i As Integer, x As Integer

      x = 0

       For i = 1 To Len(s)

             x =     ③     

       Next i

       f = x

End Function