- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省普通高校招生信息技术选考模拟卷（三）

【加试题】摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组h和数组c中。

程序运行界面如题图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮（Command1），在文本框Text4中输出小林最多能摘得的苹果数ans。

（1）、如图所示，树上的苹果总数为15。若将可用力气修改为90，则小林最多能摘得苹果的总数是

（2）、相应程序如下，在程序划线处填入适当的语句和代码，把程序补充完整。

Dim c(1 To 100) As Integer

Dim h(1 To 100) As Integer

Dim d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\GameDate.accdb"

‘从数据库中读取n个苹果的摘取所需力气和高度存放在数组c和h中，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer

Dim i As Integer, j As Integer, m As Integer

a = Val(Text1.Text) ‘梯子高度

b = Val(Text2.Text) ‘手伸直高度

s = Val(Text3.Text) ‘可用力气

m = 0

For i = 1 To n ‘将所有能够摘得的苹果所需力气存储到数组d中

m = m + 1

d(m) = c(i)

End If

For i = 1 To m - 1

k = i

For j = i + 1 To m

If Then k = j

If k <> i Then

t = d(k): d(k) = d(i): d(i) = t

End If

ans = 0 ‘用剩余的力气去摘最多的苹果

For i = 1 To m

If s >= d(i) Then

ans = ans + 1

End If

Text4.Text = Str(ans)

End Sub

举一反三

【加试题】小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n=10

Private Sub Form_Load()

‘排序前数据存储在数组a中，并在文本框Text1中显示

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer

Dim bottom As Integer

Dim j As Integer

Dim a(1 To n)As Integer

i=1

bottom=n

Do While i<bottom

k=i

j=i+1

Do While i<=bottom

If a(j)=a(k)Then

a(i)=a(bottom)

‘(1)

bottom=bottom-1

E1seIf a(j)<a(k) Then

k=j

End If

j=j+1

Loop

If Then ‘(2)

t=a(i)

a(i)=a(k)

a(k)=t

End If

i=i+1

Loop

‘排序后数据存储在数组a中，并在文本框Text2中显示

End Sub

【加试题】小明基于选择排序算法编写了一个VB程序，功能如下：某班：50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样(所给的数据保证能选10个)。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n=50

Dim d(0 To n)As Single，name(1 to n)As String

‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

name(1)…name(50)

‘代码略

Private Sub Command1_Click()

Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

d(0)=2

For i=1 To 10

‘(1)

For j=i To n

If d(j)<d(i-1)Then

If Then ‘(2)

k=j

End If

Next j

If k<>i Then

temp=d(k)：d(k)=d(i)：d(i)=temp

r=name(k)：name(k)=name(i)：name(i)=r

End If

Next i

For i=1 To 10 ‘输出被选的l0个人的名字和身高。

List2．AddItem name(i)&d(i)

Next i

End Sub

有如下 VB 程序段：

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 4

For j = 1 To 5 - i

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j Next i

执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（）

【加试题】有一个数组，采用冒泡排序，第一遍排序后的结果为：4，10，5，32，6，7，9，17，24那么该数组的原始顺序不可能的是（）

【加试题】有如下 VB程序段：

For i = 1 To 2

k = i

For j = 6 To i + 1 Step -1

If a(j) > a(k) Then k = j

Next j

If k <> i then

t = a(i) : a(i) = a(k) : a(k) = t

End If

Next i

数组元素a(1)到a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（）

【加试题】有如下部分程序段，数组元素d(1)到d(7)的值依次为“70, 60, 50, 40, 30, 20, 10。文本框Textl中输入25，行该程序段，运行结束后，下列表达式正确的是（）

n = 0 : i =1 : j = 7

Key = Val(Textl.Text)

f = False

Do While i <= j And Not f

m = fix((i + j)/2+0.5)

n = n + 1

If key = d(m) Then

f = True

Elseif key > d(m) then

j = m - 1

Else

i = m + 1

end if

Loop

相关试卷

公司介绍

服务介绍

帮助中心