代理中 复选框中 怎么取值啊,十万火急求救!!

[june37]

我的单选框 取值是:
Sub Initialize
On Error Goto errorhandler

Dim session As NotesSession
Dim docCur As notesdocument
Dim num As Integer

Set session = New notessession
Set docCur=session.documentcontext
num=0

REM "--------------单选择题--------------------"
If docCur.s1(0)="A" Then
num=num+1
End If
If docCur.s2(0)="D" Then
num=num+1
End If
If docCur.s3(0)="A" Then
num=num+1
End If
If docCur.s4(0)="D" Then
num=num+1
End If
请问s5就是复选框了,我该怎么得到这个值呢!
并且要判断,如果答案是ABC的话,就得1分,如果不完整是 0.5分,改怎么处理呢!
谢谢啊!

[Windancer6974]

把s5的值显示出来看看就好办了。
For i = 0 To Ubound(docCur.s5)
Print docCur.s5(i)
if docCur.s5(i) = "ABC" then
'得分
end if
Next

[june37]

下一题的答案
就要运行另一个FOR语句
但是两个FOR语句该怎么分开判断呢？

[BurningM]

楼上的答案不对，复选框返回的值是个列表，如果选择了"A""B""C"三个答案，则为"A":"B":"C"，而在LotusScript中则为一个三维的数组{"A", "B", "C"}
s5[0]="A";
s5[1]="B";
S5[2]="C"

[shaly7230]

Set item=doc.getfirstitem("Delete")

Forall unid In item.values
If unid="A" Then '你想要运行的
选择后的程序
End If
End Forall

[shaly7230]

delte改成s5

[Windancer6974]

iftrue = "true"
for i = 0 to Ubound(docCur.s5)
if instr("ABC",docCur.s5(i)) = 0 then
iftrue = "false"
end if
next
if iftrue = "true" then
if Ubound(docCur.s5) = 2 then
num=num+1
else
num=num+0.5
end if
end if