vb學(xué)生管理系統(tǒng)

聽起來很復(fù)雜，這類東西應(yīng)該不是分能弄到的誒。。。幫頂一下，拿2分閃。。

如果n=1則返回1,否則返回n*fac(n-1) 由于fac(n-1)繼續(xù)這樣的邏輯 所以最終會返回 n*(n-1)*(n-2)*...*2*1=n! 加我為滿意答案吧

第一題:樓上沒考慮硬幣總數(shù)是10枚哦 Private Sub Form_Click() Dim i%, j%, k%, n% n = 0 For i = 0 To 10 For j = 0 ...

其實你不需要自己編寫，網(wǎng)上有很多這種東西，如果你覺得功能不夠齊全，你可以在原本上加上自己的少少東西

下面的函數(shù)能幫你 Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As ...

如果說是對角線就要是正方形數(shù)組i(1 To m,1 To m) Dim a,b As Long Dim s As Long For a=1 to m For b=1 to m If a=b or...

同學(xué)，這是基本功呀。。val("-2")的值是－2，VAL函數(shù)的意思就是把字符串類型的數(shù)據(jù)轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)。。

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal...

Dim?a?As?Integer Dim?b,?c,?i,?j?As?Integer Private?Sub?Command1_Click() Cls For?i?=?1000?To?999...

Do While MsgBox("我是傻瓜嗎？", vbYesNo) <> vbYes Loop