Visual Basic函数过程

Question

我需要下列H.W.的帮助。问题。除了我编号的指示外，我完成了所有工作。请帮忙！

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

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

用户可以点击清除订单表单按钮清除所有文本框和列表框，并且可以点击退出按钮退出程序。

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

2. 客户名称首先输入姓氏，后跟逗号，空格和名字。但是，该名称会按照正确的顺序显示在发票中。

3. 发票号码的生成和第一个和最后一个名字的重新排序应由功能程序执行。

Answer 1

看到，因为这是家庭作业，你没有提供任何代码，表明你对自己做出什么样的努力，我不会提供任何具体答案，但我希望我会努力点你在正确的方向。

你的第2个编号的项目看起来是相同主题的变体......字符串操作。假设您从订单中获得客户的地址信息，您只需编写两个单独的函数来获取名称和地址的各个部分，获取所需的数据并返回值（其中包含第三项）。

要获取部分名称和地址以生成发票号码，您需要考虑使用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 

希望这可以让你在正确的方向前进。