Dim n As Integer，a(100)As Integer，max As Integer

  Private Sub Form_Load()      ‘读取原始数据

    Dim conn As New ADODB．Connection．rs As New ADODB．Recordset

    Dim i As Integer

  conn．ConnectionString=”Provider=Microsoft．ACE．OLEDB．12．0；Data

  Source=”&App．Path&。”＼student．accdb”

    conn．Open

    Set rs．ActiveConnection=conn

    rs．Open“SELECT*FROM DF”

    i=0：max=0

    Do While Not rs．EOF

      i=i+1：n=i

      a(i)=         ‘①

      If a(i)>max Then max=a(i)

      rs．MoveNext

    Loop

    rs．Close：conn．Close

  End Sub

  Private Sub Command1_Click()         ‘去重复值排序

    Const t=max

    Dim i As Integer，b(t)As Integer

    For i=1 To n

      B(a(i))=b(a(i))+1

    Next i

    For i=1 To t

       If  Then List1．AddItem Str(t-i+1)       ‘②

    Next i

  End Sub

  n=Len(Text1.Text)：c=1

  For i=1 To n

    s=Mid(Text1.Text，i，1)

    If s>=“0”And s<=“9”Then

        a(c)=a(c)*10+Val(s)

    Else

        If a(c)>0 Then c=c+1

    End If

 Next i

在文本框Text1中输人“No1：X：123：Y：680：End”。执行该程序段后，数组a(2)的值为（  ）

a =int(input("请输入自然数:"))

b=int(input("请输入自然数:"))

c=int(a/b)

print( c)