Question

我必须执行此任务，我的代码无效。我最大的问题是能够在关键错误弹出框中显示我从用户收到的输入“常量”，如果它不是数字。

第1步：收集输入并验证数字
写一个宏，询问有多少人来参加你的派对并将输入分配给变量。接下来，宏将询问每个人将吃多少披萨片并将输入分配给新变量。最后，宏将询问将订购多少片披萨并将输入分配给新变量。如果任何输入不是数字（提示：使用IsNumeric()函数进行检查），会弹出一条带有临界符号的消息，表明输入无效。

第2步：计算并提供反馈
如果所有三个输入都有效，请执行计算以确定是否已订购了足够的切片。如果是，则弹出一个消息框，指示订购的切片数量，每个人可以吃的数量以及剩余的切片数量。如果没有，则弹出一个消息框，指示有序的切片数量不足以及需要多少切片才能订购。

Sub HW_3_1()

    Dim people As String
    Dim slicesperperson As String
    Dim numberofslices As Integer

    people = InputBox("How many people are coming to the Pizza party?")

    If IsNumeric(people) = False Then
        yess = MsgBox(people & "It is not a number please try again", vbCritical)
    End If

    slices = InputBox("How many slices per person? ")
    If IsNumeric(slices) = False Then
        yes = MsgBox(slices & "It is not a number please try again", vbCritical)
    End If


    Order = InputBox("How many slices will you order? ")
    If IsNumeric(Order) = False Then
        yes = MsgBox(Order & "It is not a number please try again", vbCritical)
    End If

    numberofslices = people * slices
    If Order < numberofslices Then
        yessss = MsgBox("That is not enough slices of pizza please try again", vbCritical)
    End If
End Sub

在MsgBox上显示输入的常量

0 个答案: