Dim A(5), B(5), C(5) As Integer



Private Sub Combo1_Click()
Text1.Text = A(Combo1.ListIndex)
Text2.Text = B(Combo1.ListIndex)
Text3.Text = B(Combo1.ListIndex) * C(Combo1.ListIndex)
End Sub


End Sub

Private Sub Form_Load()
A(0) = ”國”
A(1) = ”英”
A(2) = ”數”
B(0) = 4
B(1) = 3
B(2) = 3
C(0) = 600
C(1) = 500
C(2) = 500
End Sub