1、么随机产生1--100的10个整数?

PS: 我发现每次执行时的结果都一样.

'For i = 1 To 10
'a(i) = Int(Rnd * 100)
'Print a(i)
'Next i

比如第一次执行显示1到10,再执行显示2-11

关闭程序,再打开执行,第一次又是1到10,再执行又是2-11

2、得出来的数据怎么让他显示在一个TEXTBOX里？？

3、如果我要输入一个数据，进行查找，若有，则删除。没有跳出提示。为什么也不行

For i = 0 To 9
If j = a(i) Then
a(i) = a(i + 1)
Next i
Else
message = MsgBox("输入数字未找到", 0)
End If

j 为我输入的数据