哪位高手帮我编个VB程序

来源：百度知道 编辑：UC知道 时间：2024/06/29 03:00:28
有一组图片，首先用一个image控件随机显示一张，然后用两个按钮来控制image显示上一张或者下一张图片。
如果实现了功能 再追加100分～～～

'假设E盘根目录下有5张图片，名字是i1.jpg--i5.jpg
'添加Image1，Command1和Command2
'不明白可以pm
Dim n As Integer

Private Sub Command1_Click()
If n > 1 Then
Image1.Picture = LoadPicture("e:\i" & n - 1 & ".jpg")
n = n - 1
End If
End Sub

Private Sub Command2_Click()
If n < 5 Then
Image1.Picture = LoadPicture("e:\i" & n + 1 & ".jpg")
n = n + 1
End If
End Sub

Private Sub Form_Load()
Randomize
n = Int(Rnd * 5 + 1)
Image1.Picture = LoadPicture("e:\i" & n & ".jpg")
End Sub