用vb编写，随机输出100组1-11之间的六个数字，保存在D盘。txt格式。。要求每次输出的随机1

用vb编写，随机输出100组1-11之间的六个数字，保存在D盘。txt格式。。要求每次输出的随机1

Private Sub Command1_Click()
Dim a(10) As Integer, s As String
Dim i, j, k, t As Integer
For i = 1 To 100
  For j = 0 To 10
    a(j) = j + 1
  Next
  Randomize
  For j = 0 To 5
    t = Int(Rnd * 11)
    k = a(j)
    a(j) = a(t)
    a(t) = k
  Next
  For j = 0 To 5
    s = s & a(j) & IIf(j = 5, "", ",")
  Next
  s = s & vbCrLf
Next
Open "d:1.txt" For Output As #1
Print #1, s
Close #1
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！