作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/13 15:19:29
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 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