阶乘是一种累乘积的计算方法,用“!”来表示阶乘,n!=1×2×3×……×n。如:8!=1×2×3×…×8=40320。小王为了求10! 的值,编写了如下Visual Basic代码:

Private Sub Command1_Click()

Dim i As Integer, s As Integer   ①

s = 0

i = 1

Do While i < 10       ③   

i = i + 1
s = s * i

Loop

    Print s

End Sub

运行该程序,小王单击命令按钮Command1后,出现如第38题图对话框,已知序号①划线处的代码有错误,正确的代码应该是___________________________。经过代码修改后,小王重新运行该程序,单击命令按钮Command1,出现的结果是“0”, 那么序号_____(填①/②/③/④)划线处的代码有错误,正确的代码应该是________________。

当前题号:1 | 题型:填空题 | 难度:0.99
现有如下Visual Basic程序段:

s = 0 :x = 2:y = 49

Do While x <= Sqr(y)

s = s + x
x = x + 2

Loop

该程序段运行后,x的值是(  )
A.2B.6C.8D.12
当前题号:2 | 题型:选择题 | 难度:0.99
现有如下Visual Basic程序段:

Dim a(1 To 10) As Integer

a(10) = 1

a(9) = 2

For x = 8 To 1 Step -1

  a(x) = a(x + 1) + a(x + 2)

Next x

该程序段运行后,a(6)的值是(  )
A.5B.8C.11D.13
当前题号:3 | 题型:选择题 | 难度:0.99
现有如下Visual Basic程序段:

S = 0

For I = _____ to 3 step -1

S = S + i

Next I

该程序段运行后,语句S = S + i共执行了4次,则下划线处应是(  )
A.0B.1C.5D.6
当前题号:4 | 题型:选择题 | 难度:0.99
以下程序段中循环体执行的次数是()

s = 0

i = 0

Do While s < 10

  i = i + 1

  s = s + i * i

Loop

A.3B.2C.1D.4
当前题号:5 | 题型:选择题 | 难度:0.99
阅读程序,写出运行结果

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

For i=1  To  3

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

If  y< x   Then

y=x

End If

Next  i

Print  y

程序运行后,依次输入:36  87  51

运行后输出结果是_________________。

当前题号:6 | 题型:填空题 | 难度:0.99
阅读下列程序,写出运行结果

Dim a(10) as integer

Dim i as integer

Dim s as integer

For i=1 to 5

  a(i)=i*i

next i

s=a(3)+a(4)

print s

上述程序运行后,变量s的值是________

当前题号:7 | 题型:填空题 | 难度:0.99
在VB 中,用来实现循环结构的语句是(   )。
A.For…NextB.Do While…Loop
C.If…Then…D.Do…Loop Until
当前题号:8 | 题型:选择题 | 难度:0.99
下列VB程序段运行完毕后,变量x的值为
x="2" : y=64
Do  while  x<= Sqr(y)
x=x+3
Loop
A.2B.5C.8D.11
当前题号:9 | 题型:选择题 | 难度:0.99
阅读程序,写出运行结果

Dim n as integer

n=val(inputbox(”n=”))

Do while  n mod 2 =0

n=n\2

loop

print n

程序运行时,输入36,输出n的值是__________

当前题号:10 | 题型:填空题 | 难度:0.99