Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и…

VB.Dim n As Integer n=InputBox ("Введите n") Dim summ As Integer Dim i As Integer For i=1 To Len (n) summ+=CInt (Mid (CStr (n) , i, 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next MsgBox ("количество цифр числа n=" & Len (n) & ", сумма его цифр равна " & summ & " и первая цифра -" & CInt (Mid (CStr (n) , 1, 1)