Dim a(10) As Single
For i = 1 To 10
a(i) = Rnd * 31 + 10
Print Format(a(i), "0.00")
Next
End Sub追问
怎么生成在文本框里呢？
追答所有数字都生成在文本框？
追问嗯，生成的随机数都要在文本框。
追答Private Sub Command1_Click()
Dim a(10) As Single
dim temp as string
temp=""
For i = 1 To 10
a(i) = Rnd * 31 + 10
temp=temp & " " & Format(a(i), "0.00")
Next
Text1.Text=temp
End Sub
如何在VB6.0中生成10个20到50的随机数(保留两位小数)
Private Sub Command1_Click()Dim a(10) As Single For i = 1 To 10 a(i) = Rnd * 31 + 10 Print Format(a(i), "0.00")Next End Sub
VB如何生成随机数
首先，打开软件并创建一个全新的工程。在工程文件中，我们需要一个交互元素，一个命令按钮，可以通过点击工具箱中的“命令按钮”图标在窗体上添加。通过鼠标左键在窗体合适位置绘制按钮。双击刚添加的命令按钮，进入代码编辑模式。这里的目标是生成0到10之间的随机整数。VB提供了内置的Rnd函数，配合int()函...
请问怎么用VB6.0编写产生随机数?
如产生20~50的随机整数 a=Int(Rnd*20+31)因为0≤Rnd<1，所以要加上31 还有“Int”是取整，Int（3.5）=3，Int（-3.5）=-4
VB如何生成随机数
1、打开“Microsoft Visual Basic 6.0 中文版”软件，准备一个空白的工程文件：2、然后需要一个命令按钮，单击左侧工具箱中的“命令按钮”，在窗体中右侧拖动鼠标左键画出即可：3、双击该命令按钮，这里演示输入代码打印0～10之间的任意随即整数，生成其他范围的随机整数公式为“int（（上限-下限+1）*R...
用vb6.0做一个小游戏
'只需给窗体添加一个Command1的控件，单击它即可执行，允许多次执行 Private Sub Command1_Click()Dim myArray(1 To 20) As Integer '储存用于猜测的数据 Dim rep As Boolean, cor As Boolean 'rep记录产生的随机数是否有重复的，有重复的，会剔除，cor记录是否猜中 Dim guess As Integer Dim i ...
vb6.0随机数生成?
Private Sub Command1_Click()If n < 0 Then Exit Sub x = Int(Rnd * (n + 1))Print Tab(5 * (k Mod 10) + 2); a(x);k = k + 1 a(x) = a(n)n = n - 1 End Sub Private Sub Form_Load()For i = 0 To 299 a(i) = i + 1 Next i n = 299 End Sub ...
vb6.0 生成不重复的随机数(急!)
Dim Aa(10) As Integer Cls Randomize For I = 1 To 10 A = Int(Rnd * 10)Print A Aa(I) = A Next I End Sub 再看运行结果，就知道这个程序是对的，我运行了好多遍，结果都是0-9间。只是我用的是10次，如果想产生100次，也只要改一点程序。如果你只想4次，你会知道改吧？最后再...
VB6.0 求大神帮助 采纳有追加的!!!
首先，新建一个工程 Form1上添加一个ListBox,名称为List1,用来显示数组中的值 然后添加5个Command,分别是：Command1 (生成随机数)Command2 (排序)Command3 (插入)Command4 (删除)Command5 (查询素数)然后添加代码：Dim a() As Integer Private Sub Command1_Click()ReDim a(25)List1....
vb6.0 生成不重复的随机数
dim a%,b%,c%,d sub asdf randomize a = Int(10 * Rnd)Do b = Int(10 * Rnd)Loop Until b <> a Do c = Int(10 * Rnd)Loop Until c <> b And c <> a Do d = Int(10 * Rnd)Loop Until d <> b And d <> a And d <> c End sub ...
VB6.0中怎么产生1到9的随机数
x = Int(Rnd * 9) + 1 说明：Int(Rnd * (上限 - 下限 + 1)) + 下限 比如10到20（包含10和20）的随机数就是 Int(Rnd * (20 - 10 + 1)) + 10 即 Int(Rnd * 11) + 10
