求一道VB题目！！

设置一个编程

当你点击图片的时候，会变色，每按一下变一种颜色，分别是红黄绿三种颜色！

在窗体中添加一个picturebox

Dim a As Integer
Private Sub Picture1_Click()
a = a + 1
Select Case a
Case 1
Picture1.BackColor = RGB(255, 0, 0)
Case 2
Picture1.BackColor = RGB(0, 255, 0)
Case 3
Picture1.BackColor = RGB(0, 0, 255)
a = 0
End Select
End Sub

Option Explicit Dim Arr(1 To 3), n Private Sub Form_Load() Arr(1) = vbRed: Arr(2) = vbYellow: Arr(3) = vbGreen End Sub Private Sub Picture1_Click() n = n + 1 If n = 4 Then n = 1 Picture1.BackColor = Arr(n) End Sub

由于不知道你要点击图片的时候什么变色，因此写了两个函数，一个是背景色变色的函数，一个是变化图片的函数，后者需要你找3张图片，分别是红色，绿色，黄色的，放在"D:\"下，只是过程的说明，你可以放在你指定的地方然后把代码做相应的修改即可

Private Sub Picture1_Click() Static n As Integer n = n + 1 If n = 4 Then n = 1 Call changeColor(n) '此处调用改变背景色的例子，如果不是改变背景色，调用changePic(n) End Sub

Sub changeColor(ByVal a As Integer) '背景色改变 Select Case a Case 1 Picture1.BackColor = vbRed Case 2 Picture1.BackColor = vbYellow Case 3 Picture1.BackColor = vbGreen End Select End Sub Sub changePic(ByVal a As Integer) '背景色彩图片 Select Case a Case 1 Picture1.Picture = Load("D:\red.jpg") Case 2 Picture1.Picture = Load("D:\yellow.jpg") Case 3 Picture1.Picture = Load("D:\green.jpg") End Select End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息