有如下VB程序段:Dima(1To10) As IntegerPos=-1i=1DoWhilei<=10　If iMod2=0 Then a(i)=i*2_刷题宝

题干

有如下VB程序段:
Dim a(1 To 10) As Integer
Pos= -1
i=1
Do While i<=10
　If i Mod 2=0 Then a(i)=i*2 Else a(i)=i
　i=i+1
Loop
i=10
Do While i>=1
　If a(i)=12 Then Pos=i
　i = i-1
Loop
该程序段运行后,变量Pos值是(　　)

A．1

B．2

C．6

D．10

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

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

同类题1

有如下VB程序段：
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then

m=m+1

ElseIf t Mod 5=0 Then

n=n+1

End If
Next i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（）

同类题2

有如下VB程序段：
Dim i As Integer, sum As Integer
Dim a(1 To 8) As Integer
sum = 1
a(8) = 49: a(7) = 28
For i = 6 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
If a(i) Mod 3 = 0 Then sum = sum + a(i)
Next i
text1.Text = Str(sum)
该段程序运行后，文本框Text1中显示的内容是（）

同类题3

某算法的部分流程图如图所示。

执行这部分流程，输入11，变量i和f的值分别是（）

同类题4

如图，若输入框中m=4，n=3，则m= ①_____ a= ②_____，i= ③_____

同类题5

在Visual Basic中，下列循环程序段输出“*”的个数最小的是（）

A．	B．
C．	D．

相关知识点