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
指字型顏色
vb裡一道題求解，求解VB一道題 最好解釋每一步
迮悅 private sub command1 click text1.visible falseend sub private sub command2 click text1.text vb程式設計 text1.visible true text1.fontsize 16 end sub pri...
問一道vb題，問一道VB的題，謝謝哪位大神
你要知道if c mod 2 0 then 語句才執行，其他的是每次迴圈都執行 開始s 1 1 2 i 3c 1,c mod 2 0 不成立，後面不執行a 1 b 1 i 4c 2,c mod 2 0成立 s 2 c 2 2 4a 1 b 2 i 5c 3 c mod 2 0 不成立，後面s s c...
一道歷史題，一道歷史題，求助。。。
樓上的幾個你們有沒有學過歷史啊？是b！一道歷史題，求助。 五四以前的新文化運動倡導者們所使用的 是西方資產階級的民主主義，其性質仍回然是資產階級答 民主主義的思想文化運動。因此運動的侷限性是明顯的，也存在著一些弱點。第一，新文化運動的倡導者沒有揭示封建 主義得以存在的社會根源 把資產階級共和國方案失...