- 二一组卷

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

浙江省金华市江南中学2020届高三下学期信息技术4月初测试卷

有如下VB程序段：

a(1) = 1

For i = 2 To 6

Randomize

a(i) = a(i - 1) + Int(Rnd * 5 + 1)

If a(i) Mod 2 = 1 Then

a(i) = a(i) \ 2 + 1

Else

a(i) = a(i) / 2

End If

Next i

执行程序后，a数组各元素可能是（）

A、1 3 4 6 7 9 B、1 2 0 3 5 6 C、1 2 3 4 5 4 D、1 3 4 5 1 1

举一反三

For i= 1 To 10

b(i)=0

Next i

For i= 1 To 5

For j= 1 To 10

If b(i) <a(j) Then

b(i)=a(j)

t=j

End If

Next j

a(t)=0

List 1.Additem Str(b(i) )

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（）

s="Dijob 2023" s1=""

for i in range(0,len(s)):

c=s[i]

if "a"<=c<="z" or "A"<=c<="Z":

s1=s1+chr(ord(c)-1)

else:

s1=c+s1 print(s1)

程序运行后，输出的结果是（）

相关试卷