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程式設計中的迴圈問題
有個 自己去看吧,都是考試的。編一個求圓周長的程式。輸入半徑,得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點,很多事做不了 如果是對basic語言感興趣的話,到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...
VB程式設計陣列問題,VB程式設計陣列遇到問題,剛開始學vb跪求大神幫忙解惑
開啟vb後,在窗體中設定兩個標籤,三個文字框和一個按鈕,如圖所示。其餘的都在 中 dim a 20 as integer,x as integer private sub command1 click x text2 p binfind a,15,x if p 1 then text3 x 為陣列的...
VB程式設計題目,vb程式設計題目
private sub command1 click dim k sum sum 0 k val trim inputbox 請輸入正整數k的值 for i 1 to len str k sum sum val mid str k i,1 next i msgbox sum end subpriva...