VB程序代碼，編制一個(gè)將十進(jìn)制整數(shù)轉(zhuǎn)換為二進(jìn)制數(shù)的程序。

用途：將十進(jìn)制轉(zhuǎn)化為二 進(jìn) 制

目前成都創(chuàng)新互聯(lián)已為上千的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、邕寧網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶(hù)導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶(hù)和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

' 輸入：Dec(十進(jìn)制數(shù))

' 輸入數(shù)據(jù)類(lèi)型：Long

' 輸出：DEC_to_BIN(二 進(jìn) 制數(shù))

' 輸出數(shù)據(jù)類(lèi)型：String

' 輸入的最大數(shù)為2147483647,輸出最大數(shù)為1111111111111111111111111111111(31個(gè)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

Private Sub Command1_Click()

Dim a As String

Dim b As Long 'b是你要轉(zhuǎn)換的數(shù)

a = DEC_to_BIN(b)

End Sub

VB編程序?qū)崿F(xiàn)一個(gè)十進(jìn)制數(shù)轉(zhuǎn)換成2進(jìn)制的數(shù)？

轉(zhuǎn)換成十六進(jìn)制

hex()

如：10（十進(jìn)制）:hex(10)=a

轉(zhuǎn)換成8進(jìn)制oct()

如：10（十進(jìn)制）:oct(10)=12

轉(zhuǎn)換成2進(jìn)制，使用下面的方法

'采用連除2取余數(shù)，將一個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為二進(jìn)制數(shù)

dim

dec

as

integer

'輸入一個(gè)十進(jìn)制數(shù)

dim

bin

as

string

'轉(zhuǎn)換為二進(jìn)制表示

dim

res

as

integer

dim

i

as

integer

dec

=

val(inputbox("x="))

form1.print

"十進(jìn)制數(shù)：";

dec

do

res

=

dec

mod

2

'求出除以2的余數(shù)

bin

=

res

bin

dec

=

dec

\

2

loop

while

dec

form1.print

"轉(zhuǎn)換為二進(jìn)制數(shù)為：";

bin

vb十進(jìn)制轉(zhuǎn)二進(jìn)制

1、首先，定義兩個(gè)整型變量，保存計(jì)算出的每位二進(jìn)制數(shù)和二進(jìn)制位數(shù)的統(tǒng)計(jì)。

2、定義一個(gè)實(shí)型變量，保存計(jì)算的十進(jìn)制小數(shù)。

3、輸入一個(gè)十進(jìn)制小數(shù)，保存在變量d中。

4、do-while循環(huán)中，將十進(jìn)制小數(shù)乘以2。

5、取十進(jìn)制數(shù)的整數(shù)部分，保存在變量b中。

6、輸出該位的二進(jìn)制數(shù)，同時(shí)將十進(jìn)制數(shù)的整數(shù)部分減掉。

7、運(yùn)行程序，輸入任意一個(gè)十進(jìn)制小數(shù)，計(jì)算機(jī)就會(huì)輸出相應(yīng)的二進(jìn)制小數(shù)。

求在vb中十進(jìn)制轉(zhuǎn)換為二進(jìn)制的代碼(附帶每一句的意思)

10進(jìn)制數(shù)轉(zhuǎn)換為2進(jìn)制數(shù)的方法，其實(shí)就是把10進(jìn)制數(shù)不斷除以2，然后把每次相除的余數(shù)按逆序的方式排列出來(lái)就是了（此方法適用于10進(jìn)制數(shù)轉(zhuǎn)換為任意n進(jìn)制數(shù)，只要把上述的2換為n即可，當(dāng)然，如果n大于10，就要用其他符號(hào)來(lái)代替大于10的數(shù)了，比如16進(jìn)制的ABCDEF）

d?=?Val(InputBox("請(qǐng)任意輸入一個(gè)整數(shù)"))???'d是任意一個(gè)10進(jìn)制整數(shù)

n?=?2???'轉(zhuǎn)為二進(jìn)制

h?=?""??'h是用來(lái)存放二進(jìn)制數(shù)的字符串

Do?While?d??0???'如果d大于0就繼續(xù)循環(huán)

h?=?(d?Mod?2)??h???'把d與2相除的余數(shù)進(jìn)行拼接

d?=?d?\?2???'把d與2進(jìn)行整除

Loop

MsgBox?d??"轉(zhuǎn)為二進(jìn)制是"??h???'顯示結(jié)果