执行如下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

实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) Then k＝j
Next j
If i＜＞k Then
t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
在排序过程中，经过某一遍排序“加工”后，数组元素a(1)到a(6)的数据依次为“97，89，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是( )

A．97，95，91，89，88，94	B．97，95，94，91，88，89
C．97，95，91，88，89，94	D．97，95，94，91，89，88

同类题2

有如下VB程序段：
For i = 1 To 8
a(i) = Int(Rnd * 2)
Next i
sum = 0
For i = 1 To 8 Step 3
For j = i To 8
a(j) = 1 - a(j)
Next j
sum = sum + a(i)
Next i
Text1.Text = Str(sum)
执行程序段后，文本框Text1中显示的内容不可能是

同类题3

有如下程序段：
i = 1
Do While i <= 4 And flag(i) = False
For j = 5 To i + 1 Step -1

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

k = a(j):a(j) = a(j-1):a(j-1) = k
flag(i) = True

End If

Next j
i = i + 1
Loop
数组元素a(1)到a(5)的值依次为“56,23,78,11,8”，数组flag的初值均为False，经过该程序段“加工”后，数组元素放flag(1)到flag(5)中值为True的个数是( )

同类题4

小明设计了如下所示累乘器程序，以完成式子：1×2×3×4×5×6的累乘计算。
Private Sub form_load()
Dim k As Long, i As Integer
k = 0 ……… ①
For i =" 1" To 6
k =" k" * i ……… ②
Next i
MsgBox Str(k)
End Sub
为了完成小明的计算，程序中标有①、②的两处语句，哪个语句应作相应的修改，修改后其正确的语句为（写出标号和正确的语句）_____________。

同类题5

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

相关知识点