3. 编写VB程序功能为：单击“发牌”按钮“Command1”后，从一副扑克牌（不包括大王、小王、J、Q、K、A）中随机抽取5张牌牌的花色（????）忽略，显示在列表框“List1”中如果這5张牌由一个对子和一个顺子（3张牌连续）组成，则在标签“Label1”中显示“运气不错:)”否则显示“运气一般:|”。程序运行界面如图所示

實现上述功能的VB程序如下：

  '随机抽取5张牌，将牌的点数存储在数组five中并在List1中显示。代码略