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

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Programming Questions!