Private Sub Command1_Click()
Label1.Caption = Left(Text1.Text, 3)
End Sub
Private Sub Command2_Click()
Label2.Caption = Mid(Text1.Text, 2, 1)
End Sub
Private Sub Command3_Click()
Label3.Caption = "R" & Space(Val(Text1.Text)) & "S"
End Sub
Private Sub Command4_Click()
Label4.Caption = LTrim(Text1.Text)
Text2.Visible = True
End Sub
Private Sub Command5_Click()
Label5.Caption = String(Text2.Text, Text1.Text)
Text2.Visible = False
End Sub
Private Sub Command6_Click()
Label6.Caption = StrReverse(Text1.Text)
End Sub
Private Sub Command7_Click()
Label7.Caption = Len(Text1.Text)
End Sub
Private Sub Command8_Click()
Label8.Caption = Text1.Text + StrReverse(Text1.Text)
End Sub
Private Sub Form_Load()
Text2.Visible = False
End Sub
No comments:
Post a Comment
Thanks for Your Comment.