Question

我遇到了这个代码的问题，我想为我的课写。程序本身一直有效，直到循环。我以前从来没有做过循环，而且在她介绍它的那天我没有上课，所以我很想猜它是怎么做的。如果有人可以发表评论我将如何解决它将是伟大的。这也是在VBA

Module Bits

    Dim employeeName As String
    Dim currentSalary As Decimal
    Dim payIncrease As Single
    Dim runReply As Char
    Dim employeeSalary As Single
    Dim numbersOfEmployees As Decimal
    Dim projectedSalary As Decimal
    Dim increasedSalary As Decimal
    Dim y As Char
    Dim n As Char

    Sub Main()

            Console.Out.WriteLine("Bits and Pieces Manufacturing Company")
            Console.Out.WriteLine(DateString & "                        By.Cristian Bouchez")

        Do

            Console.Out.Write(vbCrLf & "Enter your employee's name:                    ")
            employeeName = Console.In.ReadLine()
            Console.Out.Write("Enter your employee's current weekly salary:  $")
            currentSalary = Console.In.ReadLine()
            Console.Out.Write("Enter your employee's pay increase:           %")
            payIncrease = Console.In.ReadLine()

            payIncrease = payIncrease / 100
            employeeSalary = currentSalary * payIncrease
            payIncrease = payIncrease * 100
            employeeSalary = employeeSalary + currentSalary

            numbersOfEmployees = numbersOfEmployees + 1
            projectedSalary = projectedSalary + currentSalary
            increasedSalary = increasedSalary + (employeeSalary - currentSalary)

            Console.Out.WriteLine(vbCrLf & vbCrLf & employeeName & " will earn $" & employeeSalary & _
                                  " after a %" & payIncrease & " raise.")

            Console.Out.WriteLine(vbCrLf & "Do you want to calaculate another employee's weekly pay?")
            Console.Out.Write("Enter Y for yes and N for no:  ")
            runReply = Console.In.ReadLine()

            Console.ReadKey()

        Loop Until runReply = n

        Console.Out.WriteLine(vbCrLf & "*******************************" & vbCrLf)

    End Sub

End Module

Answer 1

1）设置n =＆＃34; n＆＃34;
2）循环直到LCase（runReply）= n

我需要帮助尝试解决这个循环

1 个答案: