VB – 循环过程中出现的ini写入问题

初始代码
For i = 1 To SwitchNum
WriteIniStr "Dsis", "sid" & i, i, cmdOpen.FileName
For j = 1 To 26
WriteIniStr "Dsis", "intid" & i, j, cmdOpen.FileName
WriteIniStr "Dsis", "state" & i, IntSwitchState(j, i), cmdOpen.FileName
'该部分循环失效,原意要产生一个1-26循环写入的效果
'如:[Dsis]
sid1=1
intid1=1
…
intid26=26
'结果ini文件中只有intid1=26
Next j
Next
. 更正代码
For i = 1 To SwitchNum
WriteIniStr "Dsis", "sid" & i, i, cmdOpen.FileName
For j = 1 To 26
WriteIniStr "Dsis", "intid" & j, j, cmdOpen.FileName
WriteIniStr "Dsis", "state" & j, IntSwitchState(j, i), cmdOpen.FileName
Next j
Next
'由于错误的将子键initid后的参数设为i,导致循环过程中的子键intid一直保持不变,而不能循环写入1-26个子键