vb編寫關於階乘的程式，vb編寫一個關於階乘的程式，

1樓：寒林夢沙

來不及寫，教你怎麼做吧

先把文字框的讀取轉存成整數

對這個整數用if判斷

不滿足條件用msgbox提示

滿足條件的話，呼叫函式，引數就是那個整數，返回值就是結果。

2樓：melody丶丨

剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1_click()dim dat1 as variant

dim sum as variant

dim i as integer

dat1 = val(text1.text)sum = 1

if dat1 <= 0 then

msgbox "請重新輸入", vbexclamation + vbokonly, "提示"

else

for i = 1 to dat1

sum = sum * i

next i

text2.text = cstr(sum)end if

end sub

private sub command2_click()endend sub

private sub form_load()label1.caption = "輸入資料"

label2.caption = "階乘"

command1.caption = "計算"

command2.caption = "退出"

text1.text = ""

text2.text = ""

end sub

寫一個1的階乘加到15的階乘的程式

3樓：兄弟連教育北京總校

#include

using namespace std;

__int64 fac (int n)

int main()

return 0;}

vb編寫關機程式

1全部glngwhichwindows32 mlngwindowsnt是對系統平臺作判斷，是否為nt系統 nt系統下使用adjusttoken獲得許可權驗證 shutdown 使用參shutdown 用法 shutdown i l s r a f m computername t xx c co m...

用VB編寫自動關機程式，用VB編寫一個自動關機程式

option explicit private declare function getlastinputinfo lib user32 plii as lastinputinfo as boolean private declare function gettickcount lib kernel...

VB高手用VB編寫下面勾股定理，vb編寫勾股定理滿足條件一

private sub command1 click for i 1 to 30 for j i 1 to 30 k int sqr j j i i 0.5 if i i k k j j and k i then print i k j end if next j,i end sub vb編寫勾股定...