关于VB编制随机整数函数，在窗体加载时在其上显示30个1-100之间的随机数！

[lovebbc]

急急急。。。。。！！！！！！！急急急。。。。。！！！！！！

1、关于VB编制随机整数函数，在窗体加载时在其上显示30个1-100之间的随机数！



求各位高手尽力帮个忙啊。VB我太弱了！我把所有的分都给出来都行。

[射天狼]

Private Sub Command1_Click()
Dim s As String, i As Long

For i = 1 To 100
Randomize Second(Now)
s = s & "," & CStr(Int((100 * Rnd) + 1)) ' 生成 1 到 6 之间的随机数值。
Next

Text1.Text = s
End Sub

[SoHo_Andy]

Dim MyValue as integer
dim i as integer
for i=1 to 30
MyValue = Int((100 * Rnd) + 1)

[SoHo_Andy]

Dim MyValue() as integer
dim i as integer
for i=1 to 30
redim preserve MyValue(i-1)
MyValue(i-1) = Int((100 * Rnd) + 1)
next

for i=0 to ubound(MyValue)
msgbox MyValue(i)
next

[海牛]

Private Sub Command1_Click()
Dim strNum As String, I As Long

Randomize (Timer)
For I = 1 To 30
strNum = strNum & CStr(Int((100 * Rnd(100)) + 1)) & ","
Next

Me.Print strNum
End Sub

[lxcc]

Private Sub Form_Activate()

Dim i As Integer
Dim iCount As Integer

iCount = 30

For i = 1 To iCount
Randomize
Print CStr(CInt(100 * Rnd(Second(Time) + 1)))
Next
End Sub

[lovebbc]

我试过了。都好用。但是，窗体加载的时候好像不是用单击铵钮进行吗？！请高手指点一下。

[lemonchen]

This example uses the Rnd function to generate a random integer value from 1 to 6.

Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.

[thl0352]

Option Explicit

Private Sub Form_Load()
Form1.AutoRedraw = True
Dim i As Integer, rnd1 As Integer
For i = 1 To 30
Randomize
rnd1 = Rnd() * 100 + 1
Print rnd1;
Next
End Sub

[lxcc]

但是，窗体加载的时候好像不是用单击铵钮进行吗？！请高手指点一下。

是不是弹出一个新窗体，然后显示30个随机数
新添一个form，然后
Private Sub Command1_Click()
form2.show
End Sub

在form2的Activate事件添加代码
Private Sub Form_Activate()

Dim i As Integer
Dim iCount As Integer

iCount = 30

For i = 1 To iCount
Randomize
Print CStr(CInt(100 * Rnd(Second(Time) + 1)))
Next
End Sub
因为load事件本身是加载form的过程，再print，是出不来的，只有form加载完毕了再print才可以

[lovebbc]

明白了。如果是这样的话。完全可以省略加载新窗口的代码了。

这个就可以了吧！

Private Sub Command1_Click()
Dim strNum As String, I As Long

Randomize (Timer) 码是否可以省略？！
For I = 1 To 30
strNum = strNum & CStr(Int((100 * Rnd(100)) + 1)) & ","
Next

Me.Print strNum
End Sub

[海牛]

Randomize (Timer)不可以，省略的话，程序每次启动的随机数序列会一样。
你不信试试。

[lovebbc]

谢谢各位，谢谢海牛猪猪，虫子，红儿，浪际天涯，冰，射天狼几个前辈大哥（不知道有没有大姐的说）。也多放海牛猪猪跟虫子两位的解释。在此小弟鞠躬了。。。。


以后免不了要多有讨饶，还希望各位不嫌弃俺是个新手。：）

[Mars.CN]

Randomize (Timer)
For I = 1 To 30
strNum = strNum & CStr(Int((100 * Rnd(100)) + 1)) & ","
Next