UC知道vb 传值问题
来源：百度知道 编辑：UC知道 时间：2024/05/25 19:12:56
如下的代码这么实现在其他事件中的引用
Dim b(9) As Boolean
Randomize
n = Int(Rnd * 9) + 1
b(n) = True
For i = 1 To 3
Do
x = Int(Rnd * 10)
Loop While b(x)
b(x) = True
n = n * 10 + x
Next i
Print n
Dim b(9) As Boolean
Randomize
n = Int(Rnd * 9) + 1
b(n) = True
For i = 1 To 3
Do
x = Int(Rnd * 10)
Loop While b(x)
b(x) = True
n = n * 10 + x
Next i
Print n
Function MyFun() As Integer
Dim b(9) As Boolean
Randomize
n = Int(Rnd * 9) + 1
b(n) = True
For i = 1 To 3
Do
x = Int(Rnd * 10)
Loop While b(x)
b(x) = True
n = n * 10 + x
Next i
MyFun=N
End Function
调用如:
Private Sub Form_Click
R=MyFun
Print R
End Sub
Loop While b(x) 这句怎么没条件。可能会变成四循环。
最后的n值是你要的吗？不确定呀！