vb生成1-9随机数,随机打乱分行置于text1中,互不重复(1,2,3,4,5,6,7,8,9)
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/07 05:19:35
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 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
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
用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随机数 不重复