vb編寫十進(jìn)制轉(zhuǎn)二進(jìn)制 用VB編程：將二進(jìn)制轉(zhuǎn)化為十進(jìn)制？
用VB編程：將二進(jìn)制轉(zhuǎn)化為十進(jìn)制？rivate Sub Form_Load() MsgBox BIN_to_DEC("11") End Sub Public Function BIN_to_DEC(B
用VB編程：將二進(jìn)制轉(zhuǎn)化為十進(jìn)制？
rivate Sub Form_Load() MsgBox BIN_to_DEC("11") End Sub Public Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As Long For i = 1 To Len(Bin) BIN_to_DEC = BIN_to_DEC * 2 Val(Mid(Bin， i， 1)) Next i End Function
私有子窗體u Load（）MsgBox BIN to u to u DEC（“11”）End Sub