vb.写出1000以内能被357整除的数。并用write语句从小到大排列，并存入文件中。
答案:2 悬赏:60 手机版
解决时间 2021-02-19 08:22
- 提问者网友：玫瑰园
- 2021-02-18 13:21
vb.写出1000以内能被357整除的数。并用write语句从小到大排列，并存入文件中。
最佳答案
- 五星知识达人网友：玩世
- 2021-02-18 14:28
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Open "out.dat" For Output As #1
For i = 1 To 1000
If i Mod 357 = 0 Then
Write #1, i
End If
Next i
End Sub
把它放到一个按钮的代码里就行
Dim a As Integer
Dim i As Integer
Open "out.dat" For Output As #1
For i = 1 To 1000
If i Mod 357 = 0 Then
Write #1, i
End If
Next i
End Sub
把它放到一个按钮的代码里就行
全部回答
- 1楼网友：深街酒徒
- 2021-02-18 15:56
你问的应该是1000以内能被3、5、7整除的数 吧
Private Sub Command1_Click()
Dim i As Integer
Open "out.dat" For Output As #1
For i = 1 To 1000
If (i Mod 3 = 0) and (i Mod 5 = 0) and (i Mod 7 = 0) Then
Write #1, i
End If
Next i
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯