Find Number's name

by Ravikant Amane (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 10^th August 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Find Number's name

API Declarations
Dim no As Integer

Rate Find Number's name



'take label and Change name Label8
'take text box "do not" change name
'write code on command's click event


no = Val(Text1.Text)
    If Text1.Text = "" Then
            MsgBox "Pls.Enter the Number........!!!!!!"
    End If
 
    If no = 1 Then
        Label8.Caption = "One"
    ElseIf no = 2 Then
        Label8.Caption = "Two"
    ElseIf no = 3 Then
        Label8.Caption = "Three"
    ElseIf no = 4 Then
        Label8.Caption = "Four"
    ElseIf no = 5 Then
        Label8.Caption = "Five"
    ElseIf no = 6 Then
        Label8.Caption = "Six"
    ElseIf no = 7 Then
        Label8.Caption = "Seven"
    ElseIf no = 8 Then
        Label8.Caption = "Eight"
    ElseIf no = 9 Then
        Label8.Caption = "Nine"
    ElseIf no = 10 Then
       Label8.Caption = "Ten"
    ElseIf no > 10 Then
        MsgBox "Not Valid No!!, Pls. below of Ten Number."
        Text1.Text = ""
    End If

Download this snippet Add to My Saved Code

Find Number's name Comments

No comments have been posted about Find Number's name. Why not be the first to post a comment about Find Number's name.

Find Number's name

Find Number's name Comments

Post your comment

Difficulty