试题搜索第46页

有如下两段VB程序：

程序段1：
i=1:cnt=0:flag=True
Do While i < n And flag

Flag=False

For j=n To i + 1 Step －1

If a(j) < a(j－1) Then

tmp=a(j)

a(j)=a(j-1)

a(j－1)=tmp

flag=True

cnt=cnt + 1

End If

Next j

i=i+1

Loop

程序段2：
i=1:cnt=0:flag=True
Do While i < n And flag

flag=False

K=i

For j=i+1 To n

If a(j) < a(k) Then k=j

Next j

If k <> i Then

tmp=a(i):a(i)=a(k):a(k)=tmp

flag=True:cnt=cnt＋1

End If

i=i+1

Loop

关于这两段程序的说法有：
①程序段1一定可以实现对数组a中n个元素的升序排序
②程序段2一定可以实现对数组a中n个元素的升序排序
③程序段1中cnt最大值可能为n（n-1）/2
④程序段2中cnt最大值可能为n－1
以上说法正确的有（）

A．①②③④

B．①②③

C．①③④

D．②③④

类型：选择题

难度系数：较难0.4

纠错

详情

有如下VB程序段：
i＝1
Do While i ＜＝6
   a（i）＝Int（Rnd（）*18＋1）
   If a（i）\3＝i Then
            i＝i－1
   Elself i Mod 2＝0 Then
            a（i）＝a（i－1）＋a（i）
   End If
   i＝i＋1
Loop
执行该程序段后，a数组各元素的值不可能的是（       ）

A．13，23，6，12，14，15	B．9，15，10，24，1，12
C．14，29，13，14，8，24	D．15，33，16，18，18，25

类型：选择题

难度系数：较难0.4

纠错

详情

有如下VB程序段：
key = Val（Text1.Text）
i = 1: j = 8
Do While i <= j
m = （i + j） \ 2
If a（m） < key Then j = m - 1 Else i = m + 1
Loop
数组元素a（1）到a（8）存放着非升序排列的数字，执行上述程序段后，下列说法错误的是（）

A．I = j + 1一定成立	B．i 可能等于9
C．a（i + 1）可能等于key	D．a（j - 1）可能等于key

类型：选择题

难度系数：较难0.4

纠错

详情

下列关于信息编码的描述，正确的是（）

A．汉字机内码的每个字节一定都大于128

B．十进制数n是128至255范围之内的奇数，则n-1对应的二进制数位数有可能是7位

C．已知字符“P”的ASCII码值是50H，则字符“N”的ASCII值是48H

D．(1110)₂×(16)₁₀的结果是(E0)₁₆

类型：选择题

难度系数：较难0.4

纠错

详情

有下列Python程序段：
a=[3,7,8,2,19,10,16,12]
n=len(a)
for i in range(2):
k=i
for j in range(i+1,n):
if a[k]<a[j]:
k=j
if i!=k:
a[i],a[k]=a[k],a[i]
下列说法不正确的是（）

A．程序段执行后，列表a中的元素为［19,16,8,2,3,10,7,12］

B．代码“for i in range（2）:”等价于“for i in range（0,2）:”

C．程序段执行后，变量k的值为7

D．将代码“if i！＝k:”修改为“if k＞i:”，不会影响程序的运行结果

类型：选择题

难度系数：较难0.4

纠错

详情

现需要查找正整数数组元素a(1)到a(10)中距离最远的两个相同数字，输出其最远距离，如下VB程序段实现该功能，其中f数组中所有元素的初始值为0。
For i = 1 To 10
   If f(a(i)) = 0 Then
            ①
   Else
If i – f(a(i)) > max Then max = i – f(a(i))
   End If
Next i
Text1.Text = Str(max)
则代码①处的语句可为（     ）

A．f(a(i))=a(i)

B．f(i)=f(a(i))

C．f(a(i))=i

D．f(a(i))=f(i)

类型：选择题

难度系数：较难0.4

纠错

详情

有如下程序段：
For i = 1 To 2
   For j = 1 To 6 – i
          If a(j) > a(j + 1) And j Mod 3 <> 0 Then
                       tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp
          End If
   Next j
Next i
则程序运行后，数组a(1)～a(6)的值可能为（     ）

A．3、4、7、2、5、6	B．3、4、5、6、2、7
C．2、3、4、5、7、6	D．5、4、3、2、6、7

类型：选择题

难度系数：较难0.4

纠错

详情

有如下VB程序段：
       i = 1: j = 10
       flag = True: k = 0
       Key = Val(Text1.Text)
       Do While i <= j And flag = True
             m = (i + j) \ 2
             If a(m) = Key Then
                    flag = False
             ElseIf a(m) > Key Then
                    i = m + 1
                    k = k - 1
             Else
                    j = m - 1
                    k = k + 1
             End If
       Loop
   数组元素a(1)～a(10)的值依次为102,91,88,84,80,72,70,65,50,46,变量k的值最终为0，则文本框Text1中输入的数字可能是（     ）

A．91

B．87

C．70

D．50

类型：选择题

难度系数：较难0.4

纠错

详情

有如下ⅤB程序段：
   a（1）=68：a（2）=88：a（3）=76：a（4）=60：a（5）=98
   a（6）=100：a（7）=64：a（8）=85：a（9）=99：a（10）=59
   For i=1 to 9
       b（i）=Abs（a（i +1）-a（i））
       c（b（i）\10）=c（b（i）\10）+1
   Next i
   For i = 0 To 10
       If c（i）> 0 Then Label1. Caption = Label1. Caption +   " "+Str（c（i））
   Next i
数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（   ）

A．2 3 2 1 1

B．1 3 2 2 1

C．2 3 2 2 1

D．1 3 2 1 2

类型：选择题

难度系数：较难0.4

纠错

详情

有如下VB程序段：
c = 1: Max = 0
s = "19491001ZHong20211001"
For i = 2 To Len(s)
       If Asc(Mid(s, i - 1, 1)) < Asc(Mid(s, i, 1)) Then
             c = c + 1
       ElseIf c > Max Then
             Max = c
             c = 1
       Else
             c = 1
       End If
Next i
Text1．Text = Str(Max)
执行上述程序段后，文本框 Text1 中显示的是（     ）

A．3

B．4

C．5

D．6

类型：选择题

难度系数：较难0.4

纠错

详情

学进去