vb提取数组 文本框1有1 2,1 3,1 4,1 5等数组,每次取3组数,有4种情况,

vb提取数组文本框1有12,13,14,15等数组,每次取3组数,有4种情况,第一种12,13,14第二种12,13,15第三种12,14,15第四种13,14,15我的... vb提取数组
文本框1有1 2,1 3,1 4,1 5等数组,每次取3组数,有4种情况,第一种1 2,1 3,1 4第二种1 2,1 3,1 5第三种1 2,1 4,1 5第四种1 3,1 4,1 5我的问题是,我在文本框2中输入1(1表示第一种情况),就在文本框3种显示1 2,1 3,1 4输入2就显示1 2,1 3 ,1 5依此类推,先谢谢老师!
展开
 我来答
百度网友c34f6e7
2016-07-26 · TA获得超过101个赞
知道小有建树答主
回答量:166
采纳率:88%
帮助的人:110万
展开全部
Private Sub Form_Load()
Text1.Text = "12,13,14,15"
End Sub

Private Sub Text2_Change()
Dim TEMP() As String
Dim i As Integer, j As Integer, k As Integer, l As Integer
'检测文本框数据
If Len(Text1) = 0 Then Text3.Text = "": Exit Sub
If UBound(Split(Text1, ",")) <> 3 Then Text3.Text = "": Exit Sub
If Len(Text2) = 0 Then Text3.Text = "": Exit Sub
If Val(Text2) <= 0 Or Val(Text2) > 4 Then Text3.Text = "": Exit Sub
ReDim TEMP(0) As String '重新定义数组
'将所有组合保存到数组
For i = 0 To UBound(Split(Text1, ",")) - 2
For j = i + 1 To UBound(Split(Text1, ",")) - 1
For k = j + 1 To UBound(Split(Text1, ","))
If TEMP(0) <> "" Then ReDim Preserve TEMP(UBound(TEMP) + 1)
TEMP(UBound(TEMP)) = Split(Text1, ",")(i) & "," & Split(Text1, ",")(j) & "," & Split(Text1, ",")(k)
Next
Next
Next

Text3.Text = TEMP(Val(Text2) - 1)
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式