大便里有脓是怎么回事:一个VB问题 请高手帮助

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 14:35:32
用随机函数产生5个一位不相等的随机整数，在窗体的第一行打印出来。

试试rnd函数

1、定义一个布尔型变量数组，范围是0～9
2、随机产生一个0～9的随机数，将这个数在数组中设置为“已产生”True
3、再次产生一个随机数，如果这个数已经存在，就再次产生一个，重复这一步，直到完成5个。

以下代码已调试通过，不要忘记把Form1的AutoRedraw属性设置为True。

Option Explicit
Dim I As Integer, J As Integer, K As Integer, Out As String
Dim X(0 To 9) As Boolean

Private Sub form_load()
Randomize
J = 5
Out = ""
For I = 1 To J
K = MyRnd
X(K) = True
If I = 1 Then
Out = K
Else
Out = Out & "," & K
End If
Next
Print Out
End Sub

Private Function MyRnd() As Integer
Dim M As Integer
Do
M = 9 * Rnd(1)
Loop While X(M) = True
MyRnd = M
End Function

一个VB问题 请高手帮助 一个vb问题，请高手指教！ vb问题，高手请! 一个较复杂的VB问题,请高手进!!!! 一个简单的VB问题，请高手们解答 我有一个vb问题请高手帮帮忙 VB程序问题，请帮助！谢谢 VB问题请叫高手, 请高手指教vb问题！！！！！！ VB问题！请高手进入！