有如下VB程序段：i=0:j=1DoWhilej<=5Ifa(j)<>0Theni=i+1:a(i)=a(j)j=j+1LoopForj=i+1To_刷题宝

题干

有如下VB程序段：
i = 0: j = 1
Do While j <= 5
If a(j) <> 0 Then i = i + 1: a(i) = a(j)
j = j + 1
Loop
For j = i + 1 To 5
a(j) = 0
Next j
数组元素a(1)到a(5)的值依次为“0,20,0,4,31”，执行该程序段后，a(1)~a(6)各元素的值依次为( )

A．4,20,31,0,0

B．31,20,4,0,0

C．0,0,20,4,31

D．20,4,31,0,0

上一题下一题 0.99难度选择题更新时间:2019-05-30 05:42:39

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

同类题1

（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　 fx = 1
　Else
　　 fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

D．fx(x-1)*(x-1)

同类题2

某VB程序的部分代码如下：
a(1)=2
a(2)=3
For i=3 To 7
a(i)=a(i-1)*a(i-2)
If a(i)\10>0 Then
a(i+1)=a(i) Mod 10
a(i)=a(i)\10
i=i+1
End If
Next i
则执行该程序段后，数组元素a(8)的值为（）

同类题3

S=0: M=0:N=0
FOR I=1 TO   20
IF   I   MOD 2=0    THEN
S=S+1
ELSEIF I   MOD 3 =0 THEN
M=M+1
ELSEIF   I   MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )

同类题4

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

1图 2图
（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将属性的属性值修改为“___________”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If     ①     Then '(选填字母,从下列A.B.C.D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While ②     '(选填字母,从下列A.B.C.D四个选项中选取一项）
f =" i" * 9 / 5 + 32    '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项:
A.i <= t2 B.f <= t2 C.t1 > t2

同类题5

某算法流程图如第5题图所示，最后输出s的值是（）

相关知识点