主题：如何改成循环表达式，请教各位大神

 Dim ks As Integer = 26

 Dim str As String = ""

 For i As Integer = 0 to 50

    str &= sheet(ks+i, 2).Text

 Next

 dr("行程特色") = str