7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zhzhq800204 2005-12-05
- 打赏
- 举报
'strlen 是二进制数的长度，返回String类型
Function rndbin(ByVal strlen As Integer) as String
Dim i As Integer, r As Integer
For i = 1 To strlen
Randomize '初始化随机数生成器
r = Int(Rnd * 10)
rndbin = rndbin & r Mod 2
Next
End Function
有个返回值
Function rndbin(ByVal strlen As Integer) as String
Dim i As Integer, r As Integer
For i = 1 To strlen
Randomize '初始化随机数生成器
r = Int(Rnd * 10)
rndbin = rndbin & r Mod 2
Next
End Function
有个返回值
zou19820704 2005-12-05
- 打赏
- 举报
Public Function TwoVal(x As Integer) As String
Dim i As Integer
For i = 1 To x
TwoVal = TwoVal & CStr(Round(Rnd * 1))
Next
End Function
Private Sub Command1_Click()
MsgBox TwoVal(10)
End Sub
fxy_2002 2005-12-05
- 打赏
- 举报
改一下，加一句 Randomize
Function rndbin(ByVal rlen As Integer)
Dim i As Integer, r As Integer
Randomize '初始化随机数生成器，以防产生重复的串
For i = 1 To rlen
r = Int(Rnd * 10)
rndbin = rndbin & r Mod 2
Next
End Function
Function rndbin(ByVal rlen As Integer)
Dim i As Integer, r As Integer
Randomize '初始化随机数生成器，以防产生重复的串
For i = 1 To rlen
r = Int(Rnd * 10)
rndbin = rndbin & r Mod 2
Next
End Function
fxy_2002 2005-12-05
- 打赏
- 举报
比如下面的，产生一个指定长度的串：
Function rndbin(ByVal rlen As Integer)
Dim i As Integer, r As Integer
For i = 1 To rlen
r = Int(Rnd * 10)
rndbin = rndbin & r Mod 2
Next
End Function
Function rndbin(ByVal rlen As Integer)
Dim i As Integer, r As Integer
For i = 1 To rlen
r = Int(Rnd * 10)
rndbin = rndbin & r Mod 2
Next
End Function
fxy_2002 2005-12-05
- 打赏
- 举报
要自己写一个函数实现。
alfree 2005-12-05
- 打赏
- 举报
thank you everybody!
northwolves 2005-12-05
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox randn(10)
End Sub
Function randn(ByVal n As Integer) As String
Dim a() As String, i As Integer
Randomize
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(2 * Rnd)
Next
randn = Join(a, "")
End Function
MsgBox randn(10)
End Sub
Function randn(ByVal n As Integer) As String
Dim a() As String, i As Integer
Randomize
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(2 * Rnd)
Next
randn = Join(a, "")
End Function
