-1

我需要有关以下硬件问题的帮助。除了我编号的说明外，我什么都做了。请帮忙！

家具制造商生产两种类型的家具——椅子和沙发。每把椅子的成本是 350 美元，每个沙发的成本是 925 美元，销售税率是 5%。编写一个 Visual Basic 程序来为订单创建发票表单。

输入表单左侧的数据后，用户可以通过按“处理订单”按钮在列表框中显示发票。

用户可以点击Clear Order Form按钮清除所有文本框和列表框，点击Quit按钮退出程序。

  1. 发票编号由客户姓氏的前两个大写字母和邮政编码的后四位数字组成。

  2. 输入客户名称时先输入姓氏，然后是逗号、空格和名字。但是，该名称以正确的顺序显示在发票中。

  3. 发票编号的生成和名字和姓氏的重新排序应由 Function 程序执行。

4

1 回答 1

2

鉴于这是家庭作业，并且您没有提供任何代码来展示您自己所做的努力，因此我不会提供任何具体答案，但希望我会尝试为您指明正确的方向。

您的前 2 个编号项目看起来是同一主题的变体......字符串操作。假设您从订单中获得了客户的地址信息，您只需要编写 2 个单独的函数来获取姓名和地址的部分，获取您需要的数据并返回值（涵盖您的第 3 项）。

要获取部分名称和地址来生成发票编号，您需要考虑使用Left()和Right()函数。

就像是：

Dim first as String, last as String, word as String
word = "Foo"
first = Left(word, 1)
last = Right(word, 1)
Debug.Print(first)  'prints "F"
Debug.Print(last)  'prints "o"

一旦你得到你需要的零件，那么你只需要担心按照你想要的顺序将这些零件连接在一起。字符串的连接运算符是&. 所以使用上面的例子，它会是这样的：

Dim concat as String
concat = first & last
Debug.Print(concat)   'prints "Fo"

您的最后一项，使用函数过程来生成所需的值，很容易用谷歌搜索（甚至是一个词）。语法非常简单，所以这里有一个 VB6 未内置的常用函数的快速示例：

Private Function IsOdd(value as Integer) As Boolean

    If (value Mod 2) = 0 Then  'determines of value is an odd or even by checking 
                               ' if the value divided by 2 has a remainder or not 
                               ' (aka Mod operator)
        IsOdd = False ' if remainder is 0, set IsOdd to False
    Else
        IsOdd = True  ' otherwise set IsOdd to True
    End If

End Function

希望这能让你朝着正确的方向前进。

于 2012-07-11T01:03:18.070 回答