求vb程序设计将十进制转换成八进制和十六进制的代码（vb十进制转换十六进制怎么计算）

VB本身有转换函数的：

Dim x As Long

x = 1234

Print "十进制数"; x

Print "转换为八进制 "; Oct(x)

Print "转换为十六进制 "; Hex(x)