在 VB 的算术运算中，最大的实数类型 double 有效位数也只有 15 位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框 Text1 中输入被除数（正整数） ,在文本框 Text2 中输入除数（正整数），在文本框 Text3 中输入小数位数，单击按钮 Command1，在标签 Label 中显示除法运算的商。程序运行界面如图所示，但加框处代码有错，请改正：

Private Sub Command1_Click
Dim x, y As Integer
Dim n As Integer
Dim s As String
x = Val(Text1.Text): y = Val(Text2.Text)
n = Val(Text3.Text)
s = s + Str(x \ y)
s = s + "."
k = x Mod y
For i = 1 To n

x = x+k * 10 ①________

s = Str(x \ y) ②________

 
k = x Mod y
Next i
Label1.Caption = "商为： " + s
End Sub

以下程序段运行时出现如图所示的错误提示:
 For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了(  )

A．For

B．End If

C．Next

D．If

有如下 V B 程序段：
Dim s(1 To 6) As String
Text1.Text = ""
For i =" 1" To 5
For j =" i" + 1 To 6
If s(i) + s(j) < s(j) + s(i) Then
t =" s(j):" s(j) =" s(i):" s(i) = t
End If
Next j
Next i
For i =" 1" To 6
Text1.Text =" Text1.Text" + s(i)
Next i
如果程序运行，一开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（ ）

A．434331224612121	B．434331224612112
C．343312246121124	D．121122463123434

某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：
①number＝0  ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是(  )

A．每天允许使用团购券数量最多是30

B．代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的

C．此算法的循环结构可以用For语句来实现

D．此算法是用自然语言来描述的

有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s