VB程序设计-进制转换研究

VB程序设计－进制转换研究
（作者：草原飞狼 2014年5月29日）
声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。

布局
算法示意图（1）
算法示意图（2）
运行界面（1）源代码如下：
Private Sub Command1_Click()
Rem 二进制转十进制，普通方法
Dim d As String 'd表示text1中的某一个具体的字符
Dim i As Integer 'i表示循环变量
Dim str As String 'str表示text1中去掉空格后的字符串
Dim dd As Integer 'dd表示一个十进制数
Dim len_str As Integer '表示text1中去掉左右空格后文本的长度
str = Trim(Text1.Text)
len_str = Len(str)
Rem 以下是二进制输入合法性的判断
For i = 1 To len_str
d = Val(Mid(str, i, 1))
If d > 1 Then
MsgBox "请重新输入一个合法的二进制数！", vbOKOnly + vbExclamation, "错误提示"
Text1.Text = "1010"
Text1.SetFocus
Exit Sub
End If
Next i
Rem 以下是二进制转十进制的算法
dd = 0
For i = 1 To len_str
dd = dd + Val(Mid(str, i, 1)) * 2 ^ (len_str - i) '核心算法，注意理解
Next i
Text3.Text = dd
End Sub
Private Sub Command2_Click()
Rem 清空
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
Rem 退出
Unload Me
End Sub
Private Sub Command4_Click()
Rem 十进制转二进制，普通方法
Dim str As String '用于连接生成的余数
Dim dd As Integer '用于生成当前的商
dd = Val(Text2.Text)
Do While dd > 0
str = dd Mod 2 & str '注意字符串的连接顺序：把余数连接在当前字符串之前dd = dd \ 2 '求商
Loop
'Print dd 'dd=0
Text4.Text = str
End Sub
Private Sub Command5_Click()
Rem 二进制转十进制，函数调用方法
Dim d As String 'd表示text1中的某一个具体的字符
Dim i As Integer 'i表示循环变量
Dim str As String 'str表示text1中去掉空格后的字符串
Dim dd As Integer 'dd表示一个十进制数
Dim len_str As Integer '表示text1中去掉左右空格后文本的长度
str = Trim(Text1.Text)
len_str = Len(str)
Rem 以下是二进制输入合法性的判断
For i = 1 To len_str
d = Val(Mid(str, i, 1))
If d > 1 Then
MsgBox "请重新输入一个合法的二进制数！", vbOKOnly + vbExclamation, "错误提示"
Text1.Text = "1010"
Text1.SetFocus
Exit Sub
End If
Next i
Call ertoshi(str) '函数调用，此名也可以省略
Text3.Text = ertoshi(str)
End Sub
Private Function ertoshi(ByVal mystr As String) As String
Rem 2进制转10进制函数，以下变量与主函数同名，也可以定义成全局变量
Dim i As Integer
Dim dd As Integer
Dim str As String 'str表示text1中去掉空格后的字符串
Dim len_str As Integer '表示text1中去掉左右空格后文本的长度
str = Trim(Form1.Text1.Text)
len_str = Len(str)
dd = 0
For i = 1 To len_str
dd = dd + Val(Mid(str, i, 1)) * 2 ^ (len_str - i)
Next i
ertoshi = dd '将dd值返回给函数
End Function
Private Sub Command6_Click()
Rem 十进制转二进制，函数调用方法
Dim dd As Integer '用于生成当前的商
dd = Val(Text2.Text)
Call shitoer(dd)
Text4.Text = shitoer(dd)
End Sub
Private Function shitoer(ByVal mydd As Integer) As String
Rem 10进制转2进制函数
Dim mystr As String
mystr = ""
Do While mydd > 0
mystr = mydd Mod 2 & mystr '注意mystr连接顺序mydd = mydd \ 2
Loop
shitoer = mystr '将mystr返回给函数End Function
Private Sub Form_Load()
Rem 初始化
With Form1
.FontName = "宋体"
.FontBold = True
.FontSize = 16
.ForeColor = vbRed
End With
End Sub。