vb.net代码的小问题

vb.net代码的小问题

你可以用sub进行展开和缩起来；追问sub？sub不是函数吗？追答#Region "stringhhh"

#End Region
上面这个行吗？追问这个stringhhh是什么啊？追答是你给这个要折叠起来的区域的命名，随便取的追问#region语句在方法体/多行lambda无效追答那就是不行了，#Region "stringhhh"

#End Region在方法体外生效

可以的，有题目吗？追问题目是平面固结有限元可视化实现。说出来也没意义啊。要点一下计算按钮就把所有的东西全算出来保存到一个文本文档里。所以大部分代码都在button_click事件下。没办法缩起来。

Dim a, i As Integer, b As Object
        a = Len(TextBox1.Text)
        For i = 1 To a
            b = Mid(TextBox1.Text, i, 1)
            If 64 < Asc(b)  and  Asc(b) < 91 Or 96 < Asc(b)  and  Asc(b)< 123 Then
                TextBox2.Text = b & TextBox2.Text
            End If
        Next i