Code help please :)

Function Button1_onclick()
End Function

Dim Array1  
     Array1= Array    
          Item1="milk"        
          Item2="honey"    
          Item3="crackers"

Function Button1_onclick()
Textbox1.value=array1
End Function

Function Button1_onclick()
Dim Array1  
     Array1= Array    
          Item1="milk"        
          Item2="honey"    
          Item3="crackers"
Textbox1.value = Item1 + Item2 + Item3

End Function

   Dim editText1 As EditText
   editText1.Initialize("editText1")
   Activity.AddView(editText1,0,0,100%x,150dip)
   editText1.SingleLine = False
   Dim arr(3) As String
   arr(0) = "milk"
   arr(1) = "honey"
   arr(2) = "crackers"
   editText1.Text = arr(0)&CRLF&arr(1)&CRLF&arr(2)

Sub Activity_Create(FirstTime As Boolean)
   Dim editText1 As EditText
   editText1.Initialize("editText1")
   Activity.AddView(editText1,0,0,100%x,10dip)
   editText1.SingleLine = False
   Dim arr(4) As String
   arr(0) = "milk"
   arr(1) = "honey"
   arr(2) = "crackers"
   arr(3) = "cheese"
   editText1.Text = arr(0)&CRLF&arr(1)&CRLF&arr(2)&CRLF&arr(3)
End Sub