vb.net 如何将2009这个四位数拆成2，0，0，9这四个个位数

来源：百度知道 编辑：UC知道 时间：2024/06/04 23:22:24
如果有两个语句要执行,比如我既要反转字符串又要使这字符串由小写变为大写,abc变成CBA

我的代码这样写的
Me.txt2.Text = StrReverse(Me.txt1.Text)
Me.txt2.Text = LCase(Me.txt1.Text)

可就是不能同时执行，该怎么办。。。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
str = "2009"
TextBox1.Text = str.Substring(0, 1)
TextBox2.Text = str.Substring(1, 1)
TextBox3.Text = str.Substring(2, 1)
TextBox4.Text = str.Substring(3, 1)

End Sub

===================================
假如2009为数字的话，可以这样：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As Long
num = 2009
TextBox1.Text = CStr(num).Substring(0, 1)
TextBox2.Text = CStr(num).Substring(1, 1)
TextBox3.Text = CStr(num).Substring(2, 1)
TextBox4.Text = CStr(num).Substring(3, 1)
End Sub

====================================
当然，方法多种多样，如果是字符串可以使用mid()函数来取得各位，如果是数字，还可以按一下方法获取各位：
TextBox1.Text = Int(2009 / 1000)
TextBox2.Text = Int((2009 Mod 1000) / 100)
TextBox3.