Vb扰乱英语

制作一个文本框Text1，将其Multiline属性设置为True，然后制作一个Command1按钮。代码如下:

私有子命令1_Click()

Dim a(9)为整数，I为整数，t为整数

Text1。文本= " "

对于i = 1到9

a(i) = i

接下来我

使不规则化

对于i = 9到1步进-1

t = Int(i * Rnd) + 1

Text1。Text = Text1。文本& amp阿(t)& amp；vbCrLf

a(t) = a(i)

接下来我

末端接头