小强想编写一个能够完成交换变量a和b值的小程序，该程序对应的算法流程图如下图所示：

该流程图粗线框部分1所在的位置应填写的内容是    。（2分）

如图所示的流程图片断，该流程图执行过后，A、B的值分别为(   )

A．A是20，B是30

B．A 是20，B是20

C．A是30，B是30

D．A是30，B是20

输入一个两位正整数，个位和十位交换后在LABEL1上和窗体上分别输出。
PRIVATE    SUB   FORM-CLICK(   )
DIM   X   AS   INTEGER, G  AS   INTEGER
DIM   S  AS    INTEGER , Y  AS   INTEGER
X=VAL(INPUTBOX(“请输入一个两位正整数”))
G=________    ‘个位
S=________    ‘十位
Y=________   ‘新数
________
________
END    SUB

在VB中，若x=16，y=5，则表达式x-y Mod 3^2 的值是  ( )。

A．0

B．9

C．10

D．14

小刘编写了一个求序列所有子序列和的程序。程序能够输 出所有的子序列的和，同时输出最大的子序列和。如序列中有三个元素 a(1)，a(2)，a(3)，其子序列包括“a(1)，a(2)”，“ a(1)，a(2)，a(3)”，“ a(2)，a(3)”。 程序运行界面如图所示。

实现上述功能的VB程序如下（数组每一项的值都为［-100,100］内的随机整数），请将程序代码补充完整。
Private Sub Command1_Click()
Dim  a(1 To 10) As Integer
Dim b(10) As Integer
Dim i As Integer, j As Integer
Dim k As Integer, max As Integer
Randomize
max=-32768
List1.Clear
List2.Clear
b(0)= 0
For i=1 To 10
a(i)=___________    '(1)
b(i)=b(i-1)+a(i)
List1.AddItem  Str(a(i))
Next i
For  I = 1 To 10
For  j=i+1  To  10
s="a("+Str(i)+")"+"至"+"a("+Str(j)+")"+"的和为"
k=_______________     '(2)
If  k>max Then  max=k
List2.AddItem s+Str(k)
Next j
Next i
Label3.Caption="子序列最大和为："+___________ '(3)
End Sub