vb程式設計問題

2022-05-24 20:05:04 字數 786 閱讀 9328

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...