用VB學資料結構....(汗)
不是應該用java或C嗎？....
這老師，是嗅到.net的氣味，以為VB6就是.net嗎？
.......
請問各位前輩會不會用VB寫物件導向啊？
版主: DearHoney
-
Alan_Huang
- 大師
- 文章: 81
- 註冊時間: 2001-01-05 08:00
- 來自: 三重硬梆梆
- 聯繫:
謝謝Makie跟jumper等各位前輩的指點...
小弟現在已經知道怎麼自行製造簡單的『控制項』跟『物件類別模組』了，
不過只會最簡單的SayHello而已(汗)
其實我跟同學討論的結果，覺得老師硬要我們用VB來寫DS只有兩個原因~~
1.他只有VB比較行
2.承上題，他又要出『用VB寫資料結構』的書了...
..結果拿學生當犧牲品....
我猜我們教授連.NET是幹麻的都沒聽說過呢~~:P
算了...管不了那麼多了......想再跟各位前輩研究一下關於進至轉換的觀念...
##要用2~9的數字來表示一個數字系統##
我的構想是：
2~9共有8個數字，並且起始字元是2，終止位元是9
所以將10進位先轉換成8進位，然後每個字元都再
各自"+2"，例如15(10)變成17(8 )然後再加2，最後
變成39(2_9)這樣對吧...
0->2
1->3
2->4
.
.
.
6->8
7->9
8->32
9->33
.
.
可是用這種方法太狹抑了...
因為它只適用以2~9為基數(radix)的系統
如果今天基數變成11~27的數字呢？(別懷疑，狠老師出的子題:-.-: )
那麼要怎麼辦阿...?
0->11
1->12
.
.
.
14->25
15->26
16->27
17->???? ?_?難道是1211嗎？
<!-- Edit Notice Start -->
<font size=-1>[ 這篇文章在 2001-06-12 19:45 被 JCH09 編輯過 ]</font><!-- Edit Notice End -->
小弟現在已經知道怎麼自行製造簡單的『控制項』跟『物件類別模組』了，
不過只會最簡單的SayHello而已(汗)
其實我跟同學討論的結果，覺得老師硬要我們用VB來寫DS只有兩個原因~~
1.他只有VB比較行
2.承上題，他又要出『用VB寫資料結構』的書了...
..結果拿學生當犧牲品....
我猜我們教授連.NET是幹麻的都沒聽說過呢~~:P
算了...管不了那麼多了......想再跟各位前輩研究一下關於進至轉換的觀念...
##要用2~9的數字來表示一個數字系統##
我的構想是：
2~9共有8個數字，並且起始字元是2，終止位元是9
所以將10進位先轉換成8進位，然後每個字元都再
各自"+2"，例如15(10)變成17(8 )然後再加2，最後
變成39(2_9)這樣對吧...
0->2
1->3
2->4
.
.
.
6->8
7->9
8->32
9->33
.
.
可是用這種方法太狹抑了...
因為它只適用以2~9為基數(radix)的系統
如果今天基數變成11~27的數字呢？(別懷疑，狠老師出的子題:-.-: )
那麼要怎麼辦阿...?
0->11
1->12
.
.
.
14->25
15->26
16->27
17->???? ?_?難道是1211嗎？
<!-- Edit Notice Start -->
<font size=-1>[ 這篇文章在 2001-06-12 19:45 被 JCH09 編輯過 ]</font><!-- Edit Notice End -->
如果只是8進位可考慮用Oct函數
用DHTML寫結果就像下面這樣
輸入:<Input type=text id=textzz1></Input>
<Input type=button id=btnzz1 Value=OK></input>
輸出:<Input type=text id=textzz2></Input>
<Script Language=VBS>:sub btnzz1_onclick() : Dim i : Dim tmpnum:textzz2.value=oct(Cint(textzz1.value)):if Cint(textzz2.value)<9 then:textzz2.value="2" & Cstr(Cint(textzz2.value)+2):else: for i = 1 to len(textzz2.value): tmpnum=tmpnum+Cstr(Cint(mid(textzz2.value,i,1))+2): next: textzz2.value=tmpnum:end if:end sub:</Script>
如果是其他範圍，可考慮用動態陣列加上Mod和Fix函數來求得..
動點腦筋加油吧...
[addsig]
<!-- Edit Notice Start -->
<font size=-1>[ 這篇文章在 2001-06-12 21:16 被 ASKA 編輯過 ]</font><!-- Edit Notice End -->
用DHTML寫結果就像下面這樣
輸入:<Input type=text id=textzz1></Input>
<Input type=button id=btnzz1 Value=OK></input>
輸出:<Input type=text id=textzz2></Input>
<Script Language=VBS>:sub btnzz1_onclick() : Dim i : Dim tmpnum:textzz2.value=oct(Cint(textzz1.value)):if Cint(textzz2.value)<9 then:textzz2.value="2" & Cstr(Cint(textzz2.value)+2):else: for i = 1 to len(textzz2.value): tmpnum=tmpnum+Cstr(Cint(mid(textzz2.value,i,1))+2): next: textzz2.value=tmpnum:end if:end sub:</Script>
如果是其他範圍，可考慮用動態陣列加上Mod和Fix函數來求得..
動點腦筋加油吧...
[addsig]
<!-- Edit Notice Start -->
<font size=-1>[ 這篇文章在 2001-06-12 21:16 被 ASKA 編輯過 ]</font><!-- Edit Notice End -->