下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub数据库技术处于数
Y处画一个点): Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,X As Single,Y As Single) If cmdmave Then Forml.PSet(X,Y) End lf End Sub Private Sub Form_MouseUp(Button As Integer,j