1樓：匿名使用者
option explicit
private sub command1_click()dim sum as double
dim n as integer
dim i as integer
n = val(text1.text)
if n <= 0 and n > 20 thentext1.selstart = 0
text1.sellength = len(text1.text)end if
for i = n to 1 step -1sum = sum + fact(i)
next i
text2.text = sum
end sub
private function fact(n as integer) as double
dim a as integer
a = n
fact = 1
do while a > 0 and a <= 20fact = fact * a
a = a - 1
loop
end function
兩個地方1、step -1 2、for迴圈中的i到函式裡會被遞減，所以再賦一新變數
vb定義有關問題
m 和 total 是引數變數 相當於和外界交換資料的作用 可以由外部賦值 i卻不能直接從外部給予賦值操作 引數變數還可以設定 傳遞方式 byval or byref來決定是否可以改變實際變數的值 a 2b 3 call mmm a,b msgbox a a結果為1 msgbox b b還是3 su...
UV燈能量不累加，不是電子的能量可以累加，光子的能量才要等於能量差嗎？
您把裝置開啟，先開啟一盞燈測試資料是150mj cm2,然後8盞燈全部點亮資料是300mj cm2,兩次測量時間完全一致。您的問題是uv能量為什麼沒疊加？理想的能量值應該是1200mj cm2左右,那麼為什麼uv能量值只有300？回答 首先檢查儀器是不是穩定，連續測兩次能量值資料與前一次測量疊加接近...
一道有關vb程式設計的題目，一道比較簡單的VB程式題目，只需要程式碼即可
火星飛人 private sub form load show label1.autosize true label1.caption str time label1.top val form1.height 2 val label1.height 2 label1.left val form1.w...