- 二一组卷

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

浙江省稽阳联谊学校2020届高三下学期信息技术4月联考试卷

有如下VB程序段

Const n=9

k = 1

For i = 1 To (n + 1) / 2 - 1

For j = 1 To n - i * 2

If a(j) * k < a(j + 2) * k Then

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

End If

k = -k

Next j

Next i

For i = 1 To (n + 1) \ 2

List2.AddItem Str(a(2 * i - 1))

Next i

已知数组元素 a（1）~a（9）分别是8、6、2、9、6、3、8、11、5，执行程序后list2输出的结果分别是（）

A、2 5 6 8 8 B、 8 8 6 5 2 C、6 8 5 8 2 D、 2 6 6 8 9

举一反三

【加试题】郑强收集了某月部分品牌电脑在某城市的销售量，并设计了一个VB排序程序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示按销售量从低到高排序后的结果，在标签Label3中显示比较次数。程序中数组a和数组b分别存储品牌名称和对应的销售量。

Const n As Integer = 10 'n为品牌数

Dim a(1 To n) As String '数组a用于存储品牌名称

Dim b(1 To n) As Integer '数组b用于存储销售量

Private Sub Form_Load()

'此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

Dim n As Integer

n = 1

For i = 1 To 9

k = i

For j = i+1 To 10

If Then k = j

n=n+1

Next j

If ① Then

x = a(i): a(i) = a(k): a(k) = x

y = b(i): b(i) = b(k): b(k) = y

End If

Next i

For i = 1 To 10

List2.AddItem Str(a(i)) + " " + b(i)

Next i

Label3.Caption = "比较次数为：" + + "次"

End Sub

编写VB程序，实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数，并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：

n = 0

m = 0

For i = 1 To 100

If Rnd > 0．5 Then

n = n + 1

Else

m = m + 1

Next i

小金仔细分析该程序段后，发现其中缺少了( )

有如下VB程序:

Dim i As Integer, j As Integer, k As string, n As Integer

n = 3

List1.Clear

For i=1 To n

k =″″

For j=1 To i

k = k+″*″

Next j

List1.AddItem k

Next i

该程序运行后, 在列表框List中显示的是（）

有如下VB程序段：

Dim c As String, i As Integer

Dim s As String, s1 As String

s = "Jishu_Xuankao_2020"

s1 =""

For i = 1 To Len(s) Step 2

c = Mid(s, i, l)

If c >= "a" And c <= "z" Then s1=c+s1

Next i

Text1. Text = s1

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

某编码由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程序如下，请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心