~~~过程太大错误的解决！~~~
coursenumber = GetINI("coursenumber", "coursenumber", App.Path & "\course.ini")

If coursenumber = 0 Then

ElseIf coursenumber = 1 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))

List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))

List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))

ElseIf coursenumber = 2 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c2", App.Path & "\course.ini"))

List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c2", App.Path & "\course.ini"))

ElseIf coursenumber = 3 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c2", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c3", App.Path & "\course.ini"))

List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c2", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c3", App.Path & "\course.ini"))

List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c2", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c3", App.Path & "\course.ini"))

ElseIf coursenumber = 4 Then
List1.AddItem (GetINI("course", "c1", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c2", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c3", App.Path & "\course.ini"))
List1.AddItem (GetINI("course", "c4", App.Path & "\course.ini"))

List2.AddItem (GetINI("teacher", "c1", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c2", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c3", App.Path & "\course.ini"))
List2.AddItem (GetINI("teacher", "c4", App.Path & "\course.ini"))

List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c2", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c3", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c4", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c1", App.Path & "\course.ini"))
List3.AddItem (GetINI("class", "c2", App.Path & "\course.ini"))
End If

'course.ini文件内容如下

[course]
c1=计算机安全
c2=计算机图形学
c3=软件工程
c4=网络工程
c5=嵌入式系统
c6=文秘基础素养
c7=
c8=
c9=
c10=
c11=
c12=
c13=
c14=
c15=
c16=
c17=
c18=
c19=
c20=
[teacher]
c1=蔡敏
c2=韩云
c3=徐秋月
c4=吴其林
c5=韩云
c6=罗蓉
c7=
c8=
c9=
c10=
c11=
c12=
c13=
c14=
c15=
c16=
c17=
c18=
c19=
c20=
[class]
c1=新教学楼204
c2=老教学楼东二
c3=老教学楼402
c4=艺术楼东204
c5=计算机楼204
c6=新教学楼102

c7=
c8=
c9=
c10=
c11=
c12=
c13=
c14=
c15=
c16=
c17=
c18=
c19=
c20=
[coursenumber]
coursenumber=6


最多要写到20，类似这样的东西，要怎么写成循环的形式呢？写多了VB报“过程太大”错误！求高手帮忙！

[解决办法]

VB code

' 你自己要保证三个 ListBox 的项目数量相同Private Sub SaveToINI()    Dim strINIfile$, strKey$, i&    strINIfile = App.Path & "\course.ini"    If (List1.ListCount > 0) Then        For i = 0 To List1.ListCount            strKey = "C" & i + 1            WritePrivateProfileString "course", strKey, List1.List(i), strINIfile            WritePrivateProfileString "teacher", strKey, List2.List(i), strINIfile            WritePrivateProfileString "class", strKey, List3.List(i), strINIfile        Next        WritePrivateProfileString "coursenumber", "coursenumber", i, strINIfile    End IfEnd Sub