vb.寫出1000以內能被357整除的數(shù).并用write語句從小到大排列,并存入文件中.
vb.寫出1000以內能被357整除的數(shù).并用write語句從小到大排列,并存入文件中.
其他人氣：287 ℃時間：2019-09-12 16:53:16
優(yōu)質解答
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
我來回答
類似推薦
- VB編程求1到1000中能被3整除的數(shù)的個數(shù)
- 輸出1000以內所有能被37整除的整數(shù).
- vb設計一個程序,統(tǒng)計1000以內能被7整除的正整數(shù)的個數(shù).
- VB編程數(shù)據(jù)文件里的前10000個數(shù)從小到大排列,前5000個數(shù)中能被3整除的數(shù)的個數(shù)
- 中國共產黨全體代表大會 和全國人民代表大會各自的簡稱是什么?比如幾大.幾屆幾中全會.
- 算式,某人乘船由A地順溜而下到B地,然后又乘船逆流而上至C地,共乘船3小時.已知船在近水中速度為8KM一小時,水流速度為2KM小時,若AC兩地得距離為2KM則AB兩地距離為?
- 魯濱遜的遜是讀《xun還是sun》?
- 摩爾比怎么算
- 八下英語改錯
- 實驗室加熱約2mL液體,可以使用的儀器是
- 黑板在墻上英語用in還是on
- 下列四種物質中有一種在適當條件下能與其他三種反應，這種物質是（ ?。?A.氧氣 B.鐵 C.鹽酸 D.硫酸銅
猜你喜歡
- 1若直線l過拋物線y=ax2（a＞0）的焦點，并且與y軸垂直，若l被拋物線截得的線段長為4，則a=_．
- 2“地”有幾個讀音?
- 3我忘不了你的鼓勵,作文600字
- 4（1）已知：f(x)＝4x2?12x?32x+1，x∈[0，1]，求函數(shù)f（x）的單調區(qū)間和值域； （2）a≥1，函數(shù)g（x）=x3-3a2x-2a，x∈[0，1]，判斷函數(shù)g（x）的單調性并予以證明； （3）當a≥1時，上述（1）、（
- 52x-(25-x)=8,x=
- 6Mary-----(see) her uncle the day after tomorrow.
- 7It is +時間段+since=?
- 8帶過字的二字詞語：過于激烈叫（ ）超過期望叫（ ）超過限度叫（ ）事情經過叫（ ）
- 9甲乙倆人同時從相距100km的兩地相向而行,甲乙的速度分別是6KM/h和4KM/h,
- 10甲數(shù)的五分之一等于乙數(shù)的八分之一,甲數(shù)是乙數(shù)的百分之幾.
- 11已知f（x）=Inx^2,(x>0)的值域為[-1,1],則其反函數(shù)的值域為?
- 12which city do you like best in China?