执行如下VB程序段S=0Fori=20To1Step-5S=S+1NextiText1.text=str(s)文本框中显示的值是（）A．50B．20C．5_刷题宝

题干

执行如下VB程序段
S=0
For i=20 To 1 Step -5
S=S+1
Next i
Text1.text=str(s)
文本框中显示的值是（）

A．50

B．20

C．5

D．4

上一题下一题 0.99难度选择题更新时间:2019-05-20 03:14:05

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

同类题1

某算法的部分流程图如图所示。以下说法正确的是（）

A．该流程图属于选择结构

B．执行这部分流程后，c ← c + 2执行的次数为2次

C．执行这部分流程后，c的值是22

D．执行这部分流程后，

执行的次数为10次

同类题2

根据下列程序段运行后a的值，划线处应该填入的合理数据类型为（）
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i

同类题3

在包含20 个元素的数组a 中，寻找最小值的VB 程序段如下。其中变量min 用于储最小值：
For i=2 To 20
If a(i)<min Then min=a(i)
Next i
则方框中最合适的语句是: ( )

同类题4

有如下 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

同类题5

阅读程序，写出运行结果

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

x=Val(InputBox(“x=”))

If y< x Then

y=x

End If

Next i

Print y

程序运行后，依次输入：36 87 51

运行后输出结果是_________________。

相关知识点