1樓：
sub readoctal(x as string,y as long)'八進位數以字串形式傳入，以長整型輸出十進位數。
dim i as integer
y=0for i=1 to len(x)
y=y+val(mid(x,i,1))*8^(len(x)-i)next i
end sub
sub writeoctal(x as long,y as string)'以長整型傳入十進位數，以字串形式輸出八進位數。
y=""do while x<>0
y=trim(str((x mod 8)))yx=x\8loop
end sub
2樓：老大小明
用途：將十進位轉化為八進位。
輸入：dec(十進位數)
輸入資料型別：long
輸出：dec_to_oct(八進位數)
輸出資料型別：string
輸入的最大數為2147483647,輸出最大數為17777777777
public function dec_to_oct(dec as long) as string
dec_to_oct =
do while dec > 0
dec_to_oct = dec mod 8 & dec_to_oct
dec = dec \ 8
loop end function
用途：將八進位轉化為十進位。
輸入：oct(八進位數)
輸入資料型別：string
輸出：oct_to_dec(十進位數)
輸出資料型別：long
輸入的最大數為17777777777,輸出的最大數為2147483647
public function oct_to_dec(byval oct as string) as long
dim i as long
dim b as long
for i = 1 to len(oct)
select case mid(oct, len(oct) -i + 1, 1)
case "0": b = b + 8 ^ i - 1) *0
case "1": b = b + 8 ^ i - 1) *1
case "2": b = b + 8 ^ i - 1) *2
case "3": b = b + 8 ^ i - 1) *3
case "4": b = b + 8 ^ i - 1) *4
case "5": b = b + 8 ^ i - 1) *5
case "6": b = b + 8 ^ i - 1) *6
case "7": b = b + 8 ^ i - 1) *7
end select
next i
oct_to_dec = b
end function
vb初學者，高手進
private sub command1 click dim i as long,n as long,t as boolean dim a as long,b as longfor n 100 to 400 t true for i 2 to sqr n if n mod i 0 then t fa...
我是VB初學者，哪位前輩高手能指點一下，學習經驗啊
我的心得是 1 從簡單做起，不要太快，否則容易產生厭倦反而不利 62616964757a686964616fe58685e5aeb931333262353961 我想學習計算機程式設計，就是c vb這一類的，但不知道該怎麼學，從 開始。希望高手們指點一下。首先你要有本c的教材，樓上說的譚浩強的書就很...
我是鋼琴初學者 請教一些指法問題
剛開始都那樣 只能練習 哈農均衡各指力量 車爾尼找感覺練速度 開始的時候要藉助腕力吧。手指的力量剛開始肯定上不去，多使用腕力，但注意手臂要放平。基本功要勤練，時間久了自然成。多練習。感覺握著雞蛋。彈四指五指時可以同時抬起來四指五指，因為是剛學，不用著急，久了就有感覺了 我是鋼琴初學者 請教一些指法問...