填空题

设有如下程序
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(1,3,5,7,9, 11, 13, 15)
Call Search(b, 11, n)
Print n
End Sub
程序运行后,输出结果是______。

【参考答案】

E
<上一题 目录 下一题>
热门 试题

填空题
设有如下程序 Private Sub Form Click() Dim a As Integer, b As Integer a=20: b=50 p1 a, b p2 a, b p3 a, b Print a= ; a, b= ; b End Sub Sub p1(x As Integer, ByVal y As Integer) x = x+10 y = Y+20 End Sub Sub p2(ByVal x As Integer, y As Integer) x = x+10 y = y+20 End Sub Sub p3(ByVal x As Integer, ByVal y As Integer) x = x+10 y = y+20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a==______和b=______。
填空题
在窗体中添加一命令按钮,(其Name属性为Commmld1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。 请在空白处填入适当的内容,将程序补充完整。 Private Sub Command1 Click() Dim a(100) For j=1 To 100 a(j)=Int(______) If a(j)______5=0 Then______ Print a (j); Next i Print Print k 100 End Sub
相关试题
  • 下列可作为Visual Basic变量名的是
  • 在结构化方法中,用数据流程图(DFD) 作...
  • 软件需求分析阶段的工作可以分为四个方面:...
  • 设菜单中有一个菜单项为“Open”。若要为该...
  • 假定有以下程序段: For i= 1 To 4...