1樓：匿名使用者
private sub form_load()dim i as long
dim x as long
dim sum1
dim sum2
dim sum3
for i = 1 to 30
x = 100000
sum1 = sum1 + x
next
debug.print "窮人給富商的錢為: " & sum1sum2 = 0.01
sum3 = sum2
debug.print "富商給窮人到第1天一共的錢; " & sum3
for i = 2 to 30
sum2 = sum2 * 2
sum3 = sum3 + sum2
debug.print "富商給窮人到第" & i & "天一共的錢" & sum3
next
end sub
2樓：匿名使用者
private sub command1_click()dim i, n as long, s as doublefor i = 0 to 30
s = 0
s = s + (2 ^ i) / 100n = 30 * 100000
next
print "陌生人給富翁的錢為（單位：元）："; sprint "富翁給陌生人的錢為（單位：元）："; nend sub
3樓：衣謐樂憐翠
這題的答案是19。在vb程式裡面，各種運算子(包括^乘方,-符號,*乘號,/除號,\整除,mod取模,+加,-減)有著不同的優先順序，就像加減乘除四級運算一樣。
運算子含義
優先順序例項結果^
乘方13^29-負號
2-1-1*
乘39*218/除
38/24\
整除410\4
2mod取模5
3mod21
+加618+119-
減62-11
帥哥我是照著我們的課本來給你解釋的，敲字狠辛苦，大家都不容易，您看，滿意不?希望可以幫助到你。
4樓：桂博徐若翠
這題答案是
b由於flags設定為3,所以不能進行顏色設定如果不設定flags
值,將會報錯
flags屬性如下:
cdlcfscreenfonts(螢幕字型),屬性值為1cdlcfprintfonts(印表機字型),屬性值為2cdlcfboth(即可以印表機字型也可以是螢幕字型),屬性值為3這就是你問的commondialog1.flags=3意思fontname
指選定字型的名稱
fontsize
指選定的字型的大小
fontbold
指是否選定粗體
fontltalic
指是否選定斜體
fontunderline
指是否選定下劃線
fontstrikethru
是否選定刪除線
forecolor
指字型顏色
求助一道題英語題，求助一道英語題
英語作為三大主科之一，一直也是同學們比較頭疼的一門科目，在學習過程中對於很多知識點都掌握不透徹，這也導致在做題的時候經常出錯。比如，同學們在平時做題的過程中常常有這樣的現象 有些題目看起來很眼熟，於是按照以往的經驗輕而易舉就得出 正確答案 卻不料這是命題者設下的乙個 陷阱 導致失分。這樣的題，就是我...
一道題，求助，求助數學大神一道題
1 c的度數不改變，c 45 在直角 aob中設 oab x，則 oba 90 x，ban 180 x，abm 180 90 x 90 x，又因為ac bc分別為 ban abm的角平分線，所以 cab ban 2 180 x 2，cba abm 2 90 x 2，則在 abc中可算得 c 180 ...
求助！一道物理題，一道物理題！！！！求助
質量 密度 體積 7.9千克 7.9 10 3千克 立方米 1立方分米由於鐵塊是正方體，所以稜長都是1分米，底面積是1平方分米壓強 壓力 面積 鐵塊重力 底面積 79牛 0.01平方米 7900帕 單位的換算我有些記不清了，但解題思路絕對正確，你可以自己再驗算一下，有助於加深理解。 東風懸崖 這道題...