VB问题，会的帮个忙，

来源：百度知道 编辑：UC知道 时间：2024/06/23 13:34:31
在text1中输入要随机选择的值，在TEXT2中输入要随机选择的值，点COMMAND1系统会将TEXT1和TEXT2中随机选择的值输出到TEXT3中，格式是：TEXT3=TEXT1 ，TEXT2 要按顺序，

如：TEXT1=01，02，03，04，05，06，07，08，09，10，11，12，13
TEXT2=21，22，23，24，25，26，27，28，29，30，31，32，33

点了COMMAND1
TEXT3=01，04，06，09，10，13，22，27，28，33

要按顺序，前6位是TEXT1的值，后4位是TEXT2的值，每一组输出的值必须是随机选择的，

你是在做彩票预测之类的东东吧？！
用ArraylistA ArraylistB两个数组分别保存text1和text2中的数据。

arraylistA的维数<6 或者 arraylistB的维数<4 都报错

AA,AB分别代表两个数组的维数

从0到AA-1生成随机数i，然后把这listA(i)从A中移出，并放入
text3,重复6次这个操作。

从0到BB-1生成随机数i，然后把这listB(i)从B中移出，并放入
text3,重复4次这个操作。

代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arrarylistA, arrarylistB, arrarylistC As New ArrayList

Dim i, key As Integer
If String.IsNullOrEmpty(TextBox1.Text) Or String.IsNullOrEmpty(TextBox2.Text) Then Exit Sub
arrarylistA.AddRange(TextBox1.Text.Split(","))
arrarylistB.AddRange(TextBox2.Text.Split(","))
If arrarylistA.Count < 6 or arrarylistB.Count < 4 Then Exit Sub
For i = 0 To 5
key = CInt((arrarylistA.Count - 1) * Rnd())
'MsgBox(key)
arrarylistC.Add(arrarylistA(key))
arrarylistA.RemoveAt(key