- 二一组卷

题型：单选题题类：常考题难易度：普通

【gb】浙江省衢州市2021届高三上学期信息技术12月教学质量检测信息技术试卷

某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2 '枚举可能的原始长度

If L Mod t = 0 Then

For i = t + 1 To L Step t

If ① <> Mid(s， 1， t) Then Exit For

Next i

If i = L + 1 Then ans = ② : Exit For

End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（）

A、①Mid(s， i， t) ②Mid(s， 1， t) B、①Mid(s， i， t) ②Mid(s， t， 1) C、①Mid(s， i Mod t， 1) ②Mid(s， 1， t) D、①Mid(s， i Mod t， 1) ②Mid(s， t， 1)

举一反三

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …，a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer

n = Val(Text1.Text)

sum = 0

List1.Clear

For i = 1 To n ' ①

j = i - 1

Do While sum <= n ' ②

j = j + 1

sum = sum + j

Loop

If sum = n Then

List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)

End If

sum = 0

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

【加试题】某省学生信息技术学习平台使用情况数据存储在数据库中，利用VB编写一个程序，实现功能：输入一个积分的范围，显示该范围内的学生编号和对应的积分。程序运行界面如图所示：

程序代码如下，为实现上述功能，请在画线处填写合适的代码。

Dim bh(10 000)As String ‘存储学生编号

Dim jf(10 000)As Integer ‘存储学生获得的积分值

Dim n As Integer ‘存储学生总人数

Function Search(x As Integer)As Integer

Search=0

i=1：j=n：flag=True

Do While i<=j And flag=True

m=Int((i+i)／2)

If x=jf(m) Then

flag=False

①

Elself ② Then

i=m+1

Else

j=m-1

EndIf

Loop

End Function

Private Sub Form_Load()

‘从数据库中读取学生编号和积分，分别存储到bh数组和jf数组中，并按积分值从小到大排序，显示在列表框List1中

End Sub

Private Sub Command1_Click()

Dim Top As Integer，Bottom As Integer，Topxb As Integer，Bottomxb

As Integer

List2．Clear

Top=Val(Text1．Text)

Bottom=Val(Text2．Text)

If Top>Bottom Then t=Top：Top=Bottom：Bottom=t

If Top>jf(n)Or Bottom<jf（1）Then Exit Sub

Do While Search(Top)=0

Top=Top+1

Loop

Do While Search(Bottom)=0

Bottom=Bottom-1

Loop

Topxb=Search(Top)

Do While jf(Topxb)=jf(Topxb-1)And Topxb>l

Topxb=Topxb-1

Loop

Bottomxb=Search(Bottom)

Do While jf(Bottomxb)=jf(Bottomxb+1)And Bottomxb<n

Bottomxb=Bottomxb+1

Loop

For i= ③

List2.AddItem bh(i)&" "&jf(i)

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#}

如图1所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图2所示。

算法分析：从A点到B点共有7个路口，即可以有一个7位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的7位二进制数，再去掉不满足的二进制数即可。

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示：

某编码由4个信息位和3个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7位编码中b1～b4为信息位，p1～p3为校验位，位置如下：

编码中位	1	2	3	4	5	6	7
对位信息	p1	p2	b1	p3	b2	b3	b4

校验的方式如下，求校验值g1、g2、g3：

g1 = p1 Xor b1 Xor b2 Xor b4

g2 = p2 Xor b1 Xor b3 Xor b4

g3 = p3 Xor b2 Xor b3 Xor b4

其中Xor 为异或运算，规则是：0 Xor 0 =0，0 Xor 1 =1，1 Xor 0 =1，1 Xor 1 =0，

p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。

⑴若计算得到的校验值g1、g2、g3均为0，说明校验正确，数据无错误。例如：若7位编码为1101001，计算校验值g1、g2、g3值均为0，验证正确。

⑵若校验值g1、g2、g3不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3位，原位置上“1”应为“0”，正确编码为1101001。

小明为此编写了VB程序，程序运行时，在文本框Text1中输入编码值，单击“校验”

按钮Command1后，在文本框Text2中输出运行结果，如图所示。

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

有以下VB程序段：

i=1: j=10: flag=True: cs=0

Key=Int(Rnd()*10)+28

Do While i <=j And flag=True

m=(i+j) \ 2 : cs=cs+1

If a (m)=Key Then

flag=False

Else If a(m) < Key Then

i=m+1

Else

j=m-1

End If

Loop

数组元素a(1)到a(10)依次是3 10 17 23 27 30 35 40 45 50，变量cs的值可能是（）

相关试卷

公司介绍

服务介绍

帮助中心