求高手做两个VB程序设计代码，在线等啊，，，，急急

Question

2.设置三个文本框，一个命令按钮，在文本框内分别输入整数，点击命令按钮能将其中的偶数及它们的和输出。

3.随机产生的10个20-100之间的正整数显示在窗体第一行;然后用递增的顺序进行排序，显示在窗体第二行。

Answer 1

在文本框里每个数字以 空格 为分界
Private Sub Command1_Click()
Dim A(10) As Integer
Randomize
For I = 0 To 9
A(I) = Int(Rnd * 81 + 20)
Print A(I) & Space(1);

Next I
Print
Print "排列后"
For I = 0 To 8
For J = I + 1 To 9
If A(I) > A(J) Then temp = A(I): A(I) = A(J): A(J) = temp
Next J
Next I
For I = 0 To 9
Print A(I) & Space(1);
Next
End Sub

Private Sub Command2_Click()
t = Split(Text1, " ")
Print "偶数为"
For I = 0 To UBound(t) - 1
If Val(t(I)) Mod 2 = 0 Then

Print t(I) & Space(1);
Sum = Sum + Val(t(I))
End If
Next
Print
Print "偶数和：" & Sum
End Sub

Answer 2

设计卡拉OK比赛评分程序，在窗体上建立三个标签，建立一个名为Test1的文本框Private Sub Command1_Click() Dim i As Integer, m As Integer, n As