校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如下图所示：

数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。

Private Sub Command1Click()

 Dim adocn As new connection

 Dim adors As new recordeset

 Dim str1 As string,str2 as string

 Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.path&”\  ①  .mdb”

 Adon.open str1

 Str2=”select * from Yue where  ②  =’”+text1.text+”’”

 Adors.open str2,adocn,adOpenDynamic,adLockOptimistic

 If adors.eof then

  Msgbox”你输入的学号不存在!”

 Else

  Label4. caption =adors.Fields(“name”).value

       ③        =adors.Fields(“money”).value

 Endif

 Adors.close

 Adocn.close

End Sub

为了实现上述目标，在画线处填入合适的语句或表达式：

①{#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

Private Sub Command1_Click()

  Dim s As String, i As Integer

  s = ""

  For i = 1 To 10 Step 2

      s = Str(i) + s

  Next i

  Text1.Text = s

End Sub

运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（    ）

Private Sub image1_click( )

   x=Val(Text1.Text)

   y=Val(Text2.Text)

   Label.caption=Str(x+y)

End Sub

关于该过程说法正确的是（  ）

Private Sub Command1_Click()

Dim s As String, s1 As String, c As String

s = Text1.Text

For i = 1 To Len(s)

  c = Mid(s, i, 1)

  s1 =          ⑴           

  For  j =           ⑵                

   If c <> Mid(s, j, 1) Then

   s1 = s1 + Mid(s, j, 1)

   End If

  Next j

         ⑶         

Next i

Text2.Text = s

End Sub