Question

我想做一个VB程序编辑，是用image控件插入十二张图片，分别为十二生肖。下面有1个command数组，数组入面有

12个按钮，分别为十二生肖。该程序的运行：例如当前显示的图片是“猴”，按按钮“猴”即为答案正确，自动跳转下一幅图（随机）；若答错，弹出msgbox提醒“答案错误”，当前图片不跳转。还有一个command按钮是“下一个”（当不知道答案的时候按“下一个”可以跳过当前图片，显示下一幅图片（随机）

Answer 1

'*************************
'说明程序目录下面有一个pic目录，下面有12张jpg图片,分别是1.jpg.....12.jpg
'*************************

Option Base 1
Private currentImage As String '定义当前是什么图像
Private temp() '生肖组数
Private intRnd As Integer '随机产生的数字

Private Sub Form_Load()
temp = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") '初始化十二生肖
Call Command2_Click '调用下一个
End Sub

Private Sub Command1_Click(Index As Integer)
If intRnd = Index + 1 Then
'答对了
Call Command2_Click
Else
MsgBox ("答案错误")
End If

End Sub

Private Sub Command2_Click()
Randomize
intRnd = Int(Rnd * UBound(temp) + 1) '产生一个十二生肖之内的数字
Image1.Picture = LoadPicture(App.Path & "/pic/" & intRnd & ".jpg") '加载程序目录下面pic下面的1-12.jpg的一张
currentImage = temp(intRnd) '将当前生肖的字符串赋值
End Sub

Answer 2

位于地球上空的同步卫星最初是用于军事和航空导航。美国政府在80年代时放宽了对同步卫星的使用限制，为其后来的广泛采用，打开了一个新天地。现在市面上的手机导航还分为两类，一类是真正的通过太空中的卫星进行GPS导航；另一类是通过基站和网络进行粗略的导航的，称为A-GPS，

Answer 3

Dim num As Integer
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click(Index As Integer)
If Index = num Then
MsgBox "答对了"
num = Int(12 * rnd)
Image1.Picture = LoadPicture(App.Path & "\" & "image\" & num & ".jpg")
Else
MsgBox "回答错误"
End If
End Sub

Private Sub Command3_Click(Index As Integer)
num = Int(12 * rnd)
Image1.Picture = LoadPicture(App.Path & "\" & "image\" & num & ".jpg")
End Sub

Private Sub Form_Activate()
num = Int(12 * rnd) - 1
MsgBox App.Path
Image1.Picture = LoadPicture(App.Path & "\" & "image\" & num & ".jpg")
End Sub

Answer 4

我Q

639443

把图片发来，帮你做好