Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

With Combo1

.AddItem "京都"

.AddItem "名古屋"

.AddItem "新大阪"

End With

Combo1.Text = "新大阪"

With Combo2

.AddItem "0"

.AddItem "1"

.AddItem "2"

.AddItem "3"

.AddItem "4"

End With

Combo2.Text = "1"

With Combo3

.AddItem "0"

.AddItem "1"

.AddItem "2"

.AddItem "3"

.AddItem "4"

End With

Combo3.Text = "0"

End Sub

Private Sub Command1_Click()

Dim adalt_untin, child_untin, tokkyuu_ryoukin As Long

　　 If Combo1.Text = "新大阪" Then

adalt_untin = 10000

tokkyuu_ryoukin = 4000

End If

If Combo1.Text = "京都" Then

adalt_untin = 9500

tokkyuu_ryoukin = 3800

End If

If Combo1.Text = "名古屋" Then

adalt_untin = 7200

tokkyuu_ryoukin = 3200

End If

child_untin = (Abs((adalt_untin \ 2) / 10)) * 10

Dim train_kind As Integer

train_kind = 1

If Option2.Value = True Then train_kind = 0

Dim seat_kind As Integer

seat_kind = 0

If Option4.Value = True Then seat_kind = 1

Dim adalt_ryoukin, adalt_goukei As Long

adalt_ryoukin = tokkyuu_ryoukin + train_kind * 400 - seat_kind * 500

adalt_goukei = adalt_untin + adalt_ryoukin

Dim child_ryoukin, child_goukei As Long

child_ryoukin = (Abs((adalt_ryoukin \ 2) / 10)) * 10

child_goukei = child_untin + child_ryoukin

Dim adalt_ninzu As Long

adalt_ninzu = Val(Combo2.Text)

Dim Child_ninzu As Long

Child_ninzu = Val(Combo3.Text)

Text1.Text = adalt_goukei * adalt_ninzu + child_goukei * Child_ninzu

Text2.Text = adalt_untin

Text3.Text = adalt_ryoukin

End Sub

Private Sub Option4_Click()

If Option1.Value = True And Option4.Value = True Then Text1.Text = "Mistake"

End Sub