求VB算法

应该是：求每行代码的解释吧？

楼上已经回答的很详细了，我再说说你最后的问题，关于Mod和\两个运算：

回顾当小学里，第一次学除不尽的除法时，我是小学三年级的时候，老师这样写在黑板上的：

7 ÷ 3 = 2 …… 1

老师说那个2叫做商，那个在省略号后面的1叫做余数。

我们再来看看Mod 和 \ 这两个符号在VB里的作用

7\3 = 2

7 Mod 3 = 1

原来这两个运算符号，在VB里实现的就是商数与余数的获得。

注意，这两个称为“运算符号”

Option Explicit

Private Sub Command1_Click()

Dim r As Integer, n As Integer

Dim strBin As String

strBin = ""

n = Val(Text1)

Do

r = n Mod 2

strBin = r &strBin '十进制转二进制

n = n \ 2

Loop While n <>0

MsgBox strBin

End Sub

Private Sub Command2_Click()

Dim i As Integer

Dim numDec As Long

For i = 1 To Len(Text1) '二进制转十进制

If Mid(Text1, i, 1) <>"0" And Mid(Text1, i, 1) <>"1" Then MsgBox "不是二进制数值": Exit Sub

Next

numDec = 0

For i = 1 To Len(Text1)

numDec = numDec + Val(Mid(Text1, i, 1)) * 2 ^ (Len(Text1) - i)

Next

MsgBox numDec

End Sub

基础代码，通俗易懂，哈哈！！

---