WAP in which integer number is entered by the user and its table is printed on form.
___________________________________________________________
Private Sub Command1_Click()
Dim a, i, j, k
a = Val(Text1.Text)
If a > 0 Then
For i = 0 To 9
For j = a To a
k = Str(j) & " * " & Str(i) & " = " & i * j
Print k
Next j
Next i
Else
MsgBox ("Number is less then or equal to zero")
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
table.Cls
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
___________________________________________________
OUTPUT
___________________________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment