- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省高中信息技术数组练习

某游戏规则如下：将2*n位队员按2人一组分成n个队(n<10)，地面上有一排格子，共2*n个，每个格子都对应一个小于10的随机正整数。游戏开始后，所有队员都选择站到一个空的格子里，等他们站满格子后，开始为每位队员进行记分。记分规则：每组甲乙两个队员，甲队员的分数是从自己所站的格子开始，按照格子序号递减，将这些格子中的数字一直累加到第1个格子。乙队员的分数是从自己所站的格子开始，按照格子序号递增，一直将格子中的数字累加到第2*n个格子。如果同一队的两名队员得到的分数相同，则该组参赛队获胜。

例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

gz(1)	gz(2)	gz(3)	gz(4)	gz(5)	gz(6)	gz(7)	gz(8)
←→
2	1	1	7	9	2	5	6
甲乙

（1）、假设有3队队员，地上一排格子的数字依次为6、7、3、4、3、9。若某队甲队员站在第3个格子上，那么该队乙队员站在第个格子上才能获胜。

（2）、实现上述功能的VB程序如下。请在划线处填入合适代码。

Dim n As Integer

Dim gz(1 To 20) As Integer

Private Sub Command1_Click()

Dim dfa As Integer, dfb As Integer

Dim ta As Integer, tb As Integer

Randomize

For i = 1 To 2 * n

gz(i) = Int(Rnd* 9 + 1)

List1.AddItem “gz(“ & i & ”)” & gz(i)

Next i

num = 1

For j = 1 To 2 * n

ta = j

dfa = zwdf(ta, True)

For k = 1 To 2 * n

tb = k

If dfa = dfb Then

List2.AddItem num & “甲队员(“ & j &”)得分=” & dfa & “乙队员(“ & k & ”)得分=” & dfb

num = num + 1

End If

Next k

Next j

List2.AddItem “获胜的站法共有:”++ “种”

End Sub

Function zwdf(p As Integer, r As Boolean) As Integer

Dim fs As Integer

If r = True Then

fs = fs + gz(i)

Next i

Else

For i = p To 2 * n

fs = fs + gz (i)

Next i

End If

zwdf = fs

End Function

举一反三

Visual Basic中，如果变量p需要存储一首古诗，那么变量p的数据类型应该定义为（）

【加试题】小王同学为了研究浙江省湖州地区空气质量与天气、气温、风向等的关联性问题，通过网络获取了2016-06-01至2017-05-31这365天的有关信息，并将数据整理至数据文件data.accdb中。其中huzhou数据表视图及设计视图部分界面如图所示。

小王编写了VB程序，具体功能：点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List1中依次显示对应天数的各项数据。

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

Dim rq(1 To 365)As String ‘存放日期

Dim aqi(1 To 365)As Integer ‘存放AQl空气质量指数

Dim tq(1 To 365)As String ‘存放天气

Dim qw(1 To 365)As String ‘存放气温

Dim fxfl(1 To 365)As String ‘存放风向及风力

Private Sub Form_Load( )

‘本过程从数据中按2016-06-01至2017-05-31依次读取各项数据，并分别存储在对应的数组中。代码略。

Private Sub Command1_Click( )

Dim n As Integer，m As Integer，i As Integer，k As Integer

Dim s As String

n=0：m=0：k=0

For i=1 To 365

If aqi(i)<=50 Then

n=n+1

Else

If n>m Then

m=n

k=i-1

End If

n=0

End If

Next i

If n>m Then

m=n

①

End If

For i= ② To k

s=rq(i) ‘日期长度均为10

s=s&Space(7-Len(Str(aqi(i)))) ＆ Str(aqi(i)) ‘AQI为1～3个数字

s=s&Space(4)&tq(i) ‘天气为1-4个中文字符

s=s&Space(2*(6-Len(tq(i))))＆qw(i) ‘气温长度均为9

s=s&Space(4)&fxfl(i) ‘风向及风力长度不等

List1.AddItem s

Next i

Text1．Text=Str(m)

End Sub

将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程序段：

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

For i = 1 To 2

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

Text1.text=a(j)

Next i

执行该程序段后，文本框Text1显示的内容为（）

有VB序段如下：

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)各元素可能的是（）

从离地500米的空中自由落下一个小球，求从开始落下的时刻起，小球在最后1秒内的位移（重力加速度g以9.8米/秒2计）。程序如下，回答以下问题。

import math

h = 500

g = 9.8

t = math.sqrt（2*h/g）

hx = g*（t-1）*（-1）/2

hh = h-hx

print（“小球最后1秒下落的位移是：”，hh，“m”）

相关试卷

公司介绍

服务介绍

帮助中心