-1

次のハードウェアの問題についてサポートが必要です。番号を付けた指示以外はすべて実行しました。助けてください！

ある家具メーカーは、椅子とソファの 2 種類の家具を製造しています。椅子 1 台あたりのコストは 350 ドル、ソファ 1 台あたりのコストは 925 ドルで、消費税率は 5% です。注文の請求書​​フォームを作成する Visual Basic プログラムを作成します。

フォームの左側にデータが入力された後、ユーザーは [Process Order] ボタンを押してリスト ボックスに請求書を表示できます。

ユーザーは Clear Order Form ボタンをクリックしてすべてのテキスト ボックスとリスト ボックスをクリアし、Quit ボタンをクリックしてプログラムを終了することができます。

  1. 請求書番号は、顧客の姓の最初の 2 文字を大文字にしたものと、それに続く郵便番号の下 4 桁で構成されます。

  2. 顧客名は、姓、カンマ、スペース、名の順で入力します。ただし、名前は正しい順序で請求書に表示されます。

  3. 請求書番号の生成と姓名の並べ替えは、Function プロシージャで実行する必要があります。

4

1 に答える 1

2

これは宿題であり、自分で行った努力を示すコードを提供していないため、具体的な回答を提供するつもりはありませんが、うまくいけば正しい方向に向けようとします.

最初の 2 つの番号付きアイテムは、同じテーマのバリエーションのように見えます... 文字列操作。注文フォームから顧客の住所情報を取得していると仮定すると、名前と住所の部分を取得し、必要なデータを取得して値を返す (3 番目の項目をカバーする) 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"

Function プロシージャを使用して目的の値を生成する最終的なアイテムは、非常に簡単にグーグルで検索できます (それは単語でもあります)。構文は非常に単純なので、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 に答える