有如下VB程序段：i=1：n=5Dowhilei<=nx=Int(Rnd*9)+1If xMod2=1Thena(i)=xElsea(n)=x:n=n+_刷题宝

题干

有如下 VB 程序段：
i=1：n=5
Do while i<=n x=Int(Rnd*9)+1
If x Mod 2=1 Then a(i)=x
Else
a(n)=x:n=n+1
EndIf
i=i+1
Loop
数组元素的初值均为 0，执行该程序段后，a(1)至 a(5)的值可能是（）

A．1 , 3 , 5 , 5 , 0

B．3 , 3 , 0 , 8 , 8

C．0 , 1 , 0 , 4 , 2

D．7 , 1 , 3 , 9 , 8

上一题下一题 0.99难度选择题更新时间:2019-11-20 12:46:01

答案(点此获取答案解析）

同类题1

某VB程序的一个事件过程如下:
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是（）

A．溢出	B．下标越界
C．类型不匹配	D．无效的过程调用或参数

同类题2

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示 ① ，Text2显示 ② 。

同类题3

以下流程图的运行结果是_______。

A．4 9	B．5 9
C．4 5	D．9 5

同类题4

写出算法执行结果

同类题5

某排序算法的 VB 程序段如下：
K=1
For i = 1 To 2
For j = 1 To 6 - 2 ∗i
If K∗a(j) < K∗a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
K=-K
Next j
Next i
数组元素 a(1) ~a(6)的初始值依次为“10，15，8，35，26，17”，执行该程序段后，数组 a 元素的值分别为（）

A．8，10，15，17，26，35	B．35，26，17，15，10，8
C．26，35，10，17，8，15	D．26，15，10，17，8，35

相关知识点