如何用VB写个字母组合或数字组合的程序

Question

额
问题有点简单
两个按钮
一个文本框
要求是在单击其中一个按钮后
文本框将显示所有的两位小写字母组合 例如“aa ab ac...............zz”从aa一直到zz
单击其中另一个按钮
文本框将显示所有的3位数字组合 例如“001 002 003.......999”从001一直到999

Answer 1

private sub command1_click
text1.text = "aa ab ac...............zz"
end sub
private sub command2_click
text1.text = "001 002 003.......999"
end sub

Answer 2

dim chars as string
chars = "abcdefghijklmnopqrstuvwxyz"
for i = 1 to 26
    for j = 1 to 26
        text1.text = text1.text & " " & mid(chars, i, 1) & mid(chars, i, 1)
    next
next
text1.text = trim(text1.text)

Answer 3

Option Explicit
'为了美观起见 把text1的ScrollBars属性设为2,MultiLine属性设为True
'两位字母组合
Private Sub Command1_Click()
    Dim i As Long, j As Long    Text1.Text = ""
    For i = 97 To 122 'a—z的ASCII
        For j = 97 To 122
            Text1.Text = Text1.Text & Chr(i) & Chr(j) & vbCrLf
        Next j
    Next i
End Sub
'三位数字组合
Private Sub Command2_Click()
    Dim i As Long, j As Long
    
    Text1.Text = ""
    For i = 1 To 999
        Text1.Text = Text1.Text & Right$("00" & CStr(i), 3) & vbCrLf
    Next i
End Sub

Answer 4

'三位数字组合
Private Sub Command1_Click()
   Dim i&, strTemp$
   strTemp = ""
   For i = 1 To 999
      strTemp = strTemp & Format$(i, "000") & vbCrLf
   Next
   text1.Text = strTemp
End Sub
字母组合参考 9F 或 LS ，唯一的建议是：
先在字符串变量中处理，把最终结果输出到控件中。

Answer 5

恩 ···我想分行显示怎么办 例如aa下一行显示ab ？

Answer 6

我的代码写的很清楚了，文本框多行属性设为true，每个结果后都加了一个vbCrLf，vbCrLf
为回车换行符