vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中.

cnzzt 1年前 已收到1个回答 举报
赞

我是大辽 花朵

共回答了15个问题采纳率：93.3% 举报

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
把它放到一个按钮的代码里就行

1年前 追问

9

cnzzt 举报

不好意思,是被3或5或7整除...求答案

举报 我是大辽

那小等一下= = ----OK了---- 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 Then Write #1, i ElseIf i Mod 5 = 0 Then Write #1, i ElseIf i Mod 7 = 0 Then Write #1, i End If Next i End Sub
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.800 s. - webmaster@yulucn.com