Question: Function SubStr( St As String) As String Sum=1 for x=1 to 8 if x mod 2 = 1 then S=Mid(St, x, x*2) Else S=Mid(St, x,
Function SubStr( St As String) As String Sum=1 for x=1 to 8 if x mod 2 = 1 then S=Mid(St, x, x*2) Else S=Mid(St, x, x+2) End if Next x SubStr=S End Function Sub Cmd_Click() Label.text= SubStr("Phones:987456124123456744") End Sub
987456124 :
9874561241
9874561241
98745612412
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
