设有如下程序 Private Sub Search(a( )As Variant ByVa1 key
设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load( ) Show Dim b( ) As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【 】。
请帮忙给出正确答案和分析，谢谢！
参考解答
482***264
2023-07-22 14:06:24
正确答案：5
根据题意，Search需要在数组a()中寻找等于key的数，如果找到了，则令In-dex等于该元素的下标值，如果没有找到，则令Index等于-1。根据，在调用Search时，11为b(8)的第6个元素，下标为5，故index为5。
相似问题
下列程序的输出结果为______ Sub Prin() Dim B As String A=1 B=
下列程序的输出结果为______ Sub Prin() Dim B As String A=1 B=A & Space(4)& A Print A Print Trim(B) End Sub请帮忙给出正确答案和分析，谢谢！
在窗体上画一个列表框 一个命令按钮和一个标签 其名称分别为List1 Commandl和Label1
在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1) 然后编写如下几个事件过程
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load( ) Timer1 Enabled=False Time
函数Str$(256.36)的值是______。请帮忙给出正确答案和分析 谢谢！
函数Str$(256 36)的值是______。请帮忙给出正确答案和分析，谢谢！
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1) 如图16-11所示 然后
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，如图16-11所示，然后编写如下几个事件过程： Private Sub Form_Load() Timer1 Enab
