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程式設計
用7個文字框 設定為控制項陣列,即連續複製乙個文字框,跳出提示框點是 輸入7個成績。private sub command1 click dim a 7 as single,i as integer,max as single,min as single,s as single,sum as sin...
vb程式設計題,vb程式設計題目
dim a 1 to 80 as integer dim js as integer dim os as integer private sub command1 click dim i,j,k randomize j 0 text1.text for i 1 to 80 a i int rnd 9...
VB程式設計題目,vb程式設計題目
給郵箱,發工程,以免自己除錯不出來 private sub command1 click timer1.enabled true end sub private sub command2 click timer1.enabled false timer2.enabled true label1.ca...