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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/20 20:42:49
vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中.
x)+K{6i.C'>mk}ѼŢƦϦny9sY-Ϧn{s)+ʋ2KR__}O7?tg}vLyv֥Ϧ?ٽɎz6IEDΆN~ (,K,IU.MRpMK1wL+pUHTp,V+IMO- f )(嗖$())*Հ3l B@z}S>J(deAjs]R

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

vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中.
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
把它放到一个按钮的代码里就行