private sub command1_click()
dim sum as integer
dim i as integer
sum=0
for i = 1 to 50
if i mod 3 =0 then
msgboxi &"能被3整除",VbOkOnly+VbInformation,"提示"
sum=sum+i
end if
next i
msgbox"這些數(shù)的和為" & sum,VbOkOnly+VbInformation,"提示"
VB編寫(xiě)程序題.寫(xiě)出“輸出1-50之間,能被3整除的數(shù),并累加這些數(shù)的和”的
VB編寫(xiě)程序題.寫(xiě)出“輸出1-50之間,能被3整除的數(shù),并累加這些數(shù)的和”的
數(shù)學(xué)人氣：700 ℃時(shí)間：2019-08-23 06:50:27
優(yōu)質(zhì)解答
我來(lái)回答
類(lèi)似推薦
- VB題：編程輸出1-100之間的所有可能被3整除的數(shù)
- java 計(jì)算1~100之間能被3整除的數(shù)累加之和并輸出
- VB編程求1到1000中能被3整除的數(shù)的個(gè)數(shù)
- 用VB編寫(xiě)程序輸出1～100之間不能被3整除的數(shù),并統(tǒng)計(jì)其個(gè)數(shù).
- 因式分解a2c2-b2c2-a4+b4
- 賦比興的舉例
- 一般的,二次根式的運(yùn)算結(jié)果中,被開(kāi)方數(shù)中不應(yīng)含_____的因數(shù)或因式
- 兩數(shù)相除,如果除數(shù)擴(kuò)大5倍,要使商縮小5倍,被除數(shù)應(yīng)怎樣變化?
- 我十一點(diǎn)半吃午飯 用英語(yǔ)怎么說(shuō)
- 為什么高爾基復(fù)合體是膜分化中間階段
- 1.若｛An｝是等差數(shù)列,首相A1＞0,A2003＋A2004＞0,A2003×A2004＜0,則使前n項(xiàng)和Sn＞0成立的最大自然數(shù)是多少?
- 20以內(nèi)的自然數(shù)中,不是質(zhì)數(shù)的奇數(shù)有幾個(gè)
猜你喜歡
- 1凸輪軸位置傳感器的作用是什么?
- 2一項(xiàng)工作,甲單獨(dú)做需要15天完成,乙單獨(dú)做需要12天完成,這項(xiàng)工作由甲、乙兩人合做,并且施工期間乙休息6天,問(wèn)幾天完成?
- 3求成語(yǔ)中有teng（二聲）字音的成語(yǔ)
- 4用一首古詩(shī)改編成短文
- 5Don not talk.I am busy______TV.A.to watch B.watch C.watches D.watching
- 6SOE are,on average,less productive and have better access to external credit
- 70.346,46(循環(huán))化成分?jǐn)?shù),用算式求
- 8讓理想飛得更遠(yuǎn) 400字作文
- 9x-3 a -1 4 5 x-8 0 -2 0 b x+1 1 2 2 1 x 此行列式中x^3的系數(shù)為什么是-10?
- 10無(wú)色試液中加入硝酸酸化的硝酸銀溶液有沉淀產(chǎn)生結(jié)論原試液中一定含有氯離子
- 11判斷題：科學(xué)家已經(jīng)有證據(jù)表明,丙烯酰胺能夠使人患上癌癥.油炸食品中含有較多的丙烯酰胺
- 12chat on the line 有在電話里聊天的意思么?