将以下程序段补充完整。
问题：往一个足够大的盒子里放小球，第一次放1个，第二次放2个，第三次放3个……，即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个？输出答案。n 表示放球的次数，sum表示小球的总数。
Dim n as integer , sum as integer 
n=0  
sum=0  
Do While sum<=300
n =____   ①  ______
sum =____  ②____   
Loop
Print “放到第” & ___   ③___  & “次盒子里的小球才能多于300个”

某算法的部分流程图如图所示，执行这部分流程后，下列分析正确的是（   ）
 

A．当 x 输入 2，y 输入 1 时，输出结果是 16

B．当 x 输入 2，y 输入 2 时，输出结果是 4

C．当 x 输入 2，y 输入 1 时，“b=b*x”共被执行 5 次

D．当 x 输入 2，y 输入 2 时，“a=a\x”共被执行 4 次

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub

随机产生10个12,20间的随机整数放在A数组中,打印最大的和最小的.请完善程序
PRIVATE   SUB   FORM_CLICK( ）
________1
MAX=0:  MIN=21
FOR   I=  1  TO  10
A(I)=________2
IF ________3THEN   MAX=A(I)
IF ________4THEN  MIN=A(I)
NEXT  I
PRINT   “最大数是”；MAX ,”最小数是” ；MIN
END  SUB

（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（　　）

A．102，9

B．100，8

C．102，8

D．100，9