小弟請各位幫忙寫程式(vb6)

Zx s wrote:
小弟我也是
可是小弟卡在不知道怎麼取那個空白當作是enter
還在研究中
超好玩的拉~
謝謝各位,小弟會努力的寫,不會這樣亂提問
下次會好好想過,把我的程式PO上來給大家看


關於這個~感覺你根本沒用心看大家的回覆耶~
我之前不是有寫到~

a = Split("00 11 22 33 44 55", " ")

a(0)="00";
a(1)="11";
a(2)="22";
a(3)="33";
a(4)="44";
a(5)="55";

然後用val把字串轉成整數~

如果你真的是希望人家教你~
大家的回覆你不是都該試著跑過一次~

但你現在只讓我覺得你是要人家幫你寫耶~

基本上~我那段除了輸入錯誤會跳出錯誤外~
都能正常執行了~
你卻還在尋找~怎麼用空格分隔字串~

Split Function



messageboxs wrote:
關於這個~感覺你根本...(恕刪)

大大這樣我就看懂了,謝謝大大
小弟不太會用split函數
所以才不懂,對不起
我每個都有認真的試過
一個一個分析

小弟把你上面的放到VB6上
可是一直編譯錯誤說....
不知道原因 還在改
看這篇討論

小弟又多學到一個指令"Split"

之前從來沒用過...(應該說沒知道過)

這種題目的話 小弟只會用"MID"抓空格位置來區分輸入的是第幾個數字

感謝前輩~
Harvey, Hearty, Happy, Honey~
小弟不解split的語法,
研究很久搞不出所以然
誰可以跟小弟解釋一下
第一次用這個語法

程式碼:
Private Sub Command1_Click()
Dim a(5) As Integer
a = Split("00 11 22 33 44 55", " ")

Print a(0)
End Sub

錯誤訊息:無法定議此陣列
打雜小瑋云:『金錢誠可貴,職銜價更高,若為生命故,兩者皆可』
Zx s wrote:
Private Sub Command1_Click()
Dim a(5) As Integer
a = Split("00 11 22 33 44 55", " ")

Print a(0)
End Sub


改為這樣~

Private Sub Command1_Click()
Dim a
a = Split("00 11 22 33 44 55", " ")

Print a(0)
End Sub

另外~我自己比較習慣用
Debug.print a(0), a(1)....


不能先把A宣告成陣列~

sqr0930 wrote:
看這篇討論
小弟又多學到一個指令"Split"

其實我先會用這個好像是在PERL還是PHP~
當初寫BBS類型的聊天室~
都是靠這個來分析輸入的語法~
EX. /msg XXX XXX
/action song XXX ID
之類的東西~

後來使用VB來寫類似的東西~
本來也是一個個慢慢找~
在翻MSDN時~不小心翻到~
從此過著幸福快樂的日子了~

文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!