用vb编写，随机输出100组1-11之间的六个数字，保存在D盘。txt格式。。要求每次输出的随机1
答案:1 悬赏:10
解决时间 2021-01-10 15:10
- 提问者网友：流星是天使的眼泪
- 2021-01-10 10:51
用vb编写，随机输出100组1-11之间的六个数字，保存在D盘。txt格式。。要求每次输出的随机1
最佳答案
- 二级知识专家网友：西岸风
- 2021-01-10 11:24
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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯