Question

Programming in Visual Basic

Create a telephone-number word generator and give it the ability to write to a file every possible seven-letter word combination corresponding to a telephone number.

Answer 1

Public Class FrmWordGenerator
Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerateWord.Click
If Not IsNumeric(txtPhoneNumber.Text) Then
txtPhoneNumber.Text = ""
Else
If txtPhoneNumber.Text.Length < 7 Then
MessageBox.Show("Phone Number Must Be 7 Digits Long")
Else
Dim phoneNumber As Integer = Convert.ToInt32(txtPhoneNumber.Text)
Dim letters(,) As String = {{" ", " ", " "},
{" ", " ", " "}, {"A", "B", "C"}, {"D", "E", "F"},
{"G", "H", "I"}, {"J", "K", "L"}, {"M", "N", "O"},
{"P", "R", "S"}, {"T", "U", "V"}, {"W", "X", "Y"}}
Dim digits(6) As Integer
Dim output As String = String.Empty
For i = 6 To 0 Step -1
digits(i) = phoneNumber Mod 10
phoneNumber \= 10
Next
For Loop1 = 0 To 2
For Loop2 = 0 To 2
For loop3 = 0 To 2
For loop4 = 0 To 2
For loop5 = 0 To 2
For loop6 = 0 To 2 For loop7 = 0 To 2
output &= String.Format("{0, -7}",
letters(digits(2), Loop1) &
letters(digits(3), Loop2) &
letters(digits(4), loop3) &
letters(digits(5), loop4) &
letters(digits(6), loop5) &
letters(digits(7), loop6) &
letters(digits(8), loop7))
Next loop7
Next loop6
Next loop5
Next loop4
Next loop3
Next Loop2
Next Loop1
txtOutput.Text = output
End If
End If
End Sub
End Class