2.3 周而复始的循环 知识点题库

Const s = "34567890JQKA2" '用 0 代替牌 10

Dim s1 As String, s2 As String 's1 存储 A 组牌，s2 存储 B 组牌

Dim b(1 To 18)As String

'数组 b 存储各类牌型,其中 b(1)到 b(4)可存储炸弹牌型,b(5)到 b(18)存储其他牌型

Private Sub Command1_Click()

'随机产生 A 组和 B 组牌分别在文本框 Text1、Text2 中显示，代码略

End Sub

Sub arrange(st As String) '整理牌型的过程

Dim a(3 To 15)As Integer，iAs Integer

Dim j As Integer, tAs Integer，n As Integer

Dim k As Integer, max As Integer, last As Integer

Dim saAs String, stemAs String, flag As Boolean

'数组元素 a(3)到 a(15)分别存储牌 3~JQKA2 的张数

'代码略

t = 17

For i = 1 To 18

    b(i) = ""

Next i

Do While t > 0

    n = 0

    For i = 3 To 15 '寻找炸弹牌型，若有则存储到数组 b 中

        If a(i) = 4 Then

        n = n + 1

        b(n) = stem + stem + stem + stem

        a(i) = 0: t = t - 4

    End If

Next i

flag = True

Do While flag '寻找顺子牌型，若有则存储到数组 b 中

    flag = False: max = 0: k = 1

    For i = 4 To 14

        If a(i-1)>=1 And a(i)>= 1 Then

            k = k + 1

            If k > max Then

                max = k

                last = i + 1

            End If

        Else

            k = 1

        End If

    Next i

    If max >= 5 Then

        flag = True: sa = ""

        For j = last - max + 1 To last

            stem = Mid(s, j - 3, 1)

            sa = sa + stem + " "

        Next j

        n = n + 1:b(n) = sa

        t = t - max

    End If

  Loop

  '寻找并存储三带一、对子、单张牌型，代码略

Loop

End Sub

Private Sub Command2_Click()

Dim count1 As Integer 'count1 统计 A 组出牌次数

Dim count2 As Integer 'count2 统计 B 组出牌次数

Call arrange(s1)

'在 List1 中显示 A 组出的牌型，统计出牌次数，代码略

Call arrange(s2)

'在 List2 中显示 B 组出的牌型，统计出牌次数，代码略

If count2 > count1 Then

  Label3.Caption = "A 组出牌次数小于 B 组"

ElseIf count2 = count1 Then

  Label3.Caption = "A 组出牌次数等于 B 组"

Else

  Label3.Caption = "A 组出牌次数大于 B 组"

End If

End Sub

Function check(s As String) As Integer

Dim i As Integer g1 As Integer, g2 As Integer, g3 As Integer

Dim c(1 To 7) As Integer

For i = 1 To 7

c(i) = Val(Mid(s, i, 1))

Next i

g1 = c(1) Xor c(3) Xor c(5) Xor c(7)

g2 = c(2) Xor c(3) Xor c(6) Xor c(7)

g3 = c(4) Xor c(5) Xor c(6) Xor c(7)

If g1 + g2 + g3 = 0 Then check = 0 Else check =

End Function

Private Sub Command1_Click()

Dim i As Integer, m As Integer, Outs As String

m =

If m = 0 Then

Text2.Text = "验证正确，数据无错误"

Else

For i = 1 To 7

If i = m Then

Outs = Outs + Chr( Asc(Mid(Text1.Text, i, 1)) Xor )

Else

Outs = Outs + Mid(Text1.Text, i, 1)

End If

Next i

Text2.Text = "第" + Str(m) + "位上数据有错误，正确编码应为:" + Outs

End If

End Sub

Dim n As Integer

Dim a(0 To 100) As String

Private Sub Command1_Click()      '生成网格和挡板

n = Val(Text1.Text)

'生成 n*n 的网格和随机的挡板，并通过图形控件输出，代码略

End Sub

Private Sub Command2_Click()

Dim ans As String, pre As String

Dim cur As Integer

cur = 1:  : ans = ""

Do While cur >= 1 And cur <= n * n

 ans = ans + Str(cur) + "→"

If pre = "左" And a(cur) = "\" Or pre = "右" And a(cur) = "/" Then

 cur = cur + n: pre = "上"

 ElseIf  Then

 cur = cur - n: pre = "下"

ElseIf pre = "上" And a(cur) = "\" Or pre = "下" And a(cur) = "/" Then

 If cur Mod n = 0 Then

 Exit Do

 Else

 cur = cur + 1: pre = "左"

 End If

ElseIf pre = "上" And a(cur) = "/" Or pre = "下" And a(cur) = "\" Then

 If   Then

 Exit Do

 Else

 cur = cur - 1: pre = "右"

 End If

 End If

Loop

Text2.Text = ans + "离开"

End Sub

Dim a(0 To 1000) As Integer     '存储原矩阵数据，按行优先存储

Dim b(0 To 1000) As Integer     '存储Z形扫描后数据

Dim c(0 To 1000) As Integer     '存储行程编码压缩后数据

Dim n As Integer

‘矩阵导入代码略，以行优先存储在a数组中，如例子中数据存储顺序为“57,45,0,23,0,0…”

Private Sub Command2_Click()

    Dim choice As Integer     ' 1：向右移动 ；2：向右上移动；3向下移动 4向左下移动

    Dim row As Integer, col As Integer, i As Integer, j As Integer

    Dim pre As Integer, count As Integer

    choice = 1: row = 0: col = 0: i = 0

    Do While (row <> n - 1 Or col <> n - 1)

        b(i) = a(row * n + col):i = i + 1     

        If choice = 1 Then

            If row = 0 Then choice = 4 Else choice = 2

        ElseIf choice = 2 Then

            row = row - 1: col = col + 1

            If  Then

                choice = 1

            ElseIf col = n - 1 Then

                choice = 3

            End If

        ElseIf choice = 3 Then

            row = row + 1

            If col = 0 Then choice = 2 Else choice = 4

            ElseIf choice = 4 Then

                row = row + 1: col = col - 1

            If row = n - 1 Then

                choice = 1

            ElseIf col = 0 Then

                choice = 3

            End If

        End If

    Loop

    b(i) = a(n * n - 1):j = 0: pre = b(0): count = 0

    For i = 0 To n * n - 1                 '输出Z形序列，并进行行程压缩

        If pre = b(i) Then

            count = count + 1

        Else

            c(j) = pre: c(j + 1) = count

            pre = b(i):j = j + 2

        End If

    Next i

    c(j) = pre: c(j + 1) = count

    Text1.Text = ""

    For i = 0 To j + 1

        Text1.Text = Text1.Text + Str(c(i)) + ","

    Next i

End Sub