Suppose you would like your code to perform several tasks: Use a For…Next loop with an InputBox to prompt the user four times for the price of four different T-shirts, then display each shirt price with a 25% discount in the ListBox lstResult. Which of the following code segments correctly performs these tasks?
A) Dim intIndex As Integer
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 1 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice * 0.75
LstResult.Items.Add(sngDiscountPrice)
Next
B) Dim intIndex As Integer
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 0 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice - (.75 * sngPrice)
Next
LstResult.Items.Add(sngDiscountPrice)
C) Dim intIndex As Integer
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 1 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice * (.25 - sngPrice)
LstResult.Items.Add(sngDiscountPrice)
Next
D) Dim intIndex As Integer
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 0 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice * 0.25
LstResult.Items.Add(intIndex & " " & sngDiscountPrice)
Next

Question

Suppose you would like your code to perform several tasks: Use a For…Next loop with an InputBox to prompt the user four times for the price of four different T-shirts, then display each shirt price with a 25% discount in the ListBox lstResult. Which of the following code segments correctly performs these tasks?
A) Dim intIndex As Integer 
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 1 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice * 0.75
LstResult.Items.Add(sngDiscountPrice)
Next
B) Dim intIndex As Integer 
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 0 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice - (.75 * sngPrice)
Next
LstResult.Items.Add(sngDiscountPrice)
C) Dim intIndex As Integer 
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 1 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice * (.25 - sngPrice)
LstResult.Items.Add(sngDiscountPrice)
Next
D) Dim intIndex As Integer 
Dim sngPrice, sngDiscountPrice As Single

For intIndex = 0 To 4
SngPrice = CSng(InputBox("Enter price of shirt " & intIndex.ToString))
SngDiscountPrice = sngPrice * 0.25
LstResult.Items.Add(intIndex & " " & sngDiscountPrice)
Next

Quizplus · Accepted Answer

This code correctly uses a For...Next loop to prompt the user four times for the price of four shirts using InputBox. It then calculates the discount price by multiplying the original price by 0.75 (which is equivalent to a 25% discount), and adds this discounted price to the ListBox lstResult using the .Items.Add method. The loop counter starts at 1 and ends at 4, ensuring that the loop runs four times. The variable declarations are also correct, with sngPrice and sngDiscountPrice both being declared as Single.

Suppose You Would Like Your Code to Perform Several Tasks