作业帮 > 综合 > 作业

产生一个随机数,均匀分布,在0到100产生3000个随机数,用word输出,能保存

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/20 00:01:36
产生一个随机数,均匀分布,在0到100产生3000个随机数,用word输出,能保存
用vb编程
产生一个随机数,均匀分布,在0到100产生3000个随机数,用word输出,能保存
在 word 中新建一个宏:
Sub 随机数3000()
Randomize
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Dim i As Integer
For i = 1 To 3000
Selection.TypeText Text:=CStr(Int(100 * Rnd()))
Selection.TypeParagraph
Next
End Sub
运行一下这个宏.(会得到 69 页的结果)
再问: 不好意思,用vb编程,然后用word或txt输出结果
再答: Private Sub Command1_Click() Randomize Dim i As Integer Open "D:\1.txt" For Output As #1 For i = 1 To 3000 Print #1, , CStr(Int(100 * Rnd())) & vbCrLf Next Close #1 End Sub