编写如下程序：Private Sub Command1_Click() Dim a%, b%, c% a = 8: b = 3 Do c = a - b Print c; a = b: b = c Loop Until Abs(c) > 10End Sub程序运行后，单击命令按钮Command1，输出结果是

单项选择题下面程序的功能是：从键盘输入若干个自然数，输入-1则结束输入，然后计算平均值输出（因事先不知道执行时会输入多少个数，定义一个动态数组存放这些数）。Private Sub Command1_Click()Dim a() As Integern = 0Dox = InputBox( 请输入一个自然数，输入-1结束 )If x <> -1 Thenn = n + 1___________a(n) = xEnd IfLoop Until x = -1For k = 1 To ns = s + a(k)NextPrint s nEnd Sub以上程序不完整，应在横线处填写的是

单项选择题编写如下程序：Private Sub Command1_Click() For i = 1 To 5 Print Tab(6 - i); For j = i To 1 Step -1 Print * ; Next j Print Next iEnd Sub程序运行后的输出结果是