The output will print "Hello" 10 times(Do-While Loop)
A) Property :
Command button : NAME- Command1 , CAPTION- Click Command button : NAME- Command2 , CAPTION- Exit |
B) Attaching Code to the Object :
Private Sub Command1_Click() Dim num, count num = 10 count = 0 Do While count < num Print "Hello" count = count + 1 Loop End Sub Private Sub Command2_Click() End End Sub |
No comments:
Post a Comment