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 Ms gBox "请选不同的进制", 0, "" If Option3 = True And Opti
十进位，八进制，十六进位，二进位相互转换大全 ' 用途：将十进位转化为二进位 ' 输入：Dec(十进位数字) ' 输入资料类型：Long ' 输出：DEC_to_BIN(二进位数字) ' 输出资料类型：String ' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1) Public Function DEC_to_BIN(Dec As Long) As String DEC_to_BIN = "" Do While De
实现了度分秒到十进制度的相互转换 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace dufenmiaozhuanhuan { public partial cl
