vb讀文件

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

把控件添加進(jìn)來(lái)后，從視圖菜單中打開(kāi)對(duì)象瀏覽器，找到該控件，下面說(shuō)明面板中指出了它所在的庫(kù)，這是鏈接，點(diǎn)擊一下定位到該庫(kù)，在說(shuō)明面板中有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!

加我為滿意答案吧

第一題:樓上沒(méi)考慮硬幣總數(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

VB中的Get是Get 語(yǔ)句。

Get 語(yǔ)句

將一個(gè)已打開(kāi)的磁盤(pán)文件讀入一個(gè)變量之中。

Get 語(yǔ)句示例

本示例使用 Get 語(yǔ)句來(lái)將數(shù)據(jù)從文件讀到變量中。示例中假設(shè)
TESTFILE 文件中含有五個(gè)用戶自定義類型的記錄。

Type Record ? ' 定義用戶自定義的數(shù)據(jù)類型。
? ID As Integer
? Name As String * 20
End Type

Dim MyRecord As Record, Position ? ' 聲明變量。
' 為隨機(jī)訪問(wèn)打開(kāi)樣本文件。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 使用 Get 語(yǔ)句來(lái)讀樣本文件。
Position = 3 ? ' 定義記錄號(hào)。
Get #1, Position, MyRecord ? ' 讀第三個(gè)記錄。
Close #1 ? ' 關(guān)閉文件。

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

1， PostMessage只把消息放入隊(duì)列，不管其他程序是否處理都返回，然后繼續(xù)執(zhí)行，這是個(gè)異步消息投放函數(shù)。而SendMessage必須等待其他程序處理消息完了之后才返回，繼續(xù)執(zhí)行，這是個(gè)同步消息投放函數(shù)。而且，PostMessage的返回值表示PostMessage函數(shù)執(zhí)行是否正確；而SendMessage的返回值表示其他程序處理消息后的返回值。這點(diǎn)大家應(yīng)該都明白。

2， 如果在同一個(gè)線程內(nèi)，PostMessage發(fā)送消息時(shí)，消息要先放入線程的消息隊(duì)列，然后通過(guò)消息循環(huán)Dispatch到目標(biāo)窗口。SendMessage發(fā)送消息時(shí)，系統(tǒng)直接調(diào)用目標(biāo)窗口的消息處理程序，并將結(jié)果返回。SendMessage在同一線程中發(fā)送消息并不入線程消息隊(duì)列。 如果在不同線程內(nèi)。最好用PostThreadMessage代替PostMessage,他工作的很好。SendMessage發(fā)送消息到目標(biāo)窗口所屬的線程的消息隊(duì)列，然后發(fā)送消息的線程等待(事實(shí)上，他應(yīng)該還在做一些監(jiān)測(cè)工作，比如監(jiān)視QS_SENDMESSAGE標(biāo)志)，直到目標(biāo)窗口處理完并且結(jié)果返回，發(fā)送消息的線程才繼續(xù)運(yùn)行。這是SendMessage的一般情況，事實(shí)上，處理過(guò)程要復(fù)雜的多。比如，當(dāng)發(fā)送消息的線程監(jiān)測(cè)到有別的窗口SendMessage一個(gè)消息到來(lái)時(shí)，他直接調(diào)用窗口處理過(guò)程(重入)，并將處理結(jié)果返回(這個(gè)過(guò)程不需要消息循環(huán)中GetMessage等的支持)。

3， msdn: If you send a message in the range below WM_USER to the asynchronous message functions (PostMessage, SendNotifyMessage, and SendMessageCallback), its message parameters can not include pointers. Otherwise, the operation will fail. 如果發(fā)送的消息碼在WM_USER之下(非自定義消息)且消息參數(shù)中帶有指針，那么PostMessage,SendNotifyMessage,SendMessageCallback這些異步消息發(fā)送函數(shù)將會(huì)調(diào)用失敗。 最好不要用PostMessage發(fā)送帶有指針參數(shù)的消息。

VB6.0中DropDown事件是當(dāng) ComboBox 控件的列表部分正要被放下時(shí)發(fā)生的事件。

DropDown 事件，該事件是當(dāng) ComboBox 控件的列表部分正要被放下時(shí)發(fā)生；如果 ComboBox 控件的 Style
屬性設(shè)置為 1（簡(jiǎn)單的 Combo）時(shí)此事件不會(huì)發(fā)生。

說(shuō)明

DropDown 事件過(guò)程可以用在接受選擇之前對(duì) ComboBox 列表進(jìn)行最后的各種更新。于是允許使用 AddItem 或
RemoveItem 方法從該列表添加或刪除條目。在需要控件間有某些相互作用時(shí)，這種靈活性是很有用的，例如，需要根據(jù)在
OptionButton 組中的選擇才能決定加載到 ComboBox
列表的內(nèi)容時(shí)，就可以利用該事件。

DropDown 事件示例

本例根據(jù)用戶在一個(gè)選項(xiàng)按鈕組中的選擇來(lái)更新一個(gè) ComboBox
控件。要嘗試這個(gè)例子，可將代碼粘貼到一個(gè) 包含 1 個(gè) ComboBox 控件和 2 個(gè) OptionButton
控件的窗體的聲明部分。將兩個(gè) OptionButton 控件的 Name 屬性都設(shè)置為 OptionGroup，然后按 F5
鍵并單擊 OptionButton 控件。根據(jù) OptionButton 的選擇，ComboBox
控件反映出不同的載體。

Private Sub Form_Load ()
? ***.text = "" ? ' 清除組合框。
End Sub

Private Sub Combo1_DropDown ()
? ***.clear ? ? ? ? ? ?' 刪除乙有的項(xiàng)。
? If OptionGroup(0).Value = True Then
? ? ?***.additem "Gray Goose Express", 0
? ? ?***.additem "Wild Fargo Carriers", 1
? Else
? ? ?***.additem "Summit Technologies Overnight"
? End If
End Sub

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

MultiSelect = 0 只允許單選
MultiSelect = 1 允許按住Shift或Ctrl鍵多選，多選了是多選的，但是不符合題目要求
MultiSelect = 2 列表前有復(fù)選框，這樣只要勾選復(fù)選框了，就是【不使用Shift或Ctrl鍵就能多選】