vb修改文件關(guān)聯(lián)

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

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

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

如果n=1則返回1,否則返回n*fac(n-1)
由于fac(n-1)繼續(xù)這樣的邏輯
所以最終會(huì)返回 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è)置 窗體中 對(duì)象 響應(yīng) tab 鍵 的順序值。
例如 ：有3個(gè) 文本框
text1 的tabIndex 為 2
text2 的tabIndex 為 1
text3 的tabIndex 為 0，
運(yùn)行程序，焦點(diǎn)首先落在 text3里，按 tab鍵 光標(biāo)會(huì)跑到text2，再按一次才會(huì)跑到text1

下面的函數(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)星號(hào)聲（System
asterisk
sound）
MB_ICONEXCLAMATION
系統(tǒng)驚嘆聲
MB_ICONHAND
系統(tǒng)指針聲（System
hand
sound）
MB_ICONQUESTION
系統(tǒng)提問聲

如果說是對(duì)角線就要是正方形數(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

Private
Declare
Function
PostMessage
Lib
"user32"
Alias
"PostMessageA"
(ByVal
hwnd
As
Long,
ByVal
wMsg
As
Long,
ByVal
wParam
As
Long,
lParam
As
Any)
As
Long
Const
WM_KEYDOWN
=
&H100
Const
WM_KEYUP
=
&H101
Const
WM_CHAR
=
&H102
Const
VK_F1
=
&H70

Private
Sub
SendF1()'調(diào)用這個(gè)過程即可對(duì)目標(biāo)窗體發(fā)送F1鍵
Call
PostMessage(hwnd,
WM_KEYDOWN,
VK_F1,
0)
Call
PostMessage(hwnd,
WM_KEYUP,
VK_F1,
0)
End
Sub