重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、运行“Microsoft Visual Studio 2010”。
在循化等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都做网站、网站设计 网站设计制作专业公司,公司网站建设,企业网站建设,成都品牌网站建设,成都全网营销,外贸网站建设,循化网站建设费用合理。
2、”vs“的窗口弹出后,找到菜单栏,鼠标左键单击标题为”文件(f)“的选项。
3、在弹出的列表中鼠标左键单击标题为”新建项目(p)“的项。
4、在弹出的标题为”新建项目“,鼠标左键选择标题为”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”下写代码。就可以了。
用VB编写一个输入十进制整数转十六进制的程序可使用Hex函数完成。
Hex
函数,返回代表十六进制数值的
String。
Hex
函数示例
本示例使用
Hex
函数来得到某数值的
16
进制值。
Dim
MyHex
MyHex
=
Hex(5)
'
返回
5。
MyHex
=
Hex(10)
'
返回
A。
MyHex
=
Hex(459)
'
返回
1CB。
Hex
函数示例
本示例使用
Hex
函数来得到某数值的
16
进制值。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(DEC_to_HEX(255))
End Sub
Public Function DEC_to_HEX(ByVal 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
十进制转八进制:Oct(num)
十六进制转八进制:oct("H"num)
十进制转十六进制:hex(num)
八进制转十六进制:hex("O"num)
十六进制转换为十进制
Dim
str
As
String
str=Text2.Text
Text10.Text=CLng("H"str)
这些是VB自带的,希望对你有帮助