編寫一個VB程序，功能如下：單擊“隨機數(shù)”按鈕Command1，隨機產(chǎn)生n個[10，50]范圍的偶數(shù)。單擊“計算”按鈕Command2，在這n個隨機數(shù)中找出四個數(shù)a,b,c,d,滿足d=a+b+c,且d為所有滿足條件組合中的最大值，如果存在符合要求的d,則在Text2中顯示d的值，否則顯示“no solution“。
例如：42、50、14、16、22、10、34、10、12、38這10個數(shù)中，最大的d為50，50=12+16+22。
請回答下列問題：
（1）分析程序可知，生成隨機數(shù)的事件處理過程名是

Command1_Click

Command1_Click

。
（2）實現(xiàn)功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Dim a（1 To 20）As Integer
Const n=10
Private Sub Command1_Click （　　）
Dim i As Integer
Randomize
For i=1 To n
a（i）=

Int（Rnd*21+5）*2

Int（Rnd*21+5）*2

Text 1.Text=Text 1.Text+Str（a（i））
Next i
End Sub
Private Sub Command2_Click （　?。?br />Dim i As Integer,j As Integer,t As Integer
Dim left As Integer,right As Integer
Dim ans As Integer,flag As Bool ean
flag=True
’對數(shù)組a進行升序排序，代碼略
i=n
Do While i＞=1 And flag
j=i-1
Do While j＞=1 And flag.

ans=a（i）-a（j）

ans=a（i）-a（j）

left=1
right=j-1
Do While 

left＜right And flag

left＜right And flag

If ans＞a（left）+a（right） Then
left=left+1
ElseIf ans＜a（left）+a（right） Then
right=right-1
Else
Text2.Text=Str（a（i））
flag=False
End If
Loop
j=j-1
Loop

i=i-1

i=i-1

Loop
If flag Then
Text2.Text=“no solution“
End If
End Sub