0 返回首页
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个区间，数组各元素为“12，44，34，45，66，50，45，70”，第1段“重叠块”中的元素个数为3个，第1个区间为[10，50]，则第2个区间可能为（单选，填字母A .[30，80] /B .[9，45] /C .[60，90]）｡
(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(2 m+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 i <= n And p <= m

 If IsIn(i, p) Then

 If Then

 LL = LL + 1

 Else

 L = L + LL + 1

 LL = 0

 End If

 i = i + 1

 Else

 c(2 ∗ p - 1) = L

 c(2 ∗ p) = LL

 L = 0

 p = p + 1

 End If

Loop

If i <= n Then

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 a(i) >= b(2 ∗ p - 1) And a(i) <= b(2 ∗ p)

And p <= m Then

 IsIn = True

Else

 IsIn = False

End If

End Function
【考点】
算法的控制结构; 常见数据类型、数组; 过程与自定义函数;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
综合题 困难
能力提升
换一批
1. 某ASCII字符加密方法算法如下：

⑴计算出该ASCII字符的8位二进制数值

⑵将该数值分割为前4位与后4位两个二进制数

⑶分别将上述两个4位二进制数转换为十进制数

⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下

值（十进制）

0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

加密字符

I

1

i

k

e

C

H

N

p

o

s

t

c

a

r

d

根据以上加密算法来推断解密算法，下表显示了字符串中两个字符的解密过程：

小明设计了一个解密程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中输出解密结果。程序运行时界面如下图所示。

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

(1) 请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim z As String, a As String, b As String

Dim i As Integer, y As Integer

z = Text1.Text

Text2.Text =" "

For i= 1 To      ①   

a=Mid(z, i, 1)

b= Mid(z, i+1, 1)

     ②   

Text2.Text = Text2.Text + Chr(y)

Next i

End Sub

Function zn(x As String)As Integer '得出加密字符对应密码表中的十进制数

Dim m As String, i As Integer

m ="IlikeCHNpostcard"

For i =0 To 15

If      ③      Then

zn=i

Exit For

End If

Next i

End Function

① ② ③
(2) 若已知字符“a”的ASCI1码值为97（十进制），加密字符HN对应的英文字母是。
综合题 普通
2. 有VB自定义函数的功能是求两个数之间被3除多2，被5除多3的所有整数个数，请在程序划线处填入合适的代码。

Function f(x1 As Integer, x2 As Integer)As Integer

Dim t As Integer, i As Integer

If x1 <x2 Then t=x1: x1=x2: x2=t

For i=     ①   

If i Mod 3=2 And i Mod 5 = 3 Then     ②  

Next i

End Function

① ② 
综合题 普通
3. 小王编写了一个VB程序，功能为：在文本框Text1中输入三位自然数，单击“交换”按钮Command1，在文本框Text2中输出由该三位数各位数字重组后的最小数，运行界面如图14所示。

 

(1) 若要将按钮上显示的“Command1”改为“交换”，应设置Command1的属性。
(2) 小王编写的按钮事件过程代码如下：

  Dim n As Integer, max As Integer

  Dim a As Integer, b As Integer, c As Integer

  Dim t As Integer，m As Iinteger

   x = Val(Text1.Text)

   a = x \ 100

   b =     ①     

   c = x Mod 10

   If a >b Then t = a: a = b: b = t

   If a > c Then t = a: a = c: c = t

   If b > c Then t = c: c = b: b = t

           ②          

   Text2.Text = str(m)

为了实现上述功能，在程序划线处填入合适的代码。

    ①划线处代码：。

    ②划线处代码：。
综合题 普通