图a

Private Sub Command1_Click( )

Dim x As Integer

x = Val(Text1.Text)

x = x \ 2 + 1

Text1.Text = Str(x)

End Sub

程序运行时，在文本框Text1输入13时，连续两次单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

PRIVATE SUB COMBO1 {#blank#}1{#/blank#}（KEYASCII AS INTEGER）

IF {#blank#}2{#/blank#}

         {#blank#}3{#/blank#}

END IF

END SUB

Dim a(1 To 15) As Integer

Private Sub Form_Load()

  Dim i As Integer, t As Integer

  Dim s1 As String, s2 As String

  Randomize

  s1 = ""

  For i = 1 To 15

    a(i) =  ①    

    s1 = s1 + Str(a(i))

  Next i

  Text1.Text = s1

End Sub

Private Sub Com1_Click()

  s2 = ""

  For i = 1 To 15

    s2 =  ②    

  Next i

  Text2.Text = s2

End Sub