①数：正整数补码的数值即其二进制表示。

例：12的8位二进制表示00001100，最高位即符号位“0”表示正数。

②数：除符号位外，所有位取反，然后+1。

例：-5的8位二进制补码表示方法如下，5对应7位二进制数为0000101(原码)，所有位取反后为1111010(反码)，再加1后为1111011(补码)，再设置符号位为1，因此-5用8位二进制补码表示为11111011。

    小明设计了一个VB程序，点击“补码”按钮Command1，将文本框Text1中输入的整数n(-128≤n≤127)转换成相应的补码，并在文本框Text2中输出，程序运行界面如图所示，请将画线处的代码补充完整。

Private Sub Command1_Click()

  Dim n As Integer，a As Integer，i As Integer

  Dim m(1 To 8)As Integer

  Text2．Text=" "

  n=Val(Text1．Text)

  If n>=0 Then

    ‘计算二进制原码

    For i=8 To 2 Step-1

      m(i)一n Mod 2

      n=n\2

    Next i

    ‘设置符号位

    m（1）=0

  Else

    n=-n

   ‘计算二进制反码

    For i==8 To 2 Step-1

      m(i)=    ①  

      n=n\2

    Next i

    ‘加1计算

    i=8

    Do While m(i)=1

           ②  

        i=i-1

      Loop

      m(i)=1

     ‘设置符号位

     m（1）=1

  EndIf

  ‘输出结果

  For i=1 To 8

    Text2．Text=Text2．Text & m(i)

  Next i

End Sub

i = 1: j = 7: s = ""

key = 34

Do While i <= j

   m = (i + j) \ 2

   If key = a(m) Then

      s = s + "2": Exit Do    'Exit Do 表示退出循环

   ElseIf key < a(m) Then

      j = m - 1: s = s + "1"

Else

      i = m + 1: s = s + "3"

End If

Loop

Text1.Text = s

数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（  ）

①先出顺子牌型（顺子指连续的 5 张及以上的牌，如 345678，顺子最小从 3 开始，最大到 A），若有多个顺子，先长后短，长度相同按从小到大顺序出；

②再按三带一牌型（3 张相同的牌带一张单牌）、对子牌型（2 张相同）、单张牌型的顺

序出牌，同一牌型从小到大出；

③最后出炸弹，若有多个炸弹，从小到大出。

设计以下VB程序，牌“10”用0代替，比较两组出牌次数，界面如图所示，请回答下列问题。

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10)As Integer    ‘①

 For i=1 To 10    ‘②

  a(i)=Rnd* 100    ‘③

 Next i

 Label1.Caption=Str(a(i))    ‘④

End Sub