填空题

读下列程序：
Private Sub Form_Click()
Static x(4) As Integer
For i=1 To 4
x(i)=x(i)+i*3
Next i
Print
For i=1 To 4
Print “x(“；i；”)=”X(i)
Next i
End Sub
该程序在运行了3次后，其最终结果是 (7) 。

【参考答案】

x(1)=9 x(2)=18 x(3)=27 x(4)=36
<上一题 目录 下一题>
热门 试题

填空题
设有如下程序： 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 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,6,9,11,13,15) Call Search(b,11．n) Print n End Sub 程序运行后，输出结果是 (6) 。
填空题
在关系模型中，把数据看成是二维表，每一个二维表称为一个 (5) 。
相关试题