1樓：
private sub command1_click()dim m, f, t
m = 100000 * 30
t = 0.01
dot = t * 2
f = f + t
n = n + 1
loop while n < 30
msgbox "陌生人給富翁:" & m & "元錢"
msgbox "富翁給陌生人:" & f & "元錢"
end sub
2樓：
sub money()
dim m1,m2
m1=100000*30 '陌生人給富翁的錢m2=(1-2^29)/-1 '富翁給陌生人的錢，使用等比數列求和公式：首項=1，項數=30，公比=2，首項*(1-公比^(項數-1)/(1-公比)=1*(1-2^(30-1))/(1-2)=(1-2^29)/-1
msgbox "陌生人一共給富翁" & m1 & "元錢，富翁一共給陌生人" & m2 & "元錢"
end sub
3樓：匿名使用者
private sub form_click()a = 100000
s1 = a * 30
print "陌生人給富人的錢是：" & s1m = 0.01
for k = 1 to 2
s2 = s2 + m
m = 2 * m
next k
print "富人給陌生人的錢是：" & s2end sub
VB高手進 急啊
private sub currentsub dim a 10 as string nextsub a end sub private sub nextsub byval b as string 你想按地址傳遞的話用byref 處理陣列b end sub 這樣設計有利於模組的獨立性。定義一個全域性變...
vb，編寫程式計算1 2100，請高手幫忙糾錯
修改以後的程式如下，已經執行通過，答案正確 private sub form click dim i as integer dim sum as integer for i 1 to 100 sum sum i next i print sum end sub 在for迴圈的內部不能再用i i 1 ...
一些基礎會計題目高手進啊急求，高手進！！幫忙回答一下基礎會計的 判斷題 和 1道 綜合題，謝謝了！！！
戴巨集偉 40.借 固定資產 45000 貸 實收資本 45000 41.借 其他應收款 王軍 450 貸 現金 450 42.借 營業外支出 200 貸 銀行存款 200 43.借 銀行存款 16000 貸 預收賬款 16000 44.借 現金 23000 貸 銀行存款 23000 45.借 應付...