VB程式設計S

2021-03-06 00:57:35 字數 1787 閱讀 4401

1樓:匿名使用者

dim i,j=1,s=0

for i=1 to 10

j=j*i

s=s+j

next

print s

具體自己再看看,就是這個思想,很簡答的,

2樓:匿名使用者

private sub ***mand1_click()for i = 1 to 10

n = 1

for k = 1 to i

n = n * k

next k

s = s + n

next i

print s

end sub

3樓:匿名使用者

dim s,t as long

s=0for i=1 to 10

t=1for j=1 to i

t=t*j

next

s=s+t

next

msgbox s

4樓:飛玉追星

private sub form_load()me.autoredraw = true

dim i as integer

dim j as long

dim s as long

j = 1

s = 0

for i = 1 to 10

j = j * i

s = s + j

next i

print s

end sub

vb程式:求s=1!+2!+3!+4!+5!+6!+7!+8!+……+99!的值是多少?

5樓:墨汁諾

99的階乘

復接近10的156次方,也就是說,是一制個155位的數值,這個數值在vb的數值型別中,是無法精確儲存的。

一般演算法型別的程式設計題目,會求這個值的後6位這樣的問題,或者使用貪心演算法計算階乘和問題,這類問題通常不會超過10的階乘值或者整數變數範圍。

s=0for i= 1 to 99

for j=1 to i

s1=1

s1=s1*j

next j

s=s+s1

next i

6樓:匿名使用者

謝謝偽**給你,你自己再寫.首先高清楚n!=1*2*...n,所以用兩個迴圈來

做,第乙個做相回加,第二個是答做階乘

s=0for i= 1 to 99

for j=1 to i

s1=1

s1=s1*j

next j

s=s+s1

next i

7樓:匿名使用者

99的階乘接bai近10的156次方,也就du是說,是乙個zhi155位的數值

8樓:匿名使用者

sub main()

dim c as integer = 1

dim sum as integer = 0dim b as integer = 0

for i = 1 to 99

b = i

while (b >= 1)

c += b * (b - 1)

b -= 1

end while

sum += c

i += 1

next

console.writeline(sum)console.read()

end sub

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

Vb程式設計,什麼是VB程式設計?

private sub command1 click dim a 1 to 100 as integer,b as integer dim i as integer,j as integer,n as integer randomize timer for i 1 to 100 a i int rn...