VB
card_ranks = ['A', '2', '3', '4', '5', '6', '7', '8', '9', '10', 'B', 'D', 'K']
card_suits = ['♠️', '♥️', '♦️', '♣️']
card_values={}
for index in range(len(card_ranks)):
card_values[card_ranks[index]]=index+1
#card_values = {card_ranks[index]:
# index+1 for index in range(len(card_ranks))}