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
VB 穷举字符
最新推荐文章于 2025-12-31 09:50:55 发布
930

被折叠的 条评论
为什么被折叠?



