文件名称:二进制八进制十进制十六进制间转换
文件大小:3KB
文件格式:RAR
更新时间:2012-07-12 06:17:14
2.8.10.16进制转换
Private Sub Command1_Click() X = Text1.Text If Text1.Text = "" Then MsgBox "输入源数据", 0, "" If Option1 = True And Option5 = True Then MsgBox "请选不同的进制", 0, "" If Option2 = True And Option6 = True Then MsgBox "请选不同的进制", 0, "" If Option3 = True And Option7 = True Then MsgBox "请选不同的进制", 0, "" If Option4 = True And Option8 = True Then MsgBox "请选不同的进制", 0, "" If Option4 = True And Option5 = True Then Call z16_2: Text2.Text = Y If Option4 = True And Option6 = True Then Call z16_8: Text2.Text = Y If Option4 = True And Option7 = True Then Call z16_10: Text2.Text = Y If Option3 = True And Option5 = True Then Text2.Text = z10_2(Val(Text1.Text)) If Option3 = True And Option6 = True Then Call z10_8: Text2.Text = Y If Option3 = True And Option8 = True Then Call z10_16: Text2.Text = Y If Option2 = True And Option5 = True Then Call z8_2: Text2.Text = Y If Option2 = True And Option7 = True Then Call z8_10: Text2.Text = Y If Option2 = True And Option8 = True Then Call z8_16: Text2.Text = Y If Option1 = True And Option8 = True Then Call z2_16: Text2.Text = Y If Option1 = True And Option7 = True Then Text2.Text = z2_10(Text1.Text) If Option1 = True And Option6 = True Then Call z2_8: Text2.Text = Y
【文件预览】:
codefans.net
----20083258343297091()
--------工程1.vbw(51B)
--------工程1.vbp(647B)
--------Form1.frm(11KB)
--------MSSCCPRJ.SCC(190B)