第2单元 编程计算 知识点题库

Private Sub Command 1_Click（）

Dim s As String，t As String，c As String

Dim i As Integer，p As Integer

s=""：t=""

For i=1 To Len（Text 1.Text）

    c=Mid（Text 1.Text，i，1）

    If c="，" Then

        p=Val（t）

        s=s+Mid（Text2.Text，p，1）

        t=""

    Else

        t=    ①   

    End If

Next i

Label1.Caption=    ②    

End Sub

①②

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim a (1 To 13) As Integer, max As Integer, t As Integer, last As Integer

Dim sa As String, stem As String, flag As Boolean

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

'发牌和洗牌代码略，在标签Label1显示初始牌型，洗牌后数组a各元素分别存储牌型3～2的数量

t=17      '刚开始牌有17张

Do While t>0      '打牌

flag=True

Do While flag   '寻找牌中有没有顺子牌

max =0: k =1: flag=False

For i=1 To 13

If   ①   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 =    ②    To last

Stem=Mid(s, j, 1)

sa=sa +stem+ ""

a(j)=a(j)-1

Next j

List1.AddItem sa     '顺子在列表框显示

t=t-max

End If

Loop

For i= 1 To 13     '出4个一样的牌

If a(i)=4 Then

stem=Mid(s, j, 1)

List1.AddItem stem+stem+stem+stem

a(i)=0

   ③  

End If

Next i

'3张、2张、单张出牌,具体代码略

Loop

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

Const n= 12

Dim a(1 To n) As Integer, mc(1 To n) As Integer

Private Sub Command1_Click()

'n个用户的ID依次为1到n，读取n个用户的积分和排名数据分别存储到数组a和数组mc中，并在列表框Listl中显示ID、积分、积分排名，代码略

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer, k As Integer, d As Integer

    Dim s As String, flag As Boolean, x As Integer, y As Integer

    Dim p(1To20) As Integer    '存储输入的ID和积分增值，每次输入不超过10组

    For i=1 To 20

        p(i)=0

    Next i

    s= Text1.Text

    d=0：k=0

    For i= 1 To Len(s)

        If Mid(s, i, 1)= "，" Then

            If flag Then

                x = Val(Mid(s, i-d, d))

                For j= 1 To k Step 2

                    If p(j) =x Then Exit For

                Next j

                If j> k Then

                    p(j)=x：k=k+2

                End If

            Else

                y = Val(Mid(s, i-d, d))

                p(i+1)=p(j+ 1)+y

            End If

            flag= Not flag： d= 0

        Else

        End If

    Next i

    For i=1 To k\2

        x=p(2*i-1)：y=p(2*i)

        me(x)= 1

        For j= 1 Ton

            If j<> x Then

                If a(j)<a(x)+y And a(j)>=a(x) Then

            End If

            If a(j)> a(x) +y Then mc(x)= m(x)+ 1

        Next j

    Next i

    '在列表框List2中显示ID，积分、排名，代码略

End Sub

Private Sub Command1_Click()

    Const n = 100

    Dim s As String, ch As String, nm As String

    Dim p As Integer, i As Integer, k As Integer, t As Integer Dim a(1 To n) As Integer

    s = Text1.Text p = 0: k = 0

    For i = 1 To Len(s)

        ch = Mid(s, i, 1)

        If ch >= "0" And ch <= "9" Then

        Else

            If k Mod 2 = 1 Then

            Else

                a(k+1) = p

            End If

            k = k + 1：p = 0

        End If

    Next i

    a(k + 1) = p * 32 + a(k)

    For i =

        nm = nm + dtoh(a(i))

    Next i

    Text2.Text = nm

End Sub

Function dtoh(x As Integer) As String Const

    st1 = "0123456789ABCDEF"

    Do While x > 0

        x = x \ 16

    Loop

End Function

Dim n As Integer

Dim a(1 To 100) As String

Dim b(1 To 100) As Integer

Dim c(1 To 100) As Integer

Dim fg(1 To 100) As Boolean

Private Sub Form_Load()

    '读取n个参会者提交的信息，依次存入a(1)~a(n)

    '将a(1)~a (n)按参会者到达时间排序，并在List1中显示，代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As String

    Dim sum As Integer, q As Integer

    For i=1 To n

        b(i) = T(Mid(a(i), 1, 5))

        c(i) = b(i) + Int Mid(a(i), 7, 1))

        For j=1 To 2 Step-1

            k=

            If c(k) > c(j) Then

                q=b(k)：b(k)=b(j)：b(j)=q

                q=c(k)：c(k)=c(j)：c(j)=q

            Else

                Exit For

            End If

        Next j

    Next i

    sum=0

    For i=1 To n

        If fg(i) = False Then

            For j=1 To n

                If  Then

                    fg(j) = True

                End If

            Next j

        End If

    Next i

    Text1.Text = str (sum)

End Sub

Function T(str1 As String) As Integer

    T = Int(Mid(str1,1, 2)) * 60 + Int(Mid(str1, 4, 2))

End Function