vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中.
vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中.
其他人气:301 ℃时间:2019-09-12 16:53:16
优质解答
Private Sub Command1_Click()Dim a As IntegerDim i As IntegerOpen "out.dat" For Output As #1For i = 1 To 1000If i Mod 357 = 0 ThenWrite #1,iEnd IfNext iEnd 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
我来回答
类似推荐
猜你喜欢
- 1在一个标准大气压下,质量为1kg、20℃的水吸收了3.78×105J的热量后,温度升高了多少℃?
- 2一个多项式A减去多项式2x2+5x-3,马虎同学将减号抄成了加号,计算结果是-x2+3x-7,其正确的结果是_.
- 3有一块岩石体积为40米3,为了测定它的质量,取一小块作为样品,测出样品的质量为70克,用量筒装入70毫升的水,然后把样品浸没在水中,此时水面升高到95毫升,则 (1)石块的密度是多
- 4We are going to play basketball tomorrow.(划线部分提问)play basketball划线
- 5There will be more robots in the furure,_ _ (反意疑问句)
- 6They are so alike that you can't tell________is which.
- 7徐以杓酌油沥之
- 8一质点做匀变速直线运动,某时刻的速度是2m/s,加速度是0.5m/s2,方向与速度方向相反,那么,它在3秒前的速度大小为_m/s,3秒后的速度大小为_ m/s.
- 9已知函数fx=2cos²x/2-根号3sinx 求函数的最小正周期和值域
- 10利用导数求切线方程