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
Step: 1
Get Instant Access to Expert-Tailored Solutions
See step-by-step solutions with expert insights and AI powered tools for academic success
Step: 2
Step: 3
Ace Your Homework with AI
Get the answers you need in no time with our AI-driven, step-by-step assistance
Get Started
Mobile Usability
Authors: Jakob Nielsen, Raluca Budiu
1st Edition
0133122131, 9780133122138
