1)) List1.AddItem Chr(i) & Chr(j) Next j Next iElse List1.AddItem "数据不正常"End IfEnd Sub ||| 你表达不清楚.补充一下. 1)) To Asc(Right(Text2 1)) Dim j As Integer For j = Asc(Right(Text1 1)) To Asc(Left(Text2 Private Sub Command1_Click()List1.ClearDim i As IntegerIf Len(Text1) And Len(Text2) = 1 Then For i = Asc(Text1) To Asc(Text2) List1.AddItem Chr(i) NextElseIf Len(Text1) = 2 And Len(Text2) = 2 Then For i = Asc(Left(Text1