UC知道vb 关于text的一道题目
来源：百度知道 编辑：UC知道 时间：2024/05/13 03:39:20
在文本框内随即产生10个四位正整数，每个各占一行
这个怎么做到？？
我用的是Text1.Text = a(0) & vbCrLf & a(1) & vbCrLf & a(2) & vbCrLf & a(3) & vbCrLf & a(4) & vbCrLf & a(5) & vbCrLf & a(6) & vbCrLf & a(7) & vbCrLf & a(8) & vbCrLf & a(9)
但这个太麻烦了
有什么更好的方法伐？？
求解 谢谢！！
这个怎么做到？？
我用的是Text1.Text = a(0) & vbCrLf & a(1) & vbCrLf & a(2) & vbCrLf & a(3) & vbCrLf & a(4) & vbCrLf & a(5) & vbCrLf & a(6) & vbCrLf & a(7) & vbCrLf & a(8) & vbCrLf & a(9)
但这个太麻烦了
有什么更好的方法伐？？
求解 谢谢！！
首先将text1的multiline属性设设为true，再将scrollbars属性设为
2-vertical,然后用如下代码
Private Sub Form_Click()
Randomize
Text1.Text = ""
Dim i As Integer
For i = 1 To 10
Text1.Text = Text1.Text & Int(9000 * Rnd) + 1000 & Chr(13) + Chr(10)
Next
End Sub
单击窗体即可实现~~
Int((9999 - 1000 + 1) * Rnd + 1000)
Rnd 函数
返回一个包含随机数值的 Single。
语法
Rnd[(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。
返回值
如果 number 的值是 Rnd 生成
小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近生成的数。
省略 序列中的下一个随机数。
说明
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。