Odd and Even Number Puzzle aka FizzBuzz

[kotaramamohana]

I have modified second For Loop little bit

Code:

Dim strPattern, iNumber
strPattern = "*"
iNumber = 3
m=""

If iNumber Mod 2 = 0 Then
    print iNumber
    else
    
    For i = 1 To iNumber Step 1
        For j = 1 To i Step 1
             m= m & strPattern
        Next
        m= m & vbNewLine
    Next    
    
    For i = iNumber -1 To 1 Step -1
        For j = 1 To i Step 1
             m= m & strPattern
        Next
        m= m & vbNewLine
    Next
    
    
End If

msgbox m

---

Hi Ankur,
I have come up with one more logic is below

Code:

Dim strPattern, iNumber
strPattern = "*"
iNumber = 3
m=""

If iNumber mod 2 = 0 Then
    print iNumber
Else
maxNumber=inumber *2 -1
for i=1 to maxNumber  step 1
if i<=iNumber then : a=i: else :a=a-1: end if
    for j=1 to a step 1
     m= m& strPattern
    next
m=m&vbnewline
next
End if
Msgbox m