在线等！！！！ 写出程序结果

写出程序结果 （ 6分 ）
Private Sub command1_click()
Dim ch As String, i As integer
ch ="DEF"
For i = 1 to 3
ch =ch&Mid(ch, i, 1)
Next i
Print ch
End Sub

答案：_____

程序求助在线等 程序问题,在线等!!! 坏账准备 在线等 写出式子 写出实验原理(有图)在线等..... 求c++程序 在线等 Java程序题目!在线等 Java程序题 !在线等 程序问题 ！asp (在线等) 程序错误！！在线等 急 ！ VB程序问题 在线等!