阅读下面的程序段：

for I =1 to 3

for j =I to 1

for k = j to 3

a=a + 1

next k

next j

next I

执行上面的三重循环后，a的值为【 】。

下面的程序是找出50以内所有能构成直角三角形的整数组。阅读下面程序，并完成程序。

Private Sub Command1_Click( )

For a = 1 to 50

For b = a to 50

c = Sqr(a^ 2 + b^ 2)

If【 】then print a; b; c

next b

next a

end Sub

下面程序段运行后，变量X的值为【 】。

Dim X As Integer

Dim I as Integer

X = 0

For i = 0 to 50 step 10

X=X+i

Print X

执行下面的程序段后，s的值为【 】。

s = 0:k = 10

While k

s=s+10

k=k-2

Wend

阅读下面的程序段：

for I =1 to 3

for j =I to 1

for k = j to 3

a=a + 1

next k

next j

next I

执行上面的三重循环后，a的值为【 】。

下面程序的运行结果为【 】。

x = -2.3

y = 125

z = Len(Str$(x) + Str$(Y))

Print z

设栈S和队列Q的初始状态为空，元素e1、e2、e3、e4、e5和e6依次通过栈S，一个元素出栈后即进入队列Q，若6个元素出队的顺序是e2、e4、e3、e6、e5、e1，则栈S的容量至少应是【 】。

窗体的【 】用来定制窗体控件的属性。在窗体的设计视图中，窗体、窗体的页眉、主体部分、页脚以及窗体上的每个控件都具有与之关联的属性。

要确定“库存量”乘以“单价”的平均值是否大于等于￥501且小于等于￥1000，可输入【 】。

数据的逻辑结构可用一个二元组B=(K，R)来表示，其中K是数据元素的集合，R是【 】。

阅读下列程序：

Option Base 1

Private Sub Form. Click( )

Dim x(3, 3)

For j = 1 to 3

For k = 1 to 3

If j = k then x(j, k) = 1

If j ＜ ＞ k then x(j, k) =3

Next k

Next j

Call fun(x( ) )

End Sub

Private Sub fun(a( ) )

For j = 1 to 3

For k = 1 to 3

Print a(j, k);

Next k

Next j

End Sub

运行程序时，输出的结果是【 】。