麻煩幫忙用vb做十進位制轉換為二進位制八進位制

2021-03-03 22:26:36 字數 8521 閱讀 6561

1樓:網海1書生

private sub two_click() '二進位制dim b as long, s as stringb = val(text1.text)

do while b > 0

s = b mod 2 & s

b = b \ 2

loop

text2.text = s

end sub

private sub eight_click() '八進位制text3.text = oct(val(text1.text))end sub

private sub six_click() '十六進位制text4.text = hex(val(text1.text))end sub

2樓:匿名使用者

...........................可以幫你。

用vb編寫程式,把任意一個十進位制n轉換成分別用二進位制,八進位制和十六進位制的數(用sub實現數值轉換)

3樓:fm網路

' 用途:將十進位制轉化為二 進 制

' 輸入:dec(十進位制數)

' 輸入資料型別:long

' 輸出:dec_to_bin(二 進 制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647,輸出最大數為1111111111111111111111111111111(31個1)

public function dec_to_bin(byval dec as long) as string

dec_to_bin = ""

do while dec > 0

dec_to_bin = dec mod 2 & dec_to_bin

dec = dec \ 2

loop

end function

' 用途:將二 進 制轉化為十進位制

' 輸入:bin(二 進 制數)

' 輸入資料型別:string

' 輸出:bin_to_dec(十進位制數)

' 輸出資料型別:long

' 輸入的最大數為1111111111111111111111111111111(31個1),輸出最大數為2147483647

public function bin_to_dec(byval bin as string) as long

dim i as long

for i = 1 to len(bin)

bin_to_dec = bin_to_dec * 2 + val(mid(bin, i, 1))

next i

end function

' 用途:將十六進位制轉化為二 進 制

' 輸入:hex(十六進位制數)

' 輸入資料型別:string

' 輸出:hex_to_bin(二 進 制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647個字元

public function hex_to_bin(byval hex as string) as string

dim i as long

dim b as string

hex = ucase(hex)

for i = 1 to len(hex)

select case mid(hex, i, 1)

case "0": b = b & "0000"

case "1": b = b & "0001"

case "2": b = b & "0010"

case "3": b = b & "0011"

case "4": b = b & "0100"

case "5": b = b & "0101"

case "6": b = b & "0110"

case "7": b = b & "0111"

case "8": b = b & "1000"

case "9": b = b & "1001"

case "a": b = b & "1010"

case "b": b = b & "1011"

case "c": b = b & "1100"

case "d": b = b & "1101"

case "e": b = b & "1110"

case "f": b = b & "1111"

end select

next i

while left(b, 1) = "0"

b = right(b, len(b) - 1)

wend

hex_to_bin = b

end function

' 用途:將二 進 制轉化為十六進位制

' 輸入:bin(二 進 制數)

' 輸入資料型別:string

' 輸出:bin_to_hex(十六進位制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647個字元

public function bin_to_hex(byval bin as string) as string

dim i as long

dim h as string

if len(bin) mod 4 <> 0 then

bin = string(4 - len(bin) mod 4, "0") & bin

end if

for i = 1 to len(bin) step 4

select case mid(bin, i, 4)

case "0000": h = h & "0"

case "0001": h = h & "1"

case "0010": h = h & "2"

case "0011": h = h & "3"

case "0100": h = h & "4"

case "0101": h = h & "5"

case "0110": h = h & "6"

case "0111": h = h & "7"

case "1000": h = h & "8"

case "1001": h = h & "9"

case "1010": h = h & "a"

case "1011": h = h & "b"

case "1100": h = h & "c"

case "1101": h = h & "d"

case "1110": h = h & "e"

case "1111": h = h & "f"

end select

next i

while left(h, 1) = "0"

h = right(h, len(h) - 1)

wend

bin_to_hex = h

end function

' 用途:將十六進位制轉化為十進位制

' 輸入:hex(十六進位制數)

' 輸入資料型別:string

' 輸出:hex_to_dec(十進位制數)

' 輸出資料型別:long

' 輸入的最大數為7fffffff,輸出的最大數為2147483647

public function hex_to_dec(byval hex as string) as long

dim i as long

dim b as long

hex = ucase(hex)

for i = 1 to len(hex)

select case mid(hex, len(hex) - i + 1, 1)

case "0": b = b + 16 ^ (i - 1) * 0

case "1": b = b + 16 ^ (i - 1) * 1

case "2": b = b + 16 ^ (i - 1) * 2

case "3": b = b + 16 ^ (i - 1) * 3

case "4": b = b + 16 ^ (i - 1) * 4

case "5": b = b + 16 ^ (i - 1) * 5

case "6": b = b + 16 ^ (i - 1) * 6

case "7": b = b + 16 ^ (i - 1) * 7

case "8": b = b + 16 ^ (i - 1) * 8

case "9": b = b + 16 ^ (i - 1) * 9

case "a": b = b + 16 ^ (i - 1) * 10

case "b": b = b + 16 ^ (i - 1) * 11

case "c": b = b + 16 ^ (i - 1) * 12

case "d": b = b + 16 ^ (i - 1) * 13

case "e": b = b + 16 ^ (i - 1) * 14

case "f": b = b + 16 ^ (i - 1) * 15

end select

next i

hex_to_dec = b

end function

' 用途:將十進位制轉化為十六進位制

' 輸入:dec(十進位制數)

' 輸入資料型別:long

' 輸出:dec_to_hex(十六進位制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647,輸出最大數為7fffffff

public function dec_to_hex(dec as long) as string

dim a as string

dec_to_hex = ""

do while dec > 0

a = cstr(dec mod 16)

select case a

case "10": a = "a"

case "11": a = "b"

case "12": a = "c"

case "13": a = "d"

case "14": a = "e"

case "15": a = "f"

end select

dec_to_hex = a & dec_to_hex

dec = dec \ 16

loop

end function

' 用途:將十進位制轉化為八進位制

' 輸入:dec(十進位制數)

' 輸入資料型別:long

' 輸出:dec_to_oct(八進位制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647,輸出最大數為17777777777

public function dec_to_oct(byval 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

' 用途:將二 進 制轉化為八進位制

' 輸入:bin(二 進 制數)

' 輸入資料型別:string

' 輸出:bin_to_oct(八進位制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647個字元

public function bin_to_oct(byval bin as string) as string

dim i as long

dim h as string

if len(bin) mod 3 <> 0 then

bin = string(3 - len(bin) mod 3, "0") & bin

end if

for i = 1 to len(bin) step 3

select case mid(bin, i, 3)

case "000": h = h & "0"

case "001": h = h & "1"

case "010": h = h & "2"

case "011": h = h & "3"

case "100": h = h & "4"

case "101": h = h & "5"

case "110": h = h & "6"

case "111": h = h & "7"

end select

next i

while left(h, 1) = "0"

h = right(h, len(h) - 1)

wend

bin_to_oct = h

end function

' 用途:將八進位制轉化為二 進 制

' 輸入:oct(八進位制數)

' 輸入資料型別:string

' 輸出:oct_to_bin(二 進 制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647個字元

public function oct_to_bin(byval oct as string) as string

dim i as long

dim b as string

for i = 1 to len(oct)

select case mid(oct, i, 1)

case "0": b = b & "000"

case "1": b = b & "001"

case "2": b = b & "010"

case "3": b = b & "011"

case "4": b = b & "100"

case "5": b = b & "101"

case "6": b = b & "110"

case "7": b = b & "111"

end select

next i

while left(b, 1) = "0"

b = right(b, len(b) - 1)

wend

oct_to_bin = b

end function

' 用途:將八進位制轉化為十六進位制

' 輸入:oct(八進位制數)

' 輸入資料型別:string

' 輸出:oct_to_hex(十六進位制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647個字元

public function oct_to_hex(byval oct as string) as string

dim bin as string

bin = oct_to_bin(oct)

oct_to_hex = bin_to_hex(bin)

end function

' 用途:將十六進位制轉化為八進位制

' 輸入:hex(十六進位制數)

' 輸入資料型別:string

' 輸出:hex_to_oct(八進位制數)

' 輸出資料型別:string

' 輸入的最大數為2147483647個字元

public function hex_to_oct(byval hex as string) as string

dim bin as string

hex = ucase(hex)

bin = hex_to_bin(hex)

hex_to_oct = bin_to_oct(bin)

end function

將八進位制數76轉換為十進位制數,將十進位制數76625轉換成八進位制數為

是63喲,32 16 8 4 2 1 63 將十進位制數76.625轉換成八進位制數為 將十進位制數76.625轉換成八進位制數為114.5。參考過程如下 76 8 9 4 9 8 1 1 1 8 0 1 把餘數從下往上排,故整數部分為114 0.625 8 5 小數部分為0.5 所以答案為114....

求EXCEl中,轉換公式。十進位制如何轉換為度分秒格式的。反過

計算公式,可以精確得計算出結果,如下 其中a2代表十進位制度數所在的單元格 調節x的位數,可以取得秒的不同精度,如10000,會取到秒的小數點後四位 1000000,取到後六位。如 130.03145632,輸出130.0153242752 如果要加上度 分 秒等漢字或符號,只需在中間 符號處稍作文...

將十進位制06875轉換為二進位制,請教 十進位制的0 875轉換為二進位制是多少?要求詳解

0.6875 十進位制 0.1011 二進位制 轉換原理 十進位制小數轉換成二進位制小數採用 乘2取整,順序排列法。具體做法是 用2乘十進位制小數,可以得到積,將積的整數部分取出,再用2乘餘下的小數部分,又得到一個積,再將積的整數部分取出,如此進行,直到積中的小數部分為零,此時0或1為二進位制的最後...