Private Sub Command1 Click()

Dim adocn As New adodb.Connection

Dim adors As New adodb.Recordset

Dim str2 As String, str1 As String

str1 = "Provider=Microsoft.ACE.OLEDB.12.0;data source=f:\2015mt\vb\{#blank#}1{#/blank#}  "

adocn.Open str1

str2 = "select * from students where num=" + Text1.Text

adors.Open str2, adocn, adOpenDynamic, adLockOptimistic

If adors.EOF = True Then

   MsgBox "你输入的学号不存在"

Else

   Text2.Text = adors.Fields("name").Value

   Text3.Text = adors.Fields("sex").Value

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

End If

 adors.Close

adocn.Close

End Sub

Private Sub Command1_Click()

  Dim x As Integer，Y As Long，st

As String

  For x=100 To 1 000

    y=x^2

    st=x&y         ‘将数字x和y合并成不含空格的数字串st

    If  Then               ‘①

       List1. AddItem Str(x)&"  "& Str(y)&"  "&st

    EndIf

  Next x

  End Sub

  Function judge(s As String)As Boolean

    Dim a(1 To 100)As String，i As Integer，j As Integer

    judge=False

    For i=1 To Len(s)

      a(i)=Mid(s，i，1)

    Next i

    For i=1 To Len(s)-1

      For j=i+1 To Len(s)

         If  Then Exit Function       ‘②

      Next j

    Next i

    judge=True

  End Function

请在划线处填入合适的代码

Private Sub Command1_Click()

  Dim s As String, k As Integer

  {#blank#}1{#/blank#}

  k = Val(Text2.Text)

  Label3.Caption=“对应的十进制数：”+Str(toD(s, k))

End Sub

Function toD(s As String, k As Integer) As Integer

  Dim ans As Integer, x As Integer

  ans = 0

  For i = 1 To Len(s)

    If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then

      x = Asc(Mid(s， i, 1))- Asc(“A”)十 10

    Else

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

    End If

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

  Next i

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

End Function

Randomize

For i = 1 To 6

a(i) = Int(Rnd * 20) + 1

If a(i) Mod 2 = i Mod 2 Then a(i) = a(i) - 1

Else

a(i) = a(i) + 2 End If

Next i

执行该程序段后，a（1）~ a（6）各元素可能的是（   ）