Printing pyramid in VB

Private Sub Command1_Click()
a = 1
For a = 1 To 5
b = 1 
For b = 1 To 6-a
Print " ";
Next b
c = 1
For c = 1 To a
Print "*";
Next c
Print
Next a
End Sub
 

/*
 * To change this template, choose Tools | Templates
 * and open the template in the editor.
 */
package myjava;
/**
 *
 * @author shalinig
 */
public class Pyramid {
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
 
        for (int a = 1; a <= 5; a++) {
 
            for (int b = 0; b <= 5-a; b++) {
                System.out.print(" ");
            }
            for (int c = 1; c <= a; c++) {
                System.out.print("* ");
            }
            System.out.print("\n");
        }
    }
}
 

shalini_goel14

Hi safwan,

Please check the following piece of code, if it can be of any help to you.😀

Private Sub Command1_Click()
a = 1
For a = 1 To 5
b = 1 
For b = 1 To 6-a
Print " ";
Next b
c = 1
For c = 1 To a
Print "*";
Next c
Print
Next a
End Sub
 

Please correct me if any syntax errors. Hope this logic will work for you.😀

[Note : The above code is not compiled and executed. So if any issues let me know. ]