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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/14 14:25:19

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
把它放到一个按钮的代码里就行
再问：不好意思,是被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

vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中. 在1-1000中,能被3 （或） 5整除的数,从小到大排列,第93个数是多少 vb编程：求1000以内所有能被7整除的数的个数显示出1000以内所有能被37和17 整除的数循环结构 vb 用循环语句输出1000以内能被3或7整除但不能同时整除的数用WHILE语句写出求1000以内所有能被3整除的正整数的和的程序 VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数 vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序 VB 输出1～100中,既能被3整除,又能被7整除的数 VB中输入一个数n,求出n以内能被5整除的所有正整数的个数怎么写程序 vf 100以内能被3整除的数程序设计要求用do while语句用while,语句实现输出100以内所有能被4整除的数