Private Sub Command1_Click()

   Dim x As Integer

   Dim y As Integer

   x = 900

   y = Abc(x)

   Label1．Caption = Str(y)

 End Sub

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

Private Sub Command1_Click()

Dim x As Integer, y As Integer

Dim i As Integer, j As Integer

  x=val(text1.text)

i=x \ 10

 _____________  ①

y=j*10+i  

 Text1.Text = y    ②

End Sub     

绘制函数图象y=x²的VB源代码如下，请补充完整。

以上的VB计算机语言是{#blank#}3{#/blank#}语言。（已知计算机语言有：机器语言、汇编语言、高级语言）

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

s=“491053”

For i=1 To 3

n=Len(s)

k=1

For j=2 To n

If Mid(s， k， 1) >=Mid(s， j， 1) Then

K=j

Else

Exit For .Exit For表示退出循环

End If

Next j

s= Mid(s， 1， k-1) + Mid(s， k+ 1，n-k)

Next i

Label1.Caption =s

执行该程序段后，标签Label1中显示的值是（  ）

Dim i As Integer    ——1

Dim s As Integer    ——2

s=1     ——3

For i=1 To 10

 s=s*i    ——4

Next i

Print s