VB 随机取8个排列组合10组输出到文本框2
取文本框1(multiline=true)内容如下: aa, 56bc, 120qdf, 取而非, foee., tom, best, 7900, 5#额, 36hgfh, ewfw, bbbb, 38fe, fwef45666, rfgerg, 随机取8个排列组合10组.输出到文本框2 如图: 谢谢.
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
答:A=Replace("abcd","c","C")详情>>
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>