首页电脑/网络程序设计 VB

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

取文本框1(multiline=true)内容如下: aa, 56bc, 120qdf, 取而非, foee., tom, best, 7900, 5#额, 36hgfh, ewfw, bbbb, 38fe, fwef45666, rfgerg, 随机取8个排列组合10组.输出到文本框2 如图: 谢谢.

全部回答

1***

2006-12-31

0 0

    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。

提交

相关回答

南***

2010-12-21

用vb或者vba在excel里编

   生成excel表格。。。。。。。。。。。。。\生成ｅｘｃｅｌ表格。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\bin 。。。。。。。。。。。。。\。。。。
  。。。。。。。。。。。。。。\。。。\Debug 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。\Release 。。。。。。。。。。。。。\。。。。。。。。
  。。。。。。。。。。\Form1。Designer。vb 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\ sx 。。。。。。。。。。。。。\。。。。。。。。。。。。
  。。。。。。\Form1。vb 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\My Project 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。
  \。。。。。。。。。。\Application。Designer。vb 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。。。。。。。。\ app 。。。。。。。
  。。。。。。\。。。。。。。。。。。。。。。。。。\。。。。。。。。。。\AssemblyInfo。vb 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。。。。。。
  。。\Resources。Designer。vb 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。。。。。。。。\ sx 。。。。。。。。。。。。。\。。。。。
  。。。。。。。。。。。。。\。。。。。。。。。。\Settings。Designer。vb 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。。。。。。。。\ ttings 。
  。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\obj 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。\Debug 。。。。。。。。。。。。。
  \。。。。。。。。。。。。。。。。。。\。。。\Release 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\。。。\生成ｅｘｃｅｌ表格。vbproj。FileList。
  txt 。。。。。。。。。。。。。\。。。。。。。。。。。。。。。。。。\生成ｅｘｃｅｌ表格。vbproj 。。。。。。。。。。。。。\生成ｅｘｃｅｌ表格。sln 按优先级由高到低的次序排列的运算符如下：括号 → 指数 → 一元减 → 乘法和除法 → 整除 → 取模 → 加法和减法 → 连接 → 比较 → 逻辑（And、Or、Not、Xor、Eqv、Imp）。
   【仅供参考】。收起

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

全部回答

相关回答

用vb或者vba在excel里编

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

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

全部回答

相关回答

用vb或者vba在excel里编

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换