网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有如下程序： 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 0
B．-5 0
C．-5 6
D．0 6
参考答案和解析
C 用数组名作为函数实参时，不是把数组的值传递给形参，而是把实参数组的起始地址传递给形参数组，这样两个数组就共同占用同一段内存单元。本题通过“prt(a,5);”将数组a的首地址传递给了指针变量m，使指针变量m指向数组a的首地址，那么，对指针变量所指向的存储单元的内容的改变就是对数组a中的元素的改变。题中函数prt的作用是将指针变量m所指向的存储单元中的元素值各加上1，故数组a中的值也随之变化，所以。输出的数组元素的值为2,3,4,5,6,。
更多 “有如下程序： 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” 相关考题
考题
如果存在如下过程：Private Function FMax（a（） As Integer）Dim First As Integer, Last As Integer, i As IntegerFirst=LBound（A）Last=UBound（A）Max=a（First）For i=First To LastIf a（i） Max Then Max=a（i）Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）ReDim m（1 To 4） As Integerm（1） =20: m（2） =30: m（3） =50: m（4） =100c=FMax（m）Print cEnd Sub单击命令按钮，其输出结果为 【12】 。
考题
下列程序的运行结果为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
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）Dim i As IntegerFor i=LBound（oldCopy（） ） To UBound（oldCopy（） ）newCopy（i） =oldCopy（i）Next iEnd SubPrivate Sub Command1_Click（）Dim m（10） As Integer, n（10） As IntegerFor i=1 To 10m（i） =i iNext iCall BTC（m, n）Print n（5）End Sub程序运行后，单击命令按钮输出结果为（ ）。A．0B．2C．10D．25
考题
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
考题
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End SubA．36B．25C．1D．出错信息
考题
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．程序出错
考题
（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1="；s1；"s2"；s2； End Sub Function Factorial(a()As Integer) Dim t#,i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next i Factorial=t End Factorial A.s1=360 s2=24 B.s1=24 s2=360 C.s1=24 s2=24 D.s1=360 s2=360
考题
如果存在如下过程:Private Function Fun(a() As Integer)Dim First As Integer, Last As Integer, i As IntegerFirst=LBound(a)Last=UBound(a)Max=a(First)For i=First To LastIf a(i) Max Then Max=a(i)NextFun=MaxEnd Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()ReDim m(1 To 4) As Integerm(1)=20: m(2)=30: m(3)=50: m(4)=100c=Fun(m)Print cEnd Sub单击命令按钮,其输出结果为 【 】。
考题
下面运行程序后,单击命令按钮,输出的结果是 【 】 。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
考题
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
考题
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为A．80B．60C．70D．15
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m "*”：n=n"#" Print x，y，m，n End Sub 程序运行后，输出的结果是A．1 1 * #B．1 1 * #C．1 1 * # 1 1 * # 1 2 * #D．1 1 * # 1 1 * ## 1 2 * ##
考题
下面程序运行后，单击命令按钮，输出的结果是 Pivate Sub Cornmand1_Click() Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(a) str2=YAG(b) Print"str1=";str1;"str2=";str2 End Sub Function YAG(a()As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next YAG=t End FunctionA．str1=24 str2=720B．str1=12 str2=360C．str1=24 str2=180D．str1=36 str2=720
考题
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
考题
设有如下程序： 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
考题
若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (A) s2 = Factorial (B) Print "s1="; s1; "s2="; s2 End Sub Function Factorial(a() As Integer) Dim t#, i% t=1 For i = LBound(A)To UBound(A) t = t * a(i) Next i Factorial = t End FunctionA．s1=360 s2=24B．s1=24 s2=360C．s1=24 s2=24D．s1=360 s2=360
考题
有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd FunctionA．s1=360 s2=24B．s1=24 s2=360C．s1=24 s2=24D．s1=360 s2=360
考题
有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m"*"：n=n "#" Print x，y，m，n End Sub 程序运行后，输出的结果是A．1 1 * # 1 1 * #B．1 1 * # 1 2 * #C．1 1 * # 1 1 * ##D．1 1 * # 1 2 * ##
考题
单击命令按钮后，下列程序代码的执行结果是______。Public Sub fun (a As Integer, b As Integer, c As Integer)Doa=b+ cn=n+1Loop While n ＞ 3End SubPrivate Sub command1_ click()Dim m As Integer, n As Integer, i As IntegerFor i = 0 To 2: m = n + 1: Next iFor i = 1 To 2: Call fun (m, n, i): Next iFor i = 0 To 3Print m;Next iEnd Sub
考题
有下列程序，程序运行后单击命令按钮，则输出的结果是( )。Private Sub Command1_Click()Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#For i=1 To 4a(i)=iNext iFor i=3 To 6b(i)=iNext is1=Factorial(A)s2=Factorial(B)Print"s1=";s1;"s2=";s2End SubFunction Factorial(a() As Integer)Dim t#,i%t=1For i=LBound(A)To UBound(A)t=t*a(i)Next iFactorial=tEnd FunctionA．s1=360 s2=24B．s1=24 s2=360C．s1=24 s2=24D．s1=360 s2=360
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( ))To UBound(oldCopy( )) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结果为A．0B．2C．10D．25
考题
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
考题
有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
下列程序的运行结果为 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
热门标签
最新试卷