vb程式設計問題

1樓：

private sub command1_click()dim i, j as integer, s as double, n as double

for i = 1 to 100

n = 1

for j = 1 to i

n = n * j

next j

s = s + n

next i

print "1!+2!+......+100!="; send sub

2樓：匿名使用者

private sub command1_click()dim sum as double, k as doubledim i as integer, j as integerk = 1

for i = 1 to 100

for j = i to 2 step -1k = k * j

next

sum = sum + k

k = 1

next

msgbox sum

end sub

3樓：匿名使用者

private sub form1_activateddim s as integer,p as integerfor i=1 to 100

p=1for j=1 to i

p=p*i

next j

s=s+p

next i

print "1!+2!+......+100!=";send sub

VB程式設計的簡單問題，VB簡單程式設計問題

1.do while loop 如果while的條件成立，就執行裡面的語句 比如，while a 2，先判斷a，a不大於2就不執行了 這個是不滿足就不執行 2.do loop while e 這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼...

vb程式設計問題，高手請進

重排一下，你那樣寫太沒層次了，看著暈 private sub command1 click dim a 5 定義 a 0 a 5 6個for i 0 to 4 0 4 五次迴圈a i i 1 t i 1 if t 3 then 這有個條件判斷,t 3，也就是i 2的時候才是true print a ...

vb程式設計計算VB程式設計計算

第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...