1樓：
'計算結果是87年後人口數達到26億（2600217314）function n() as integer'返回值=人口數從13億增加到26萬需要的年數dim dqrk as double,ns as integerdqrk=1300000000
rk dqrk,ns
n=ns
end function
sub rk(byref dqrk as double,byref ns as integer)
'dqrk 當前人口數，ns 年數
dqrk=dqrk*1.008
ns=ns+1
if dqrk < 2600000000 then rk dqrk,ns '人口數低於26億時遞迴呼叫
end sub
2樓：歸萱
private sub command1_click()dim k, n
do until k >= 26
n = n + 1
k = 13 * (1 + 0.008) ^ nloop
print n & "年後人數為：" & kend sub
求解下面這三道程式設計題vb謝謝，急求！一道VB程式設計題 謝謝！
程式設計題1 option explicit private sub form load dim strinput as stringdim bytidx as byte dim strrank 1 to 3 as stringdim sngnum as singlestrrank 1 st str...
一道VB題,跪求答案，一道VB題,跪求答案
i don t know i don t know i don t know i don t know i don t know i don t know i don t know i don t know i don t know i don t know i don t know i don t...
問一道VB的填空題，一道vb填空題
x 1234 val h left x,len x 2 相當於 是取字串 1234 的前2個字元的意思，即返回 12 val h 12 val h12 相當於求十六進位制數12的十進位制值我這樣分析你應該看得明白了吧？x的值是多少呢？uday100866 14 15 33我認為也是12，在程式上 p...