Visual Basic NET ( 3)


         


133.

134.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' 6
Dim s As String = ""
Debug.WriteLine(Mid(s, 1, 2) + "" + Mid(s, 3, 2) + "" + Mid(s, 5, 2) + "") '1
Debug.WriteLine(s.Insert(6, "").Insert(4, "").Insert(2, "")) '2
' . String,
' Insert. .
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'
Dim s As String = ""
Dim As String = "" '
Dim i As Integer
For i = 0 To s.Length \ 2 - 1 'Len(s) \ 2 -
' "":
= + s.Substring(2 * i, 2) + ""
Next
' , :
If Len(s) Mod 2 = 1 Then = + Strings.Right(s, 1)
Debug.WriteLine()
End Sub
135.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim s, s1 As String '
Dim _, _ As Char
s = " , , ."
s1 = "" '
Dim i As Integer
For i = 0 To Len(s) - 1 '

    





Forekc.ru
, , , , , , , , , ,