【加试题】给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将数组依次分隔成m+1个段。具体分割方法如下：第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1区间，则第1段元素个数为0；第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；第m段分割后的剩余元素分割到第m+1段（剩余段）。若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0，一个数组分段示例如下图。图中数组第1个元素10不属于第1区间[0,5]，因此第1段的元素个数为0。10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33,58,46，第3段“重叠块”包含55,62,69。

1. 【加试题】给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将数组依次分隔成m+1个段。具体分割方法如下：

第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1区间，则第1段元素个数为0；

第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；

第m段分割后的剩余元素分割到第m+1段（剩余段）。

若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0，一个数组分段示例如下图。图中数组第1个元素10不属于第1区间[0,5]，因此第1段的元素个数为0。10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33,58,46，第3段“重叠块”包含55,62,69。

(1) 给定2个区间依次为[10,50]、[30,80]，数组各元素为“12,44,34,45,66,50,45,70”，则第1段“重叠块”中的元素个数为个。

(2) 小李根据上述描述，设计了一个统计各段“非重叠块”、“重叠块”和剩余段中元素个数的算法。算法的VB程序如下，请在划线处填入合适的代码。

Const n = 18, m = 6

Dim a(1 To n) As Integer

Dim b(1 To 2 * m) As Integer

'b(1)、b(2)为第1区间的下限和上限， b(3)、b(4)为第2区间的下限和上限，…

Dim c(1 To 2 * m + 1) As Integer

'数组c用于保存统计结果：

'c(1)、c(2)分别存储第1段“非重叠块”和“重叠块”的元素个数，

'c(3)、c(4)分别存储第2段“非重叠块”和“重叠块”的元素个数，…

'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储第m段"重叠块"元素个数(值为0)

'c(2m+1)存储剩余段元素个数

Private Sub Command1_Click()

Dim i As Integer, p As Integer, L As Integer, LL As Integer

‘读取n个数据并保存在数组a中，代码略

‘读取m个区间的下限和上限并保存在数组b中，代码略

For i = 1 To 2 * m + 1

c(i) = 0

Next i

i = 1: p = 1

L = 0: LL = 0

Do While ①

If IsIn(i, p) Then

If IsIn(i, p + 1) Then

LL = LL + 1

Else

②

LL = 0

End If

i = i + 1

Else

c(2 * p - 1) = L

c(2 * p) = LL

L = 0: LL = 0

p = p + 1

End If

Loop

If i <= n Then

c(2 * p - 1) = n - i + 1

Else

c(2 * p - 1) = L

c(2 * p) = LL

End If

‘输出统计结果，代码略

End Sub

‘函数IsIn用来判断a(i)值是否属于第p区间

Function IsIn(i As Integer, p As Integer) As Boolean

If p > m Then

IsIn = False

Else

If ③ Then IsIn = True Else IsIn = False

End If

End Function

① ② ③

【考点】

算法的控制结构; 常见数据类型、数组;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题困难

1. 如果一个自然数恰好等于它的各因数之和，则称该效为完全数。这里的因素都是除去本身的正因数。例如：第一个完全数是6，它有因数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3=6。寻找完全数并不是容易的事。经过不少数学家研究，到2013年2月6日为止，一共找到了48个完全数。

小明设计了一个VB程序，用于求解10000以内的所有完全数。点击按钮Command1，标签Label1显示完全数的个数，并在列表框中显示10000以内所有的完全数。

程序运行效果如图所示

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

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, c As Integer, s As Integer

c = 0 ‘用于存储完全数的个数

For i =1 To 10000

s=0 ‘用于存储各因数之和

For j = 1 To i - 1

If fac(i, j) Then

Next j

If i = s Then

Listl.AddIltem Str( i)

End If

Next i

Label.Caption =“10000 以内共有” +Str(c) + “个完全数!”

End Sub

Function fac(x As Integer, y As Integer) As Boolean

'如果y是x的因数返回True，否则返冋False

If Then

fac = True

Else

fac = False

End If

End Function

综合题普通

2. 用雨量计或雨量器测定，以mm为单位。目前，我国电视和广播节目中发布的日雨量为08~08时，代表前一天的雨量。从键盘输入前一天雨量（用来模拟传感器），点击判断雨量，然后从label3输出雨量

小雨:1d(或24h)降雨量小于10mm者。

中雨:1d(或24h)降雨量10~25mm者。

大雨:1d(或24h)降雨量25~50mm者。

暴雨:1d(或24h)降雨量50~100mm者。

大暴雨:1d(或24h)降雨量100~250mm者。

特大暴雨:1d(或24h)降雨量在250mm以上者。

Private Sub Command1_Click()

Dim a As Single

Dim s as ①

a = ②

If a > 250 Then

s = "特大暴雨"

ElseIf a > 100 Then

s = "大暴雨"

ElseIf a > 50 Then

s = "暴雨"

ElseIf a > 25 Then

s = "大雨"

ElseIf a > 10 Then

s= "中雨"

ElseIf ③ Then

s = "小雨"

Else

s = "无雨"

End If

Label3.caption= ④

End Sub

(1) 要想让A处在程序运行时显示空白，应设置Text1的属性。

综合题普通

3. 【加试题】小张同学设计一个“简单数据筛选”程序。程序启动时运行界面如第17题图所示。程序运行时列表框List1中产生15个随机整数。在文本框Text1中输入筛选条件（大于或小于某个数）后单击“筛选”按钮Command1，右边列表框List2中显示符合筛选条件的数据，同时标签Label2上显示符合条件的数据个数。

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

Dim a(1 To 15) As Integer

Dim n As Integer 'n为计数器

Dim key As Integer 'key存放筛选条件的数字部分

Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号

Private Sub FormLoad()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1Click()

Dim c As Integer

Dim st As String

n = 0

c = Len(st)

f = Mid(st, 1, 1)

If f = "<" Then Se2 '调用过程

If f = ">" Then Se1 '调用过程

Label2.Caption = "有" + Str(n) + "个筛选结果"

End Sub

Private Sub Se1() '筛选过程1

For i = 1 To 15

If a(i) > key Then

List2.AddItem Str(a(i))

n = n + 1

End If

Next i

End Sub

Private Sub Se2() '筛选过程2

For i = 1 To 15

List2.AddItem Str(a(i))

n = n + 1

End If

Next i

End Sub

(1) 处应改为

(2) 处应改为

(3) 处应改为

综合题困难