有如下VisualBasic程序段： S=0Fori=1To5s=s+i NextiIfi<=5ThenText1.Text=Str(s)ElseTex_刷题宝

题干

有如下 Visual Basic 程序段：
S = 0
For i = 1 To 5

s = s + i

Next i
If i <= 5 Then
Text1.Text = Str(s)
Else
Text1.Text = Str(s + i)
End If
该程序段运行后，在文本框Text1中显示的是

A．5

B．6

C．15

D．21

上一题下一题 0.99难度选择题更新时间:2019-05-10 09:42:37

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

同类题1

某对分查找算法的 VB 程序段如下：
i=1:j=8:s=""
key=Text1.Text
Do While i<=j
m=(i+j)\2
If key=a(m) Then
s=s+"M"
Exit Do
Elseif Key >a(m) Then
　　j=m-1:s=s+"L"
Else
i=m+1: s=s+"R" End if
Loop Text1.Text=s
数组元素 a(1)到 a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框 Text1 中显示的内容不可能是（）

同类题2

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

A．	B．
C．	D．

同类题3

有如下程序：

Dim a(3,3) As Integer

For m = 1 To 3

For n = 1 To 3
a(m,n)=(m-1)*3+n
Next n

Next m

 For m = 2 To 3
For n = 1 To 2
Print a(n,m);
Next n
Next m
运行后输出结果是： ( ）

同类题4

下列程序执行后变量c的值为（）
c=0
For i=1 to 10
If i mod 2=0 or i mod 3 =1 then
c=c+1
End If
Next i

同类题5

下列为部分VB程序语句代码：( )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后，s的值为2，则循环语句的步长（划横线处）应填( )

相关知识点