vb编程随机产生10个1-10之间的整数写到顺序文件

2025-03-07 01:12:29

推荐回答（2个）

回答1：

abc,dat改为abc.dat，a(i) = Int(Rnd * 10)改为a(i) = Int(Rnd * 11)（否则只能产生0-9的随机数）
Write #10, a(10)改为Write #1, a(i)，正确的代码如下：
Private Sub Command1_Click()
Dim a(10) As Integer, i%
Open "abc.dat" For Output As #1
For i = 1 To 10
a(i) = Int(Rnd * 11)
Write #1, a(i)
Next i
Close #1
End Sub

回答2：

随机数是乘以范围+1，+下届
正解是
Private Sub Command1_Click()
Dim a(10) As Integer, i%
Open "abc.dat" For Output As #1
For i = 1 To 10
a(i) = Int(Rnd * 10)+1
Write #1, a(i)
Next i
Close #1
End Sub