Private Sub-Form _Load ()

Form 1. Caption = "order"

Frame 1。 Caption = "Menu"

Check 1。 Caption = "Child Package 18 yuan"

Check 2. Caption = "Standard Package 23 yuan"

Check 3. Caption = "Business Package 28 yuan"

Label 1 = "number of copies"

Label2 = "number of copies"

Label3 = "number of copies"

Text 1 = "": Text2 = "": Text3 = " " "

End joint

Private subcommand 1_Click ()

Dim a！ ，b！ ，c！

If Check 1. Then the value = 1

A = 18 * Val (text 1)

other

a = 0

If ... it will be over.

If check 2. Then the value = 1

B = 23 * Val (text 2)

other

b = 0

If ... it will be over.

If check 3. Then the value = 1

C = 28 * Val (text 3)

other

c = 0

If ... it will be over.

If a = 0, b = 0 and c = 0, then

MsgBox "Please select one"

other

MsgBox“one * * *”&； a+b+c & amp； "yuan"

If ... it will be over.

End joint