作业帮用VB对A B对于的数字排列有如下数据：A:2,3 B:5,6,7,9A:2 B:5,6,7,9A后面的数字范围0-9,最少1个,最多2个,B后面的数字范围0-9,最少1个,最多9个,要求以A中的数字为固定然后与B中的数字组合成三位数.A中
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/29 13:12:51
用VB对A B对于的数字排列有如下数据：A:2,3 B:5,6,7,9A:2 B:5,6,7,9A后面的数字范围0-9,最少1个,最多2个,B后面的数字范围0-9,最少1个,最多9个,要求以A中的数字为固定然后与B中的数字组合成三位数.A中
用VB对A B对于的数字排列
有如下数据：
A:2,3 B:5,6,7,9
A:2 B:5,6,7,9
A后面的数字范围0-9,最少1个,最多2个,
B后面的数字范围0-9,最少1个,最多9个,
要求以A中的数字为固定然后与B中的数字组合成三位数.A中数字个数为1个时,则占百位,2个时,则占百位和十位.
A:2,3 B:5,6,7,9 手动转换后为：
235
236
237
239
A:2 B:5,6,7,9 手动转换后为：
256
257
259
267
269
279
用VB对A B对于的数字排列有如下数据：A:2,3 B:5,6,7,9A:2 B:5,6,7,9A后面的数字范围0-9,最少1个,最多2个,B后面的数字范围0-9,最少1个,最多9个,要求以A中的数字为固定然后与B中的数字组合成三位数.A中
'将Text2.MultiLine = True
Private Sub Command2_Click()
Dim s As String, s2 As String, s3 As String
Dim i As Integer, k As Integer
Dim sl1 As Variant, sl2 As Variant
s1 = "2"
s2 = "5,6,7,9"
sl1 = Split(s1, ",")
sl2 = Split(s2, ",")
s3 = ""
If UBound(sl1) > 0 Then
For i = 0 To UBound(sl2)
s3 = s3 & vbCrLf & sl1(0) & sl1(1) & sl2(i)
Next
Else
For i = 0 To UBound(sl2)
For k = i + 1 To UBound(sl2)
s3 = s3 & vbCrLf & sl1(0) & sl2(i) & sl2(k)
Next
Next
End If
Text2.Text = s3
End Sub