vb 编程将十进制数转换成十六进制数

1、运行“Microsoft Visual Studio 2010”。

2、”vs“的窗口d出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。

3、在d出的列表中鼠标左键单击标题为”新建项目（p）“的项。

4、在d出的标题为”橡敏新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。再在右边的列表中选择标题为”Windows 窗体应用罩数程序“。

5、在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。

6、在新切换到的“代码编辑页面”。梁闷枝

7、再在 “Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load”下写代码。就可以了。

用途：将十进制转化为二 进 制

' 输入：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

Private Sub Command1_Click()

Dim a As String

Dim b As Long 'b是你要转换的数塌信

a = DEC_to_BIN(b)

End Sub

---