分析VB程序，回答問題。
（1）下列程序運行后，在標簽Lab上顯示的是

中國印象

中國印象

。
Private Sub Command1_Click（　?。?br />Dim a As String,b As String,c As String
a=“印象西湖“
b=“中國“
c=b+Mid（a,1，2）
Lab.Caption=c
End Sub
（2）下列程序運行后，在標簽Label1上顯示的是

托運

托運

。
Private Sub Command1_Click （　?。?br />Dim a As Single,b As Single,c As Single,w As Single
w=6：a=60：b=50：c=30
  If w＜=10And a+b+c＜=115Then
Label1．Caption=“攜帶“
Else
Label1．Caption=“托運“
End If
End Sub
（3）下列程序運行后，數(shù)組元素d（3）的值是

6

6

。
Private Sub Command1_Click （　?。?br />Dim d（1To 8）As Integer
Dim i As Integer
For i=1To 8
d（i）=2*i
List1．AddItem Str（d（i））
Next i
End Sub