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?

Question

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
```

Answer 1

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
```