Question

我需要帮助以下H.W.问题。除了我编号的说明，我已经完成了所有工作。请帮忙！

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

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

用户可以单击“清除订单”按钮清除所有文本框和列表框，然后单击“退出”按钮退出程序。

发票号码由客户姓氏的大写前两个字母组成，后跟邮政编码的后四位数字。
首先输入客户名称，然后输入逗号，空格和名字。但是，名称会以正确的顺序显示在发票中。
发票编号的生成以及名字和姓氏的重新排序应由功能程序执行。

Answer 1

看到这是作业，你没有提供任何代码来展示你自己做出的努力，我不打算提供任何具体的答案，但希望我会试着指出你正确的方向

您的前两个编号项目看起来是同一主题的变体...字符串操作。假设您从订单表中获得了客户的地址信息，您只需要编写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"

使用功能程序生成所需值的最终项目非常容易google（即使是一个单词）。语法非常简单，所以这里是一个没有内置到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

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

Visual Basic函数过程

1 个答案: