Dim i, j
j = 0
For i = 1 To 100
If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 Then
Print i,
j = j + 1
If j = 7 Then
Print
j = 0
End If
End If
Next i
用VB,輸出1到100之間能被3或7整除,但不能同時(shí)被3和7整除的整數(shù),且每七個(gè)數(shù)換一行.
用VB,輸出1到100之間能被3或7整除,但不能同時(shí)被3和7整除的整數(shù),且每七個(gè)數(shù)換一行.
其他人氣：190 ℃時(shí)間：2019-09-09 17:43:28
優(yōu)質(zhì)解答
我來(lái)回答
類(lèi)似推薦
- vb輸入1個(gè)整數(shù) 判斷能否被3和7整除,若能輸出A 不能輸出B
- 用VB編寫(xiě)程序輸出1～100之間不能被3整除的數(shù),并統(tǒng)計(jì)其個(gè)數(shù).
- VB題：編程輸出1-100之間的所有可能被3整除的數(shù)
- 選修三1.算了好幾遍數(shù)都不對(duì),
- 形容心情復(fù)雜的詩(shī)句
- 數(shù)學(xué)簡(jiǎn)便計(jì)算；（+15/17）+（-2.5）+（-5）+（+2.5）+2/17
- 黑猩猩和人的區(qū)別有哪些
- In my view,the West Lake is one of the most beautiful scenic spots in China,________ only to Jiuz
- 將一個(gè)兩位數(shù)四舍五入去近似值得到7.0.這個(gè)兩位小數(shù)最大是（ ）,最?。?）.
- 晚間照鏡子,燈應(yīng)放在什么位置才能看清自己的臉.為什么?
- 英語(yǔ)翻譯
- 角速度,線(xiàn)速度
猜你喜歡
- 1打排球 打籃球 打棒球 用英語(yǔ)
- 2已知G為三角形ABC重心,求證：GA向量+GB向量+GC向量=0,
- 3一個(gè)圓柱體的體積是125.6立方厘米,底面直徑是4厘米,它的側(cè)面積是多少平方厘米?
- 4描寫(xiě) 百合花的作文
- 5These are our skateboard是(就劃線(xiàn)提問(wèn))
- 612,1,2月和6,7,8月,3,4,5月和9,10,11月,在南半球各是什么季節(jié)?
- 7on-the-ball
- 8y=f(x)是定義在R上的奇函數(shù),當(dāng)x>0時(shí)f(x)=x²-2x+3,求f(x)在R上的解析式.
- 9把一根長(zhǎng)2米的木棒平均截成5段,共需8分鐘,每段長(zhǎng)占全長(zhǎng)的（ ）據(jù)一段所需的時(shí)間占總時(shí)間的（）
- 10的作者是誰(shuí)?
- 11初中趣味科學(xué)實(shí)驗(yàn),急求!
- 1281+691×9簡(jiǎn)算