网友您好， 请在下方输入框内输入要搜索的题目：

题目内容 （请给出正确答案）

下列程序的运行结果为

Dim a（-1 To 6）

For i=LBound（a, 1） To UBound（a, 1）

a（i） =i

Next i

Print a（LBound（a, 1） ） ; a（UBound（a, 1） ） （ ）。

A．0 0

B．-5 0

C．-1 6

D．0 6

参考答案

更多 “ 下列程序的运行结果为Dim a（-1 To 6）For i=LBound（a, 1） To UBound（a, 1）a（i） =iNext iPrint a（LBound（a, 1） ） ; a（UBound（a, 1） ） （ ）。A．0 0B．-5 0C．-1 6D．0 6 ” 相关考题
考题 3有如下程序，输出结果为( )。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End SubA．4 0 4 25B．5 0 4 25C．不确定D．程序出错
查看答案
考题 下面运行程序后,单击命令按钮,输出的结果是 【 】 。Private Sub Command1_Click()Dim a%(1 To 5),i%, s#For i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i=LBound(a) To UBound(a)t=t  a(i)NextFun=tEnd Function
查看答案
考题 设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。A．0 0B．-5 0C．-5 6D．0 6
查看答案
考题 下面运行程序后，单击命令按钮，输出出的结果是【 】。Private Sub Command1_Click( )Dim a% (1 To 5) ,i%, sFor i = 1 To 5a(i) =iNexts = Fun(a)Print"s="; s;End SubFunction Fun(a() As Integer)Dim t, i%t=1For i = LBound(A0To UBound(a)t=t * a(i)NextFun =tEnd Function
查看答案
考题 下列程序的运行结果为 Dim a(-1 To 6) For i=LBound(a，1)To UBound(a，1) a(i) = i Next i Print a (LBound(a，1))；a(UBound(a，1))A．0 0B．-5 0C．-1 6D．0 6
查看答案
考题 下面运行程序后，单击命令按钮，输出的结果是【 】。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2For i=1 To 4a(i)=iNextFor i=3 To 6b(i)=iNexts1.= Fun(a)s2 =Fun(b)Print "s1 ="; s1; "s2 ="; s2End SubFunction Fun( a( ) As Integer)Dim t, i%t=1For i = LBound(A)To UBound(a)t=t * a(i)NextFun=tEnd Function
查看答案
考题 下面程序运行后，单击命令按钮，输出的结果是______。Private Sub Command1_Click()Dim a%(1 To 5)，i%，sFor i=1 To 5a(i) =iNexts=Fun(A)Print "s="；s；End SubFunction Fun(a() As Integer)Dim t，i%t=1For i=LBound(A)To UBound(A)t=t*a(i)NextFun=tEnd Function
查看答案
考题 有如下程序代码,输出结果是( )。Dima()a=Array(1,2,3,4,5)fori=Lbound(a)toUbound(a)printa(i);nexti A.12345B.01234C.54321D.43210
查看答案
考题 有如下程序： Const n = -5 Const m = 6 Dim a（n To m) As Integer For i = LBound（a, 1) To UBound（a, 1) a（i) = i Next i Print a（LBound（a, 1)); a（UBound（a, 1)) 运行后输出的结果为（）。A．0 0B．-5 0C．-5 6D．0 6
查看答案
热门标签
最新试卷