vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/17 03:27: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)](/uploads/image/z/15146802-18-2.jpg?t=vb%E7%94%9F%E6%88%901-9%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E9%9A%8F%E6%9C%BA%E6%89%93%E4%B9%B1%E5%88%86%E8%A1%8C%E7%BD%AE%E4%BA%8Etext1%E4%B8%AD%2C%E4%BA%92%E4%B8%8D%E9%87%8D%E5%A4%8D%EF%BC%881%2C2%2C3%2C4%2C5%2C6%2C7%2C8%2C9%EF%BC%89)
做一个文本框Text1,并设置其Multiline属性为True,再做一个Command1按钮,其代码如下:
Private Sub Command1_Click()Dim a(9) As Integer, i As Integer, t As IntegerText1.Text = ""For i = 1 To 9 a(i) = iNext iRandomizeFor i = 9 To 1 Step -1 t = Int(i * Rnd) + 1 Text1.Text = Text1.Text & a(t) & vbCrLf a(t) = a(i)Next iEnd Sub![](http://img.wesiedu.com/upload/a/01/a011dbe7a975dc185988c9929c879423.jpg)
Private Sub Command1_Click()Dim a(9) As Integer, i As Integer, t As IntegerText1.Text = ""For i = 1 To 9 a(i) = iNext iRandomizeFor i = 9 To 1 Step -1 t = Int(i * Rnd) + 1 Text1.Text = Text1.Text & a(t) & vbCrLf a(t) = a(i)Next iEnd Sub
![](http://img.wesiedu.com/upload/a/01/a011dbe7a975dc185988c9929c879423.jpg)
用VB从1-12这12个数中随机生成3个互不重复的数
如何使用EXCEL表在5*5的矩阵中随机生成1-25之间的随机数 不重复
VB 编写程序,生成10个无重复数(即互不相等)的两位随机数
用vb怎样生成10个不重复的(1到10)随机数?
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数
VB生成不重复的随机数
请把1,2,3,4,5,6,7,8,9互不重复地填入如下方框,使等式成立:囗囗囗囗*囗=囗囗囗囗;
vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序
VB中, text1=1和text1.text=1有没有区别?
vb中如何生成20个互不相同的两位随机整数?
vb 生成随机数(急!)
C# 生成1-20随机数 不重复