Skip to main content

Engineering Computer Science Programming with Microsoft Visual Basic 2017

Program plan: The variable strIsbn of type String is used to hold ISBN entered by the user. The variable intDigit of type Integer is used to hold the individual digits in the user-entered ISBN. The variable intGrandTotalof type Integer is used to hold the modified ISBN. The variable intRemainder of type Integer is used to hold the remainder of the modified ISBN modulus 10. The variable intCheckDigit of type Integer is used to hold the final ISBN having the check digit. An if-else statement is used to verify whether the user-entered ISBN has 12 digits. A for loop is used to calculate the modified ISBN. Another if-else statement is used to check whether the individual digit of the ISBN is even or odd. Another if-else statement is used to check whether the remainder is 0. Program description: The main purpose of the program is to calculate the check digit and display the ISBN with the check digit. Program: Public Class Form1 Private Sub btnAssign_Click(sender As Object, e As EventArgs) Handles btnAssign.Click ' Assign a check digit to an ISBN. Dim strIsbn As String Dim intDigit As Integer Dim intGrandTotal As Integer Dim intRemainder As Integer Dim intCheckDigit As Integer If txtIsbn.Text.Length = 12 Then strIsbn = txtIsbn.Text For intNum As Integer = 0 To 11 Step 2 Integer.TryParse(strIsbn(intNum), intDigit) If (intNum Mod 2) <> 0 Then intGrandTotal += (intDigit * 3) Else intGrandTotal += intDigit End If Next intNum intRemainder = intGrandTotal Mod 10 If intRemainder <> 0 Then intCheckDigit = 10 - intRemainder End If lblFinalIsbn.Text = strIsbn & intCheckDigit.ToString Else MessageBox.Show("Please enter 12 numbers.", "Check Digit", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Close() End Sub End Class Explanation: In the above program, inside the btnAssign_Click() procedure, an if statement is used to check whether the user-entered ISBN has 12 digits. If the user-entered ISBN has 12 digits, implement a for-next loop. Inside the for-next loop, individual digits are extracted from the ISBN. If the position of the digit is even, the digit is added as it is added to the variable holding the new ISBN. If the position of the digit is odd, the digit is multiplied by 3 and then added to the variable holding the new ISBN. Next, the remainder of the new ISBN modulus 10 is assigned to another variable. If the remainder is not 0, the remainder is subtracted from 10 and the resultant digit is assigned to another variable. This resultant digit is the check digit. The original user-entered ISBN is displayed along with the check digit. Sample Output :

Program plan: The variable strIsbn of type String is used to hold ISBN entered by the user. The variable intDigit of type Integer is used to hold the individual digits in the user-entered ISBN. The variable intGrandTotalof type Integer is used to hold the modified ISBN. The variable intRemainder of type Integer is used to hold the remainder of the modified ISBN modulus 10. The variable intCheckDigit of type Integer is used to hold the final ISBN having the check digit. An if-else statement is used to verify whether the user-entered ISBN has 12 digits. A for loop is used to calculate the modified ISBN. Another if-else statement is used to check whether the individual digit of the ISBN is even or odd. Another if-else statement is used to check whether the remainder is 0. Program description: The main purpose of the program is to calculate the check digit and display the ISBN with the check digit. Program: Public Class Form1 Private Sub btnAssign_Click(sender As Object, e As EventArgs) Handles btnAssign.Click ' Assign a check digit to an ISBN. Dim strIsbn As String Dim intDigit As Integer Dim intGrandTotal As Integer Dim intRemainder As Integer Dim intCheckDigit As Integer If txtIsbn.Text.Length = 12 Then strIsbn = txtIsbn.Text For intNum As Integer = 0 To 11 Step 2 Integer.TryParse(strIsbn(intNum), intDigit) If (intNum Mod 2) <> 0 Then intGrandTotal += (intDigit * 3) Else intGrandTotal += intDigit End If Next intNum intRemainder = intGrandTotal Mod 10 If intRemainder <> 0 Then intCheckDigit = 10 - intRemainder End If lblFinalIsbn.Text = strIsbn & intCheckDigit.ToString Else MessageBox.Show("Please enter 12 numbers.", "Check Digit", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Close() End Sub End Class Explanation: In the above program, inside the btnAssign_Click() procedure, an if statement is used to check whether the user-entered ISBN has 12 digits. If the user-entered ISBN has 12 digits, implement a for-next loop. Inside the for-next loop, individual digits are extracted from the ISBN. If the position of the digit is even, the digit is added as it is added to the variable holding the new ISBN. If the position of the digit is odd, the digit is multiplied by 3 and then added to the variable holding the new ISBN. Next, the remainder of the new ISBN modulus 10 is assigned to another variable. If the remainder is not 0, the remainder is subtracted from 10 and the resultant digit is assigned to another variable. This resultant digit is the check digit. The original user-entered ISBN is displayed along with the check digit. Sample Output :

Programming with Microsoft Visual Basic 2017

Programming with Microsoft Visual Basic 2017

8th Edition

ISBN: 9781337102124

Author: Diane Zak

Publisher: Cengage Learning

See similar textbooks

Expert Solution & Answer

100%

Want to see the full answer?

Check out a sample textbook solution

Blurred answer

Chapter 7, Problem 7E

Chapter 7, Problem 9E

Students have asked these similar questions

In this exercise, you modify the Cerruti Company application from this lesson. Use Windows to make a copy of the Cerruti Solution folder from this lesson. Rename the copy Modified Cerruti Solution. Open the Cerruti Solution (Cerruti Solution.sln) file contained in the Modified Cerruti Solution folder. Open the designer and Code Editor windows. Modify the code so that the GetFwt function (rather than btnCalc_Click procedure) determines the selected radio button. Save the solution and then start and test the application. Close the Code Editor window and then close the solution.

In this exercise, you modify the Gross Pay application from this lesson. Use Windows to make a copy of the Gross Pay Solution folder. Rename the copy Modified Gross Pay Solution. Open the Gross Pay Solution (Gross Pay Solution.sln) file contained in the Modified Gross Pay Solution folder. Open the designer and Code Editor windows. Locate the form’s Load event procedure. Change both For…Next statements to Do…Loop statements. Save the solution and then start and test the application. Close the Code Editor window and then close the solution.

Chapter 7 Solutions

Programming with Microsoft Visual Basic 2017

Ch. 7 - Which of the following statements changes the...Ch. 7 - Prob. 3RQ Ch. 7 - Prob. 6RQ Ch. 7 - Prob. 7RQ Ch. 7 - Prob. 11RQ Ch. 7 - Prob. 12RQ Ch. 7 - Prob. 14RQ Ch. 7 - Which of the following expressions evaluates to...Ch. 7 - Which of the following statements declares an...Ch. 7 - Which of the following statements generates a...

Ch. 7 - Prob. 25RQ Ch. 7 - Prob. 2E Ch. 7 - Prob. 4E Ch. 7 - Prob. 6E Ch. 7 - Prob. 7E Ch. 7 - Prob. 8E Ch. 7 - Prob. 9E Ch. 7 - Prob. 14E

Knowledge Booster

Background pattern image

Similar questions

Rewrite the Loop clause from Question 1 using the Until keyword.
The items in a combo box belong to which collection? Items List ListBox Values

Recommended textbooks for you

Programming with Microsoft Visual Basic 2017
Computer Science
ISBN:9781337102124
Author:Diane Zak
Publisher:Cengage Learning

Text book image

Programming with Microsoft Visual Basic 2017

Computer Science

ISBN:9781337102124

Author:Diane Zak

Publisher:Cengage Learning

SEE MORE TEXTBOOKS