用VB怎么做
答案:1 悬赏:0
解决时间 2021-01-13 08:45
- 提问者网友:不要迷恋哥
- 2021-01-13 04:36
用VB怎么做
最佳答案
- 二级知识专家网友:酒安江南
- 2021-01-13 05:22
Private Sub Command1_Click()
For i = 1 To 30
List1.AddItem (Int(90 * Rnd) + 10)
Next i
Open "e:\a.txt" For Output As #1
For i = 0 To List1.ListCount - 1
x = List1.List(i)
Print #1, x; " ";
If i Mod 5 = 4 Then Print #1,
Next i
Close #1
MsgBox ("数据已存入e:\a.txt!")
End Sub
For i = 1 To 30
List1.AddItem (Int(90 * Rnd) + 10)
Next i
Open "e:\a.txt" For Output As #1
For i = 0 To List1.ListCount - 1
x = List1.List(i)
Print #1, x; " ";
If i Mod 5 = 4 Then Print #1,
Next i
Close #1
MsgBox ("数据已存入e:\a.txt!")
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯