单项选择题

设有如下程序： 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．2
B．6
C．10
D．12
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = Text2．Text c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是
A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x，s) Sum=Sum+ s Next X Print Sum End Sub Private Sub subl(y，w) w = 1 For i=1 To y w = w * i Next i End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．5
B．120
C．153
D．160
相关试题