将以下程序段补充完整。
问题：往一个足够大的盒子里放小球，第一次放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=" -" 8,b=6,下列运行结果中，值最大的是（    ）

A．2*a+3*b

B．sqr(a^2+b^2)

C．int(a+b)

D．abs(b+a/b)

完全平方数是指一个整数能表示成某个整数的平方的形式，例如图是完全平方数，可以表示成2的平方。下列判断整数型变量a是否为完全平方数的VB表达式不正确的是

A．Int(Sqr(a))=Sqr(a)

B．Sqr(a)^2=a

C．Int(Sqr(a))^2=a

D．Fix(Sqr(a))=Sqr(a)

使用 VB 编写一个数字逆序功能的程序，在文本框 Text1 中输入若干整数，相互之间用逗号隔开，单击“开始逆序”按钮，在文本框 Text2 中输出逆序后的数字序列。程序运行界面如图所示，请改正划线处的错误语句使程序能正确运行。

Private sub Command1_click()
Dim s1 As String, s2 As String, t As String, ch As String
Dim i As Integer
s1 = Text1.Text
i = Len(s1)
t = "": s2 = "" Do While i > 0
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
t = ch + t
Else
s2 = s2 + t +，  改正________
t = "" End If
i = i + 1 改正________
Loop
s2 = s2 + t
Text2.Text = s2
End sub

执行VB语句s=Mid("abcdefgh",2,3)+chr(66)后，变量s的值为(    )

A．"cdB"

B．"bcd65"

C．"cdA"

D．"bcdB"