1樓：風箏的天空藍耀
private sub command1_click()s = 1: i = 1
while i <= 8
s = s * i
i = i + 1
wend
print s
end sub
2樓：匿名使用者
dim num as double
dim jieguo as double
private sub command1_click()jieguo = 1
on error goto one
num = int(text1.text)』msgbox num
for a = 1 to num
jieguo = jieguo * a
next
text2.text = jieguo
one:
end sub
//在vb6.0下測試成功
//本題的智慧性：
//在text1中可以輸入任意階數。
//結果顯示在text2中。
3樓：
private sub command1_click()n = 8
f = 1
while n > 1
f = f * n
n = n - 1
wend
msgbox f
end sub
4樓：匿名使用者
main（）
｛int i，j ，s；
while（j＜＝8）
｛i=ixj；
s=sxi；
j++；｝
vb求1到n的階乘，VB求1到N的階乘
sum 0 temp 1 for i 1 to n sum sum temp i temp temp i next 用vb求1到n的階乘和的程式編寫 自己編寫函式 private function jiec byval n as integer as long dim i as integer di...
VB程式設計題。。求助，vb程式設計題求解！！！謝謝各位了！！
我已經做好了，郵箱？發給你！vb程式設計題求解！謝謝各位了！vb程式設計題。求助！做了一個指標式動態時鐘，是以系統時間顯示的，有時 分 秒的指標，也有數字顯示。但是沒有你說的校時功能，因為是系統時間，不需要校時。秒針的角度轉動同時改變分針和時針的角度轉動，並且最小轉動角度為6度 一圈是360度，符合...
vb的程式題
dim h,m,s as integerprivate sub form load h 1 m 0 s 0 label1.caption 01 00 00 timer1.interval 1000end sub private sub timer1 timer s s 1 if s 0 then s...