vb编程 随机生成20个（两位正整数）存放到Text1中，找出其中的偶数并以与找出（相反）的顺序存放到Text2中

private sub command1_click()
dim a(20),b()
for i=1 to 20
a(i)=int(rnd*90)+10
text1.text=text1.text & a(i) & " "
if a(i) mod 2=0 then
j=j+1
redim preserve b(j)
b(j)=a(i)
end if
next
for i=j to 1 step -1
text2.text=text2.text & b(j) & " "
next
end sub本回答被提问者采纳

text1.text=""
text2.text=""

Dim a As Integer

For i = 0 To 19
Randomize
a = (Rnd * 999999) Mod 90 + 10'生成随机数
Text1.Text = Text1.Text & a & vbCrLf'将随机数放到第一个文本框并回车，文本框的multiline属性值要为true才有效果
If a Mod 2 = 0 Then
Text2.Text = a & vbCrLf & Text2.Text
End If
Next

把这个放到按钮或加载中去。