相关试卷

图a排序前数组a存储结构

小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序（成绩相同的按学号升序排列），并依据成绩插入各位同学的名次信息，处理结束的数组a结构如图b所示：

图b排序后数组a存储结构

小迪同学使用VB编写了成绩处理程序，程序运行界面如图c所示：

图 c

实现上述功能的VB程序如下，请回答下列问题。

Const n = 20

Dim a（1 To 3 * n）As Integer

Private Sub Command1_Click()

'读取数据，存储在数组a中，并显示在列表框List1中

'代码略

End Sub

Private Sub Command 2_Click（）

     ‘①改错

  k = i

  For j= 1 Toi-1

    If a（2 * j）<a（2 * k）Or  ②   Then

      k = j

    End If

  Next j

  a（3 * i）= a（2 * k）

  a（3 * i-1）= a（2 * k-1）

    ③ 

  a（2 * k- 1）= a（2 * i- 1）

Next i

Lisi2.Addltem"第1名：学号"+ CStr（a（2））+"，分数"+Str（a（3））

a（1）=1

mc=1

For i=2 To n

  If   ④   Then mc = i

  List2.Addltem"第"+Str（me）+"名：学号"+CStr（a（3 * i-1））+"，分数"+Str（a（3 *

  i））

  a（3 * i-2）= mc

Next i

End Sub

实现以上功能的VB.程序如下，在划线处填入合适的代码。

Dim a（1 To 20）As Integer '存储区间的左端点数值

Dim b（1 To 20）As Integer '存储区间的右端点数值

Private Sub Form_Load()

‘将区间左端点存入数组a，区间右端点存入数组b，并在列表框List1显示，代码略

End Sub

Private Sub Commandl_Click()

Dim i As Integer，j As Integer

Dim curL As Integer， curR As Integer

For i=1 To n-1

  For j=1 To n-i

    If  ①  Then

      t=a（j）：a（j）=a（j+1）：a（j+1）=t

      t=b（j）：b（j）=b（j+1）：b（j+1）=t

    End If

  Next j

Next i

curL=a（1）：curR=b（1）

For i=2 To n

  If  ②  Then

    If curR < b（i）Then  ③ 

  Else

    List2.Addltem "["+Str（curL）+Str（curR）+"]"

    curL=a（i）：curR=b（i）

  End If

Next i

List2.AddItem"["+Str（curL）+Str（curR）+"]"

End Sub

①②③

实现上述功能的VB程序如下：

Dim adoConn As New ADODB.Connection

Dim adoRs As New ADODB.Recordset

Dim a（1 To 1000）As String，b（1 To 1000）As Integer

adoConn.ConnectionString=" provider=Microsoft.ACE.OLEDB.12.

0：datasource="& App.Path& " \mydata.Accdb "

adoConn.Open

Set adoRs.ActiveConnection= adoConn

adoRs.Open "Select * From Score"

n=0

Do While Not adoRs.EOF

  n=n+1

  a（n）= adoRs.Fields（"学号"）.Value

  b（n）= adoRs.Fields（3）.Value

adoRs.MoveNext

Loop

adoRs.Close：adoConn.Close

下列对于该程序段的理解正确的有（  ）

①程序连接的数据库文件名是“\mydata.accdb”

②程序打开的数据表名称是“Score”

③程序将数据表中的数学成绩存入数组b

④程序运行后，变量n的值表示该数据表中记录的总数

⑤关闭数据表的语句为adoConn.close

i= 1：j = 8：n = 0

key = Val（Text1.Text）

Do While i<= j

  m =（i+j）\2

  If a（m）> key Then

    j=m-1：n=n-1

  Else

    i=m+1：n=n+1

  End If

Loop

数组元素a（1）到a（8）的值依次是“6，18，23，42，42，42，56，63”。若在文本框Textl中输入42，则以上程序段执行后，下列说法正确的是（  ）

i=1：j=6：s=" "

Key=Text1.Text

Do While i<=j

  m=Int（（i+j）/2+0.5）

  s=s+" "+a（m）

  If Key> a（m）Then

    i=m+1

  Else

    j=m-1

  End If

Loop

Text1.Text=s

数组元素a（1）到a（6）的值分别为“Beijing”“Cuangdong”“Jiangsu”“Jiangxi”“Shanghai”“Zhejiang”，己按字典序排序。当key的值为“Zhejiang”时，单击命令按钮Command1，文本框Text1中显示的内容为 （  ）

'a（1）到a（10）中的元素依次为8，3，5，9，7，5，7，6，5，4

n=10

For k=1 To n\3

  p=3 * k-2

  x=p

  For t=p+1 To 3 * k

    If a（t）<a（x）Then x=t

  Next t

  If p<>x Then

    y=a（p）：a（p）=a（x）：a（x）=y

  End If

Next k

程序运行结束后，以下数组元素的值错误的是（  ）

Const n = 6

Dim a（1 To n）As Integer，f（1 To 10）As Boolean

Dim tmp As Integer，i As Integer，j As Integer，tAs Integer

'f数组各元素的初值置为False，代码略

For i = 1 To

  t = Int（1 + Rnd * 10）

  If Not f（t）Then

    a（i）= t：f（t）= True

    For j=

      If a（j） < a（j - 1）Then

        tmp = a（j）： a（j）= a（j-1）：a（j-1）= tmp

      End If

    Next j

  Else

  End If

Next i

上述程序段3个方框处的表达式分别为 （  ）

i=1：j=8

k=Int（Rnd * 100）

Do While i<=j

  m=（i+j+1）\2

  If k=a（m）Then Exit Do

  If k<=a（m）Then j=m-1 Else i=m+1

Loop

数组元素a（1）到a（8）的值依次是“13，27，36，42，48，51，66，83”，则以上程序段执行后，下列说法不可能正确的是（  ）

图a

图b

实现上述功能的 VB 程序如下,请回答下列问题：

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;

data source = "+ App.Path+"\score.Accdb"

conn.Open

Set rs.ActiveConnection = conn

rs.Open "Select * from cj"

n=1

Do While Not rs.EOF

  Score（n）=rs.fields（“成绩”）：Name（n）=rs.fields（“姓名”）

  n=n+1：rs.MoveNext

Loop

下列说法中不正确的是（  ）