Public Sub GengXin(cWJ As String) Dim cWZ As String, nFJ As Integer nWJ = FreeFile ' 空闲的文件通道号 Combo1.Clear ' 清除下拉的列表框 Open cWJ for Input As #nWJ Do While Not(Eof(nWJ)) Line Input #nWJ, cWZ Combo1.AddItem cWZ ' 加载下拉框的数据行 Loop Close #nWJ End Sub ' 主调程序中加以下两句 cWJ = App.Path & "\ABC.TXT" ' 当前文件夹中的文本文件名 Call GengXin(cWJ) ' ……