vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 15:06:18
vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)

vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)
vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)

vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)

做一个文本框Text1,并设置其Multiline属性为True,再做一个Command1按钮,其代码如下:

Private Sub Command1_Click()

Dim a(9) As Integer, i As Integer, t As Integer

Text1.Text = ""

For i = 1 To 9

  a(i) = i

Next i

Randomize

For i = 9 To 1 Step -1

  t = Int(i * Rnd) + 1

  Text1.Text = Text1.Text & a(t) & vbCrLf

  a(t) = a(i)

Next i

End Sub

vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9) 在线等!VB随机给数!VB生成三个不相同的0到9随机数!然后保存在一个数组中!三个数字要不相同 VB 实现随机生成10位数,生成必须不同求教一个例子!随机生成由0 1 2 3 4 5 6 7 8 9组成生成随机数例如:生成为0712323562生成出来为10位数必须每次生成不同! vb中多次随机随机数 指定位置随机数出现的次数vb中多次随机随机数后 统计指定位置随机数出现次数 如 生成了十组随机数 每组中第一位数字出现的次数 VB里随机生成0-100的随机数 包不包括100呢? vb怎么生成随机数啊. vb如何产生两个不同随机数随机产生两个【1,10】上的随机数,要求随机数不能相同 vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数 vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序 vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数 用vb怎么生成3位随机数 vb编程 随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数,并统计0—9,10-19...对应区 VB中如何设置随机数的随机率 生成随机数怎么写?VB中比如说我要生成一个1-10的随机数该怎么写?需要像C那样导入随机数种子吗? 如何用VB制作随机数程序用VB制作一个 0-9十个数中随机出8个不重复的数字,例如:01235689, VB 0-9加X 里面随机选择一个数,怎么写?我只会写随机数,但是这种自定义范围随机怎么写啊?求教 C# 生成1-20随机数 不重复如何随机排列1-20数字 VB随机数260-500范围内生成随即数!