28
Concatenate 10,000 strings: ASPX (VB)
l<%@ Page language="VB" debug="false" %>
l<%
lResponse.Write("Start "+CSTR(NOW())+"<br>")
lDIM s AS String,i AS Integer,nStart AS Double
lnStart=TIMER
ls=""
lFOR i=1 TO 20000
l  s=s+CSTR(i)
lNEXT
lResponse.Write("Done "+CSTR(TIMER-nStart)+" "+CSTR(LEN(s))+" 20,000<br>")
l%>
l
lOn 850 MHz PIII: 21.6 seconds (longer because strings are recopied)
l