用Visual Basic 的基本语言做一个小程序，请大神帮帮忙。

办法有两种：

——

1. 定义数组，在运行的时候吧图片加载到数组里面

'假设定义的数组是Tu(1 To 4)，有4个图片
private sub xiayizhang_click()  '假设下一张按钮的名字叫做xiayizhang
  static JS as integer
  JS = JS + 1
  if JS > 4 then JS = 1
  picbox.picture = Tu(JS)         '假设图片框的名字是picbox
end sub

 2. 直接加载图片

'假设定义的数组是Tu(1 To 4)整型
private sub xiayizhang_click()  '假设下一张按钮的名字叫做xiayizhang
  static JS as integer
  JS = JS + 1
  if JS > 4 then JS = 1
  if JS = 1 then picbox.picture = "图片地址"
  if JS = 2 then picbox.picture = "图片地址"
  if JS = 3 then picbox.picture = "图片地址"
  if JS = 4 then picbox.picture = "图片地址"
  '假设图片框的名字是picbox
end sub