VB 随机组合字符

来源：百度知道 编辑：UC知道 时间：2024/05/17 06:45:22
现在有一难题: 位数只能是2位或是3位,前面必须是某个字符

如:前面一位为1...与2.3.4.5.组合
那只有可能是
12
13
123
14
124
134
15
125
135
等等..

不知道说清楚了没有?

不能重复..比如我前面设置了第一位数只能是1.并且一定是2位或是3位,且不会重复..请教代码

Private Sub Form_Click()
Dim F As String, S As String, P As String
F = InputBox("请输入第一个字符")
S = Trim(InputBox("请输入可能出现的字符(请连着输入，如 2345)"))
For J = 1 To Len(S)
P = Mid(S, J, 1)
Print F & P
For k = 1 To Len(S)
If k <> J Then
Print F & P & Mid(S, k, 1)
End If
Next
Next
End Sub

s="1"
for i = 2 to 5
print s & i
next i
for i = 2 to 4
for j = i+1 to 5
print s & i & j
next j
next i

我做过类似的。一时想不起来。回头我找找去。