爱问知识人 爱问教育 医院库

VB 随机取8个排列组合10组输出到文本框2

首页

VB 随机取8个排列组合10组输出到文本框2

取文本框1(multiline=true)内容如下:
aa,
56bc,
120qdf,
取而非,
foee.,
tom,
best,
7900,
5#额,
36hgfh,
ewfw,
bbbb,
38fe,
fwef45666,
rfgerg,

随机取8个排列组合10组.输出到文本框2

如图:
 

谢谢.

提交回答
好评回答
  • 2018-03-30 05:01:16
    Private Sub Command1_Click()
    Dim s() As String
    Dim i As Integer, j As Integer
    s = Split(Text1.Text, vbCrLf)
    Text2.Text = ""
    Randomize
    For i = 1 To Val(Text3.Text)
    Text2.Text = Text2.Text & "第" & i & "组" & vbCrLf & vbCrLf
    For j = 1 To 8
    Text2.Text = Text2.Text & s(Rnd * UBound(s))
    Next j
    Text2.Text = Text2.Text & vbCrLf & vbCrLf
    Next i
    End Sub

    烟***

    2018-03-30 05:01:16

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 172-191
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):