怎样在文本框（text1)随机产生100个整数 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎样在文本框（text1)随机产生100个整数

标题：怎样在文本框（text1)随机产生100个整数

只看楼主

liuhui8338

等　级：新手上路
帖　子：9
专家分：0
注　册：2008-3-3

楼主

问题点数：0 回复次数：2

怎样在文本框（text1)随机产生100个整数

怎样在文本框（text1)随机产生100个整数.并输出到in.txt中。请高手帮助解决。谢谢！

搜索更多相关主题的帖子: 文本框　整数　随机　 txt　

2008-06-21 18:41

liuhui8338

等　级：新手上路
帖　子：9
专家分：0
注　册：2008-3-3

第 2 楼

得分:0

Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
For i = 1 To 100
x = Rnd * 100 + 1
Next i
Text1.Text = x
End Sub
txxt1 显示的是单个数，啥原因？

2008-06-22 11:23

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 3 楼

得分:0

Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
For i = 1 To 100
x = Int(Rnd * 100) + 1
Text1.Text = Text1.Text & " " & i '记得输出到Text1中
Next i
End Sub

2008-06-22 11:33

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-220431-1-1.html