Visual Basic 6.0 Programming learning

object:

frmMultiply>caption>multiplication Table.
cmdDisplay>caption>Display Table.
picTable.

code:

private sub cmdDisplay_click()
dim j as integer, k as integer
picTable.Cls
For j = 1 To 4
For k = 1 To 4
picTable.print j; "x" ; k; "=";j * k,
Next j
End Sub

[Run and press the command button]

Taste this.....??

The following program accepts a word as input &displays it backwards.
frm6_3_3>caption>write backwards.
lblword>caption>enter word.
txtword>text>(blank).
cmdreverse>caption>reverse letters.
pictranspose.

code:
private sub cmdreverse_click()
pictranspose.cls
picstranspose.print reverse(txtword.text)
end sub

private function reverse(info as string) as string.
dim m as integer, j as integer, temp as string.
m=len(info)
temp=""
for j =m to 1 step -1
temp =temp + mid(info, j , 1)
next j
reverse= temp
end function

[run,type Suez into the text box, and click the command button.]