Question

谁帮我解释一下！！！vb下的代码

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Static n As Integer
n = n + 1
If n > 10 Then Exit Sub
Do
x = Int((10 - 1 + 1) * Rnd + 1)
j = True
For i = 1 To n - 1
If x = a(i) Then j = False: Exit For
Next i
Loop Until j
a(n) = x
Command1.Caption = a(n)
End Sub

Private Sub Form_Load()
Randomize

End Sub

Answer 1

你的问题是什么？

追问

我想点击一个按钮，随机产生1-16的乱序

追答

Private Sub Command1_Click()
Dim a(15) As Integer
For i = 0 To 15
a(i) = i + 1
Next
Randomize
For i = 0 To 15
j = Int(Rnd * 16)
t = a(i): a(i) = a(j): a(j) = t
Next
For i = 0 To 15
Print a(i);
Next
End Sub

追问

在vb中我想做一个拼图游戏；我想把这十六张图片放到数组pic（）中。当我点开始游戏时，图片根据产生的随机数开始打乱。这个想法可以吗？

追答

上面的代码可以

追问

图片可以放到上面的数组里面吗？然后把数组中的图片放到图片框的代码是什么呀？

追答

用图片控件数组，参考：
http://zhidao.baidu.com/question/50489791.html

追问

麻烦你给我解释一下t = a(i) : a(i) = a(j) : a(j) = t这一句吧

追答

用于交换a(i)和a(j)的值

Answer 2

这段代码运行的结果是：每点击一次命令按钮，会产生一个1至10的随机数，保存到A数组中，同时命令按钮的名称也变为这个随机数。命令按钮只能有效点击10次，点击10次之后，数组A中保存着1至10十数字的随机序列。

追问

在vb中我想做一个拼图游戏；我想把这十六张图片放到数组pic（）中。当我点开始游戏时，图片根据产生的随机数开始打乱。这个想法可以吗？

追答

要产生16个随机数，只要把原程序段中的10改成16即可。
拼图游戏应该能够那样做。

追问

If PBox5.ImageLocation = "" Then
PBox5.Image = PBox9.Image
PBox9.Image = Nothing
ElseIf PBox10.ImageLocation = "" Then
PBox10.Image = PBox9.Image
PBox9.Image = Nothing
ElseIf PBox13.ImageLocation = "" Then
PBox13.Image = PBox9.Image
PBox9.Image = Nothing
End If

追答

什么问题

追问

为什么每次执行都不行呢！我的思路是点击第九个个图片框的，当第五个是空，就把图片给第五个，第九个的变为空...............

追答

是错误提示还是运行的结果不正确？