Sub Button1_Click
' EditText1.text=CreatePyramid(5)
EditText1.text = myCreatePyramid(5)
End Sub
'Private Sub CreatePyramid( inputstr As Int) As String
' Private jo As JavaObject
' jo.InitializeContext
' Dim mystring As String=inputstr
' mystring=jo.RunMethod("PyramidPattern",Array(mystring))
' Return mystring
'End Sub
'#If Java
'Public string PyramidPattern (int N) {
' for (int i=0;i<N;i++){
' system.out.print(" ".Repeat(N-i-1));
' system.out.print("*".Repeat(2*i+1));
' }
' return ??
'}
'#End If
Private Sub myCreatePyramid(level As Int) As String
Private jo As JavaObject
jo.InitializeContext
Dim mystring As String = ""
mystring = jo.RunMethod("PyramidPattern",Array(level))
Return mystring
End Sub
#If Java
public String PyramidPattern(int N) {
String result = "";
String space = " ";
String asterisk = "*";
for (int i=0; i < N; i++) {
result += space.repeat(N-i-1);
result += asterisk.repeat(2*i+1);
result += "\n";
}
return result;
}
#End If