单项选择题

下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
　Const a=6
　Dim x (a) As Integer
　For I=1 to a
　　x(i)=1^2
　Next I
　Print x(i)
End Sub

A．36
B．25
C．1
D．出错信息
<上一题 目录 下一题>
热门 试题

单项选择题
当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。
A．AutoSize属性
B．Resize事件
C．AutoRedraw属性
D．Stretch方法
单项选择题
假定有如下事件过程： Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是( )。
A．81 4
B．56 3
C．28 1
D．243 5
相关试题