Private Sub Command1_Click()

   Dim x As Integer

   Dim y As Integer

   x = 900

   y = Abc(x)

   Label1．Caption = Str(y)

 End Sub

运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（   ）

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const  n = 50

Dim d(0 To n) As single , name(1 to n) as string

'读入50个学生的身高，依次存入d(1)…d(50),姓名存入name(1)…name(50) '代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, temp As single, k As Integer,r as string

d(0) = 2

For i = 1 To 10

    ①

    For j = i To n

     If d(j) < d(i - 1) Then

         If     ②  Then

           k = j

        End If

     End If

  Next j

  If k <> i Then

     temp = d(k):  d(k) = d(i):  d(i) = temp

     r=name(k) : name(k)=name(i) : name(i)=r

  End If

Next i

For i = 1 To 10   ‘输出被选的10个人的名字和身高。

  List2．AddItem  name(i) & d(i)

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

实现该功能的VB程序段如下：

Function space(x As Integer)As String        ‘输出格式化，设置左侧的空格数量

  Dim n As Integer

  For n=9 To x Step-1

     ①  

  Next n

End Function

Private Sub Form_Load()

  Dim t As Long，i As Integer，n As String

  Dim a(1 To 9)As String

  Dim b(1 To 9)As String

  Const num=“987654321”

  For i=1 To 9

    t=t*10+i

    a(i)=space(i)+CStr(t)  ‘CStr函数的功能是将数值转为字符，转换时不会添加空格

       ②   

    n=n+a(i)+“*8+”+CStr(i)+“=”+b(i)+Chr(13)       ‘Chr(13)实现换行处理

  Next i

  Label1．Caption=n

End Sub

m=int(input("请输入自然数 m:"))

n=int(input("请输入自然数 n:"))

i=1

if m<n:

    m,n=__①__

    s=m

    while __②__:

        i = i+1

        s =__③__

print(__④__)