题目

编写VB程序，功能为：单击“发牌”按钮“Command1”后，从一副扑克牌（不包括大王、小王、J、Q、K、A）中随机抽取5张牌，牌的花色（♠♥♣♦）忽略，显示在列表框“List1”中。如果这5张牌由一个对子和一个顺子（3张牌连续）组成，则在标签“Label1”中显示“运气不错:)”，否则显示“运气一般:|”。程序运行界面如图所示。 实现上述功能的VB程序如下： Private Sub Command1_Click() List1.Clear Dim five(1 To 5) As Integer Dim i As Integer, j As Integer, k As Integer Dim p As In4．因数末尾有2个0，积的末尾至少也有两个0√（判断对错）