我的If哪里出了问题？整个计算都是乱的

嵌套If什么鬼，把第二个和第三个If都改成ElseIf，相应配对的End If也删掉

哦哦

dim i
for i＝0 to 5
if ckeck1(i).ckecked＝1 then label1(i).caption＝val(text1(i).text)*val(text2(i).text)*val(text3(i).text)*val(text4(i).text)*val(text5(i).text)
else
label1(i).caption＝0
end if
next i
合计.caption＝0
for i＝0 to 5
if check1.checked＝1 then 合计.caption＝val(label1 (i).caption)+val(合计.caption)
next i

亚马逊计费？