Как разделить двузначное число из текстового поля и сохранить цифры в метках

Question

Как разделить двухзначное число из текстового поля и поместить первую цифру в одну метку, а вторую цифру в другую метку при нажатии кнопки?

Answer 1

Предполагается, что в форме есть одно текстовое поле (TextBox1), две метки (Label1, Label2) и кнопка (Button1).

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1.Text = "First digit:" & TextBox1.Text.Substring(0, 1)
    Label2.Text = "Second digit:" & TextBox1.Text.Substring(1, 1)
End Sub

Конечно, вы должны проверить длину и, если ееперед тем, как сделать это, нужно ввести число, поэтому хорошей практикой будет добавление проверки:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("You have to enter a number between 10 and 99 in the textbox.", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, "Not a number")
        ElseIf TextBox1.Text.Length <> 2 Then
            MsgBox("You have to enter a 2 digit number in the textbox.", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, "Not a 2 digit number")
        Else
            Label1.Text = "First digit:" & TextBox1.Text.Substring(0, 1)
            Label2.Text = "Second digit:" & TextBox1.Text.Substring(1, 1)
        End If
    End Sub

Answer 2

Предполагая, что вы хотите ввести число в текстовое поле, нажмите кнопку, и в текстовом поле отобразится число с цифрами, разделенными пробелом.

Dim sNum As String
sNum = tbNum.Value 'assuming tbNum is the name of the textbox control
Dim sNewNum As String
Dim i As Integer
For i = 1 To Len( sNum )
    sNewNum = Mid( sNum, i, 1 )
    If i < Len( sNum ) Then sNewNum = sNewNum & " " 
Next
tbNum.Value = sNewNum

Теперь это не былопроверено (прямо от мозга к клавиатуре), но это основная идея, рассматривая число как строку символов.