Question

帮忙修改VB代码。我创建了一个image控件数组，5张一样的图片，起先全为不可见，每2秒钟出现其中一个。

代码如下
Private Sub Timer1_Timer()
Dim a As String, b As Integer, c As Integer, n As Integer
n = Index
a = "01234"
b = Len(a) - 1
Randomize
c = Rnd() * b
If n = c Then
Image2(n).Visible = True
End If
Print c ‘现在只有c=0时才显示的出图片
End Sub

Answer 1

程序已经经过实测无误，控件定义和你的源程序一样，直接全部拷贝过去就可用。图片是随机在5张图片中出现，2秒一次，满意请及时采纳，谢谢
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 2000

End Sub
Private Sub Timer1_Timer()
Dim k As Integer
Randomize Timer
For k = 0 To 4
Image2(k).Visible = False
Next k
k = Int(Rnd * 5)
Image2(k).Visible = True
End Sub

追问

那我原来的代码错在哪儿呢？

追答

Private Sub Timer1_Timer()
Dim a As String, b As Integer, c As Integer, n As Integer
n = Index 'Index没初始化，所以Index=0,结果n=0
a = "01234"
b = Len(a) - 1 '这行也有问题，得到的b=4，所以随机数应该在0~3之间
Randomize '那么第五个image图片永远也显示不出来
c = Rnd() * b 'c 是随机数，而n=0
If n = c Then '所以这行比较的结果只能是c=0时才为真
Image2(n).Visible = True '也就是你看到的只有c=0时才有显示
End If
Print c ‘现在只有c=0时才显示的出图片
End Sub

Answer 2

Dim P As Integer, K As Integer, I As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
For I = 0 To 4
Image1(I).Visible = False
Next I
End Sub

Private Sub Timer1_Timer()
For I = 0 To 4
Image1(I).Visible = False
Next I
P = P + 1
If P = 1 Then
Image1(K).Visible = True
K = K + 1
If K > 4 Then K = 0
Else
P = 0
End If
End Sub

Answer 3

c = Rnd() * b ==》 c = int(Rnd() * b)要取整，不然得到的是小数，整数的概率非常低所以很难刚好等于整数。

追问

改了以后也还是只有0的时候才出现图片..

追答

完整代码。N 是什么？index又是什么？单步调试你会不会？

追问

完整代码就是那个。一个image2控件数组，index分别是01234。里面放的是一样的图片。visible全为false。n就是index,当随机产生的c=n,那相应的图片就显示。我现在的代码问题是只有c=0，那index=0的图才会显示，=1=2全都不会显示。

追答

上面的代码哪里能看出index分别是01234？
把上面的改成下面两句话级可以了。
c = Int(Rnd() * 5)
image2(n).Visible = True