求一段代码 本人想注册某网站账号 需要邮箱（搜狐和163） 我想把这些邮箱顺序打乱

liuwenchao

求一段代码  本人想注册某网站账号  需要邮箱（搜狐和163） 我想把这些邮箱顺序打乱
具体是这样打乱的：
1.准备两个 文本，一个文本是搜狐邮箱，另一个文本是163邮箱

2.然后把这两个文本里边的邮箱放到第三个文本里边，然后我的意思是想把第三个文本的邮箱顺序打乱。  比如 ：
第一个是搜狐
第二个163邮箱
第三个是搜狐邮箱
第四个是163邮箱
.....................

为什么要打乱呢，因为我注册账号的这个网站如果大量用一类邮箱的话会有异常，所以想打乱邮箱的顺序，不一定是一个隔一个都有间隔出来的，比如100个搜狐邮箱后，下100个163邮箱，以此类推。

求代码，高手讲解下  谢了

君不见

.版本 2

.程序集 窗口程序集1
.程序集变量 文本1, 文本型, , "0"
.程序集变量 文本2, 文本型, , "0"
.程序集变量 n, 整数型
.程序集变量 m, 整数型
.程序集变量 x, 整数型

.子程序 _按钮1_被单击

文本1 ＝ 分割文本 (编辑框1.内容, #换行符, )
文本2 ＝ 分割文本 (编辑框2.内容, #换行符, )
.判断开始 (取数组成员数 (文本1) ＞ 取数组成员数 (文本2))
    m ＝ 取数组成员数 (文本1)
    .计次循环首 (m － 取数组成员数 (文本2), n)
        加入成员 (文本2, 文本1 [n])
    .计次循环尾 ()
.默认
    m ＝ 取数组成员数 (文本2)
    .计次循环首 (m － 取数组成员数 (文本1), n)
        加入成员 (文本1, 文本2 [n])
    .计次循环尾 ()

.判断结束

.计次循环首 (取数组成员数 (文本1), n)
    编辑框3.加入文本 (文本1 [n] ＋ #换行符)
    编辑框3.加入文本 (文本2 [n] ＋ #换行符)
.计次循环尾 ()

至于怎么把文档导入到编辑框 和文档写到文件 我想你该知道

Cramps

先文本分割，然后再逐个插入

liuwenchao

给举个例子，给代源码  我看下是怎么弄的 谢了

NeverLoveAgain

循环插入，

laneagle007

楼上说的好详细