Антон Федорян

Sub duplicate()
    Dim StrIn As String
    Dim StrOut As String
    Dim Symbol As String
    Dim Twice As Boolean
    
    StrIn = "835*23*2"
    Symbol = "2"
    StrOut = ""
    
    If InStr(StrIn, Symbol) > 0 Then
        Twice = True
    Else
        Twice = False
    End If
    
    For i = 1 To Len(StrIn)
        Char = Mid(StrIn, i, 1)
        Select Case Char
            Case Symbol
                StrOut = StrOut & Char
            Case "*"
                StrOut = StrOut
            Case Else
                StrOut = StrOut & Char
                If Twice Then
                    StrOut = StrOut & Char
                End If
        End Select
    Next i
    
    MsgBox (StrOut)
End Sub

for i in range(100000, 1000000):
	x = [int(item) for item in str(i)]
	if (sum(x[:3]) == sum(x[3:])):
		print(i)

a = [1, 2, 3, 4, 5, 6, 7]
x = []
x.extend(a[1:len(a)])
x.append(a[0])
x
>>> [2, 3, 4, 5, 6, 7, 1]