题型：综合题 题类：常考题 难易度：困难
浙教版高一信息技术 专题五：VB程序设计
代码如下：
Private Sub Command1_Click()
Dim a(1 To 13) As Integer, i As Integer, j As Integer, n As Integer
For i=1 To 13
a(i)=0
Next i
i=1:n=0:j=1
Do While i<=13
Do While True
If j>13 Then
If a(j)=0 Then n=n+1
If n=i Then
n=0
Exit Do
End If
j=j+1
Loop
Loop
Label1.Caption="原来牌的顺序是："
For k=1 To 13
Label2.Caption =
End Sub
试题篮
