Form1.vb
Public Class NumberInWord
Private Sub ButtonShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShow.Click
TextBoxWord.Text = ""
Dim amount, dummy, rev, rem1, count, temp As Integer
rev = 0
count = 0
amount = CInt(TextBoxNumber.Text)
dummy = amount
While (dummy <> 0)
rem1 = dummy Mod 10
If rem1 = 0 Then
count = count + 1
Else
Exit
While
End If
dummy = dummy \ 10
End While
'MessageBox.Show(dummy)
dummy = amount
While (dummy <> 0)
rem1 = dummy Mod 10
rev = rev * 10 + rem1
dummy = dummy \ 10
End While
dummy = amount
MessageBox.Show("Amount In
Word", "Amount
In Word")
While (rev <> 0)
rem1 = rev Mod 10
Select Case (rem1)
Case 0
TextBoxWord.Text += "Zero"
Case 1
TextBoxWord.Text += "One"
Case 2
TextBoxWord.Text += "Two"
Case 3
TextBoxWord.Text += "Three"
Case 4
TextBoxWord.Text += "Four"
Case 5
TextBoxWord.Text += "Five"
Case 6
TextBoxWord.Text += "Six"
Case 7
TextBoxWord.Text += "Seven"
Case 8
TextBoxWord.Text += "Eight"
Case 9
TextBoxWord.Text += "Nine"
End Select
rev = rev \ 10
End While
For temp = 1 To count
TextBoxWord.Text += "Zero"
Next
End Sub
End Class
0 comments
Post a Comment