- 二一组卷

题型：填空题题类：常考题难易度：困难

浙江省台州市黄岩第二高级中学2017-2018学年高二下学期信息技术期中考试试卷

如图a所示，在excel中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便。小明想用Vb编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个[60,100]之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图b所示。

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

Dim a(1 to 10) As Integer ‘存储原始数据

Dim b(1 to 10)As Integer ‘存放名次

Private Sub Command1_Click()

Dim i As Integer, j As Integer, n As Integer

For i=1 To 10

n=0

For j=1 To 10

Then n=n+1 ‘①

‘②

Next j

Next i

For i= 1 to 10

List2.Additem a(i)&” ”&b(i)

Next i

End Sub

Private Sub Form_Load()

‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：

②处代码应改为：

举一反三

采用冒泡排序某数组a有5个元素，分别是88,110,48,64,35。采用冒泡排序对其进行排序，若完成某一遍时的结果是35,88,110,48,64，则完成下一遍时的结果是（）

将n个数分成偶数和奇数两部分，其中偶数在前奇数在后，要求分别对偶数和奇数进行升序排序。程序运行时，在文本框Text1中输入n，单击处理按钮Command1，分别在Text2、Text3中显示结果。程序运行效果图如图所示。

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

Dim a(1 To 100) As Integer

Sub sort(left As Integer,right As Integer)

Dim i As Integer,j As Integer,t As Integer

For i=1 To right-left

For j= 　'{#blank#}1{#/blank#}

If a(j)>a(j+1) Then

t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim p As Integer,q As Integer

Dim i As Integer,j As Integer,n As Integer,x As Integer

Randomize

n=Val(Text1.Text):Text2.Text=″ ″:Text3.Text=″ ″

p=0

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

For i=1 To n

x=Int(Rnd*100)

Text2.Text=Text2.Text+Str(x)

If x Mod 2=0 Then

p=p+1

a(p)=x

Else

q=q-1

a(q)=x

End If

Next i

Call sort(1,p)

Call sort(p+1,n)

For i=1 To n

Text3.Text=Text3.Text+Str(a(i))

Next i

End Sub

实现某排序算法的部分VB程序如下:

For i=1 To 6

k=i

For j=i+1 To 7

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

Next j

If i<>k Then

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

End If

Next i

在排序过程中,经过某一遍排序“加工”后，数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是（）

摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组 h和数组c中。程序运行界面如图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮(Command1)，在文本框Text4中输出小林最多能摘得的苹果数ans。

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

Dim c(1 To 100) As Integer, h(1 To 100) As Integer, d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

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

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer, 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中

If{#blank#}1{#/blank#}Then

m = m + 1

d(m) = c(i)

End If

For i = 1 To m - 1

k = i

For j = i + 1 To m

If{#blank#}2{#/blank#}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

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

ans = ans + 1

End If

Text4.Text = Str(ans)
End Sub

【加试题】有如下部分程序段，数组元素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

有如下程序段

Dim flag(0 To 4) As Boolean, p As Integer

For i=1 To 4

flag(i)=False

Next i

i=1: flag(0)=True

Do While i <= 4 And flag(i-1)

For j=5 To i+1 Step-1

If a(j)<a(j-1) Then

k=a(j):a(j)=a(j-1):a(j-1)=k

flag(i)=True

End If

Next j

i=i+1

Loop

数组元素a(1)到a(5)值依次为“16，4，24，33，77”，程序运行后，flag数组中为True个数及i的值分别是（）

相关试卷

公司介绍

服务介绍

帮助中心