在vb中如何让随机出现的图片能对上相应的名称?急!!!

这个怎么有问题？

改成 Image1.Picture = LoadPicture(App.Path & "\图片2\" & n & ".jpg") 变量不能直接放进“”里

For n = 1 To 10
Image2.Picture = LoadPicture(App.Path & "\图片2\" & n & ".jpg")
If n = 1 Then
Label2.Caption = "李敏镐"
ElseIf n = 2 Then
Label2.Caption = "王力宏"
ElseIf n = 3 Then
Label2.Caption = "张翰"
ElseIf n = 4 Then
Label2.Caption = "刘恺威"
ElseIf n = 5 Then
Label2.Caption = "李俊基"
ElseIf n = 6 Then
Label2.Caption = "尼坤"
ElseIf n = 7 Then
Label2.Caption = "梁朝伟"
ElseIf n = 8 Then
Label2.Caption = "吴彦祖"
ElseIf n = 9 Then
Label2.Caption = "冯绍峰"
ElseIf n = 10 Then
Label2.Caption = "黄渤"
End If
我做的是图片滚动。。。这么写了之后，label2出现的只有黄渤的名字@流隐木鬼

Private Sub Command1_Click()
'在1到10中随机选取图片
Randomize
N = Int(Rnd * 10) + 1
'随机读取
Image2.Picture = LoadPicture(App.Path & "\图片2\" & N & ".jpg")
'选择图片对应的名字
If N = 1 Then
Label1.Caption = 123
ElseIf N = 2 Then
Label1.Caption = 456
End If
End Sub

也可以使用 select case 语句，可直接使用
'在1到10中随机选取图片
Randomize
n = Int(Rnd * 2) + 1
'随机读取
Image2.Picture = LoadPicture(App.Path & "\图片2\" & n & ".jpg")
'选择图片对应的名字
Select Case n
Case Is = 1
Label2.Caption = "李敏镐"
Case Is = 2
Label2.Caption = "王力宏"
Case Is = 3
Label2.Caption = "张翰"
Case Is = 4
Label2.Caption = "刘恺威"
Case Is = 5
Label2.Caption = "李俊基"
Case Is = 6
Label2.Caption = "尼坤"
Case Is = 7
Label2.Caption = "梁朝伟"
Case Is = 8
Label2.Caption = "吴彦祖"
Case Is = 9
Label2.Caption = "冯绍峰"
Case Is = 10
Label2.Caption = "黄渤"
End Select

from3 的代码 直接换成下面的
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Alignment = 2
Label2.Alignment = 2
Timer1.Enabled = False
Timer1.Interval = 100
If Form1.Option1.Value = True Then
Image1.Picture = LoadPicture(App.Path & "\图片2\basN.jpg")
Label1.Caption = "您的名字是" + Form1.Text1.Text
Label3.Caption = "恭喜你和她天生一对"
End If
If Form1.Option2.Value = True Then
Image1.Picture = LoadPicture(App.Path & "\图片\basN.jpg")
Label1.Caption = "您的名字是" + Form1.Text1.Text
Label3.Caption = "恭喜你和他最有缘分"
End If
End Sub
Private Sub mnuA_Click()
MsgBox "高菲作品"
End Sub
Private Sub mnuE_Click()
End
End Sub
Private Sub mnuN_Click()
Form3.Hide
Form1.Show
End Sub
Private Sub Timer1_Timer()
Dim x As Integer
Dim y As Integer
Randomize
If Form1.Option2.Value = True Then
x = 1 + Rnd * 9
Image2.Picture = LoadPicture(App.Path & "\图片2\" & x & ".jpg")
End If
Select Case x
Case Is = 1
Label2.Caption = "李敏镐"
Case Is = 2
Label2.Caption = "王力宏"
Case Is = 3
Label2.Caption = "张翰"
Case Is = 4
Label2.Caption = "刘恺威"
Case Is = 5
Label2.Caption = "李俊基"
Case Is = 6
Label2.Caption = "尼坤"
Case Is = 7
Label2.Caption = "梁朝伟"
Case Is = 8
Label2.Caption = "吴彦祖"
Case Is = 9
Label2.Caption = "冯绍峰"
Case Is = 10
Label2.Caption = "黄渤"
End Select
If Form1.Option1.Value = True Then
y = 1 + Rnd * 9
Image2.Picture = LoadPicture(App.Path & "\图片\" & y & ".jpg")
End If
Select Case y
Case Is = 1
Label2.Caption = "李冰冰"
Case Is = 2
Label2.Caption = "唐嫣"
Case Is = 3
Label2.Caption = "范冰冰"
Case Is = 4
Label2.Caption = "杨幂"
Case Is = 5
Label2.Caption = "刘亦菲"
Case Is = 6
Label2.Caption = ""
Case Is = 7
Label2.Caption = ""
Case Is = 8
Label2.Caption = ""
Case Is = 9
Label2.Caption = "刘诗诗"
Case Is = 10
Label2.Caption = "凤姐"
End Select
End Sub
Private Sub Timer2_Timer()
Label3.Left = Label3.Left + 100
If Label3.Left >= Form3.Width Then
Label3.Left = -Form3.Left
End If
End Sub