• Home
 · 
• Miscellaneous
 · 
• Find Number's name

Find Number's name

Find Number's name

API Declarations


Dim no As Integer




Rate Find Number's name

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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