执行下面的程序，单击窗体后在窗体上显示的结果是_____.
Private Sub Form_Click()
Dim Str1 As String, Str2 As String        
Dim Str3 As String, I As Integer        
Str1="e"        
For I=1 To 2            
Str2=UCase(Str1)           
Str1=Str2  &  Str1           
Str3=Str3  &  Str1           
Str1=Chr(Asc(Str1)+I)        
Next I        
Print Str3
 End Sub