有以下程序段：s=1:j=2DoWhiles<jForj="2"To-2 Step-1 s=s*j NextjLoopMsgBox(s)则s="s*j"的_刷题宝

题干

有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )

A．1

B．4

C．5

D．6

上一题下一题 0.99难度选择题更新时间:2016-03-16 04:15:23

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

同类题1

假设变量a=4，b=5，执行t=a+b:a=b-a:b=t语句以后，a和b的值分别是（）

同类题2

有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（）
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub

A．3	B．6
C．10	D．18

同类题3

输入19，输出的结果为。
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s

同类题4

有如下Visual Basic程序段：
Dim a(1 To 7) As Integer, i As Integer, j As Integer, k As Integer, c As Integer
a(1) =" 3:" a(2) =" 9:" a(3) =" 1:" a(4) =" 5:" a(5) =" 8:" a(6) =" 6:" a(2) = 2
s = ""
For i =" 1" To 3
For j =" i" + 1 To 7
If a(j) < a(i) Then
k =" a(j):" a(j) =" a(i):" a(i) = k
c =" c" + 1
End If
Next j
s =" Str(a(i))" + s
Next i
text1.Text =" Str(c)" & “:” & s
该程序段运行后,文本框Text1中显示的内容是

同类题5

在 VB 中，下列程序段执行后，变量 s 的值是( )。
s=1
For k="1" To 3
s=s+1
Next k

相关知识点