附件的Form1的代码：
Private Sub Command1_Click()
   For i = 1 To 9
     s = s & Chr(10) & i
   Next
      s
      = 2
     Form2.Show 0
     Unload Me
End Sub
Form2“组合框”的代码：
Private Sub Form_Load()
   With Combo1
    .AddItem Combo1.ItemData(0)'这里有错，如何改，才能显示s
   End With
End Sub

[此贴子已经被作者于2016-5-6 08:53编辑过]

附件在3楼，清大侠帮忙。谢谢。

把Form2“组合框”的代码清空即可显示s

就是有一点不解：为何显示s时是一行（即123456789），而不是一列的某一个数（即chr(10)不起作用）？