生成20个100-200之间的随机数,将这20个数显示在窗体上.再显示能够被7整除的数,并计算它们的和,添加保存到文件"d:\1.txt"中


先前我是这样写的;
Private Sub Command1_Click()
Cls
For i = 1 To 20
n = Int(Rnd * (200 - 100 + 1) + 100)
Print n
Next i
End Sub '生成了20个100-200的数
除以7的我也会(If n Mod 7 = 0 Then Print n)
保存到D盘我也会,但是就是能不连贯..........
大家帮我写一下吧!!

晕,还得靠自己,自己琢磨出来了

Private Sub Command1_Click()
Dim sum%
sum = 0
Cls
For i = 1 To 20
n = Int(Rnd * (200 - 100 + 1) + 100)
Print n
If n Mod 7 = 0 Then Print "能被7整除的有:"; n: sum = sum + n
Next i
Open "d:/1.txt" For Output As #1
Print #1, sum
Close #1
End Sub
问题就是能被7整除的不能统一显示

定义一个string把能都被7整除的先保存到一起，，，然后print这个string

把 Open 语句放在 For 前面!



Private Sub Command1_Click()
Dim sum%
sum = 0
Cls

Open "d:/1.txt" For Output As #1
For i = 1 To 20
n = Int(Rnd * (200 - 100 + 1) + 100)
Print n
If n Mod 7 = 0 Then Print "能被7整除的有:"; n: Print #1, n
Next i

Print "总和: "; sum
Close #1