vb分割文件

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

把控件添加進(jìn)來后，從視圖菜單中打開對象瀏覽器，找到該控件，下面說明面板中指出了它所在的庫，這是鏈接，點(diǎn)擊一下定位到該庫，在說明面板中有Libray 庫名。建立控件時(shí)把這個(gè)庫名也加進(jìn)去。

Controls.add 的第三個(gè)參數(shù)就是指容器，一般控件都有Container屬性，動態(tài)建立后把容器控件賦給該屬性也是可以的。

如果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 To 10 - i

For k = 0 To 10 - i - j

If 1 * i + 2 * j + 5 * k = 25 And i + j + k = 10 Then

Print "1元" & i & "枚", "2元" & j & "枚", "5元" & k & "枚"

n = n + 1

End If

Next k

Next j

Next i

Print "一共有" & n & "種不同的取法"

End Sub



第二題:

Private Sub Form_Click()

Dim i%

For i = 1 To 40

If i * 3 + (100 - i) / 3 = 100 Then

Print "母雞數(shù)量:" & i

Print "小雞數(shù)量:" & (100 - i)

End If

Next i

End Sub

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

tabIndex是 設(shè)置 窗體中 對象 響應(yīng) tab 鍵 的順序值。
例如 ：有3個(gè) 文本框
text1 的tabIndex 為 2
text2 的tabIndex 為 1
text3 的tabIndex 為 0，
運(yùn)行程序，焦點(diǎn)首先落在 text3里，按 tab鍵 光標(biāo)會跑到text2，再按一次才會跑到text1

你可以看看***.fromfile()方法，也可以自己open一個(gè)文件，再read()一定字節(jié)實(shí)現(xiàn)。
前者是把整個(gè)原文件讀入內(nèi)存成為數(shù)組，再選擇數(shù)組的一部分寫入文件（***.tofile()）。后者是從原文件中讀入一些字節(jié)，再把這些字節(jié)write到新文件中。
因此，方法并不難，基本上就是一個(gè)copy過程。
特別要注意的是，二進(jìn)制文件是不存儲任何格式信息的，所以，一定要弄清楚這個(gè)文件是如何產(chǎn)生的，因此，在分割文件時(shí)不要把一個(gè)數(shù)所對應(yīng)的字節(jié)給分開。比如二進(jìn)制文件中是32bit數(shù)據(jù)，那么，就要4字節(jié)為一個(gè)單位，不能在分割時(shí)分出一個(gè)1字節(jié)或2字節(jié)來，否則數(shù)據(jù)就錯(cuò)了。

人性的惡面！

下面的函數(shù)能幫你

Declare
Function
MessageBeep
Lib
"user32"
Alias
"MessageBeep"
(ByVal
wType
As
Long)
As
Long

wType
Long，下述值之一
0
xffffffff
標(biāo)準(zhǔn)響鈴
MB_ICONASTERISK
系統(tǒng)星號聲（System
asterisk
sound）
MB_ICONEXCLAMATION
系統(tǒng)驚嘆聲
MB_ICONHAND
系統(tǒng)指針聲（System
hand
sound）
MB_ICONQUESTION
系統(tǒng)提問聲

如果說是對角線就要是正方形數(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 a+b=(m+1) Then
s=s+i(a,b)
Endif
Next
Next